export de donnees de access vers excel - Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :), Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 02:49:11

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

+ de logiciels à télécharger

1 467 621 membres
40 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 668 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : export de donnees de access vers excel [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (canard66)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Visual Basic & VB.NET / Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) / export de donnees de access vers excel
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

vendredi 22 février 2002 à 13:21:00 | export de donnees de access vers excel

canard66	voila, g un pb je cherche comment je peux exporter mes donnees de access vers excel, avec possibilite de faire un tri, c'est a dire que je veux pouvoir exporter des donnees comprises entre deux dates. Je remercie par avance tous les gens qui me repondront.
	Rép. MP 22 msg 23 msg CS

vendredi 22 février 2002 à 15:52:48 | Re : export de donnees de access vers excel

sophmef1

Salut,

Si ça peut t'aider voila le code pour envoyer des données d'un datagrid vers excel. Quand à ta requete tu la fais avant d'envoyer tes données vers excel

Dim a As New Excel.Application
Dim ligne As Long
ligne = 1
a.Visible = True
a.Workbooks.Add
With a.ActiveWorkbook.Worksheets("Feuil1")
'Indique la largeur des colonnes
.Columns("A").ColumnWidth = 28
.Columns("B").ColumnWidth = 20
.Columns("C").ColumnWidth = 15
.Columns("D").ColumnWidth = 5
.Columns("E").ColumnWidth = 20
.Columns("F").ColumnWidth = 10
.Columns("G").ColumnWidth = 10
.Columns("H").ColumnWidth = 7
.Columns("I").ColumnWidth = 7

'Indique la police de caractères
.Cells.Font.Name = "Arial"

'Se positionne sur le premier enregistrement
Adodc1.Recordset.MoveFirst

'Indique la taille de caractères
.Cells.Font.Size = 8

Do Until Adodc1.Recordset.EOF
'Affiche les données dans les cellules d'Excel
.Cells(ligne, 1) = Adodc1.Recordset!nomsociete
.Cells(ligne, 2) = Adodc1.Recordset!adresse1
.Cells(ligne, 3) = Adodc1.Recordset!adresse2
.Cells(ligne, 4) = Adodc1.Recordset!codepostal
.Cells(ligne, 5) = Adodc1.Recordset!ville
.Cells(ligne, 6) = Adodc1.Recordset!telephone
.Cells(ligne, 7) = Adodc1.Recordset!fax
.Cells(ligne, 8) = Adodc1.Recordset!codeagence
.Cells(ligne, 9) = Adodc1.Recordset!codecommercial

ligne = ligne + 1
'Passe à l'enregistrement suivant
Adodc1.Recordset.MoveNext
Loop

End With
End Sub

J'espère que ça va t'aider et si tu veux d'autres précisions....

Sophie

-------------------------------
Réponse au message :
-------------------------------

voila, g un pb je cherche comment je peux exporter mes donnees de access vers excel, avec possibilite de faire un tri, c'est a dire que je veux pouvoir exporter des donnees comprises entre deux dates.
Je remercie par avance tous les gens qui me repondront.

vendredi 22 février 2002 à 16:04:59 | Re : export de donnees de access vers excel

Cassidy

Salut C marrant c'est strictement ce que je viens de faire aujourd'hui

Private Sub Cmd_Exportation_Click()
Dim VDateMoAn As Variant
Dim Path As String
Dim NomClasseurXLS As String
Dim NomClasseur As String
Dim ExcelSheet As Object
Dim Mydate As Variant
Dim Vmonth As Variant
Dim VYear As Variant
Dim VDay As Variant
Dim Date1 As Variant
Dim Date2 As Variant
Dim DateJ As Variant
Dim i As Integer

'initialisation de VDateMoAN
If (DateMoAn_text.Value <> "") Then
VDateMoAn = DateMoAn_text
Else
réponse = MsgBox("Date du mois à exporter manquante", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If

'initialisation de VDateMoAN
If (NomClasseur_text.Value <> "") Then
NomClasseur = NomClasseur_text
NomClasseurXLS = NomClasseur & ".xls"
Else
réponse = MsgBox("Nom du classeur manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If

'initialisation de VDateMoAN
If (Path_Text.Value <> "") Then
Path = Path_Text
Else
réponse = MsgBox("Emplacement du classeur manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If

'Creation d'une feuille excel
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Visible = True
ClasseurXLS.Workbooks.Add
'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ...
ClasseurXLS.DisplayAlerts = False
'suppression des feuilles supplementaire du classeur la feuille du classeur
ClasseurXLS.sheets("Feuil2").Select
ClasseurXLS.ActiveWindow.SelectedSheets.Delete
ClasseurXLS.sheets("Feuil3").Select
ClasseurXLS.ActiveWindow.SelectedSheets.Delete
ClasseurXLS.sheets("Feuil1").Select

'recuperation de la date du dernier jour du mois (car l'instruction between 01/var and 31/var ne marche pas si le mois finis avant le 31)
'Note : pour cela calcul du premier jour du mois precedent (01 du mois + 1 mois) - 1 jour
Mydate = "01/" & VDateMoAn
Vmonth = Month(Mydate)
VYear = Year(Mydate)
VDay = Day(Mydate)
Date1 = Vmonth & "/" & VDay & "/" & VYear

Mydate = DateAdd("m", 1, Mydate)
Mydate = DateAdd("d", -1, Mydate)
Vmonth = Month(Mydate)
VYear = Year(Mydate)
VDay = Day(Mydate)
Date2 = Vmonth & "/" & VDay & "/" & VYear

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("select E.Nom_emp as [Nom employé], Int_emp.Num_affaire as [Numéro d'affaire], Int_emp.num_phase as [Numéro de phase], P.Désignation_phase as [Désignation phase], A.Désignation_affaire as [Désignation affaire], Int_emp.DateJ as [DateJ], Int_emp.nb_heures as [Nb d'heures] from Intervient_emp Int_emp, Employé E, Phase P, Affaire A where Int_emp.num_emp = E.Num_emp and Int_emp.Num_phase = P.num_phase and Int_emp.num_affaire = P.num_affaire and P.num_affaire = A.num_affaire and Int_emp.DateJ between #" & Date1 & "# and #" & Date2 & "#;")

'Formatage des nom de champs
ClasseurXLS.sheets("feuil1").Cells(1, 1) = "Nom"
ClasseurXLS.sheets("feuil1").Cells(1, 2) = "DateJ"
ClasseurXLS.sheets("feuil1").Cells(1, 3) = "Num affaire"
ClasseurXLS.sheets("feuil1").Cells(1, 4) = "Désignation affaire"
ClasseurXLS.sheets("feuil1").Cells(1, 5) = "Num phase"
ClasseurXLS.sheets("feuil1").Cells(1, 6) = "Désignation phase"
ClasseurXLS.sheets("feuil1").Cells(1, 7) = "Nb_heures"
'initialisation du compteur
i = 2

Do While Not rs.EOF
DateJ = rs("[DateJ]")
ClasseurXLS.sheets("feuil1").Cells(i, 1) = rs("[Nom employé]")
ClasseurXLS.sheets("feuil1").Cells(i, 2) = DateJ
ClasseurXLS.sheets("feuil1").Cells(i, 3) = rs("[Numéro d'affaire]")
ClasseurXLS.sheets("feuil1").Cells(i, 4) = rs("[Désignation affaire]")
ClasseurXLS.sheets("feuil1").Cells(i, 5) = rs("[Numéro de phase]")
ClasseurXLS.sheets("feuil1").Cells(i, 6) = rs("[Désignation phase]")
ClasseurXLS.sheets("feuil1").Cells(i, 7) = rs("[Nb d'heures]")
'incrementation du compteur
i = i + 1
rs.MoveNext
Loop

'Sauvegarde du classeur
ClasseurXLS.ActiveWorkbook.SaveAs FileName:=Path & NomClasseurXLS
ClasseurXLS.Application.Quit

End Sub

-------------------------------
Réponse au message :
-------------------------------

voila, g un pb je cherche comment je peux exporter mes donnees de access vers excel, avec possibilite de faire un tri, c'est a dire que je veux pouvoir exporter des donnees comprises entre deux dates.
Je remercie par avance tous les gens qui me repondront.

vendredi 22 février 2002 à 16:08:10 | Re : export de donnees de access vers excel

Cassidy

Cette discussion est classé dans : access, donnees, excel, exporter, export

Répondre à ce message

Sujets en rapport avec ce message

exporter des donnees excel vers unbd access [ par kiloo ] j'ai un prog en vb qui me construit ma feuille excel , je remplis certaines cellules avec des données j'enregitre ce doc comme fichier excelmaintenant export de donnees Access vers Excel [ par rabiaa ] Bonjour,Je dois exporter les donnees d'une table de ma base de donnees Access, or cette derniere est verrouillee par un mot de passe. J'ai cherche vai export formulaire access [ par benji64100 ] Bonjour,Je travaille sous access2003.J'ai un formulaire avec un certain nombre de donnees que je voudrais enregistrer sur un fichier excel. Pour cela, export access vers excel d'une requete filtrée [ par bauerben ] bonjour,j'ai un créé un formulaire de recherche multicritère sous access qui me filtre une requete. je voudrais pouvoir exporter ces données vers exce Exporter une table ACCESS dans un onglet et une cellule spécifique d'Excel [ par evilmajestik ] Salut all, Je voudrais faire un petit bout de code qui me permet d'exporter le résultat d'une requête ACCESS dans un onglet et une cellule spécifique Exporter des données access dans un excel [ par mayerp ] Salut,j'aimerai balancer dans un excel le contenu d'un recordset.Je sais le faire à partir du code en remplissant cellule par cellule mais je ne veux Exporter de données Excel vers access en ADO [ par energizer956956 ] Bonjour,alors voila, mon problème est le suivant : J'aimerais faire interagir un fichier excel avec une base access. je m'explique, j'ai un fichier ex importation des donnees excel vers access [ par wfidad ] je veux importer des données sous excel vers access par vb6 pour faire des testes en vb6merci de bien me repondre le plus tôt possible Export Excel vers Access [ par AMP ] Bonjour, bonjourAlors j'ai bien cherché sur le forum, difficile de trouver ma réponse. Bcp de matière grise sur l'export Access vers Excel mais pas l' Access export vers Excel [ par quentinprox ] je cherche a pouvoir empecher l ecriture des noms des champs en entete du fichiers excel lors de l import. (DoCmd.OutputTo)=> Juste exporter le conte