Transfert Access vers Excel
Fermé
Salut,
je dois transférer des données access (requêtes) dans excel via visual basic. Je souhaite transférer les données dans un fichier précis et surtout dans une feuille nommée.
J'ai trouvé les actions 'ddeexecute' et ddeinitiate mais je ne dois pas savoir m'en servir. Si vous avez d'autres solutions.
ex : exécuter requête A et transfere dans c:\test.xls , feuille("ici") si cells(1,1)<>""
Merci
je dois transférer des données access (requêtes) dans excel via visual basic. Je souhaite transférer les données dans un fichier précis et surtout dans une feuille nommée.
J'ai trouvé les actions 'ddeexecute' et ddeinitiate mais je ne dois pas savoir m'en servir. Si vous avez d'autres solutions.
ex : exécuter requête A et transfere dans c:\test.xls , feuille("ici") si cells(1,1)<>""
Merci
A voir également:
- Transfert Access vers Excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Comment calculer la moyenne sur excel - Guide
2 réponses
mobile75
Messages postés
69
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
23 septembre 2008
17
12 nov. 2003 à 17:21
12 nov. 2003 à 17:21
bonjour,
pour commercer
utilise la fonction
DoCmd.OutputTo acQuery, "nom_requete", "MicrosoftExcelnom_fichier.xls)", "", False, ""
A+
Essayer.........des fois ça marche............
pour commercer
utilise la fonction
DoCmd.OutputTo acQuery, "nom_requete", "MicrosoftExcelnom_fichier.xls)", "", False, ""
A+
Essayer.........des fois ça marche............
Voici mon code , je recupere des données excel et je veux les mettre ds ma table access mais ca marche pas pb de compatibilité
Montre lui
Dim XLFichier As Workbook, x As String
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("Employes")
Set XLFichier = Workbooks.Open("test.xls")
MsgBox XLFichier.Worksheets(3).Range("b15").Value
x = XLFichier.Worksheets(3).Range("b15").Value
MaTable.AddNew
MaTable("a") = "'&x'"
MaTable.Update
MaTable.Close
Set XLFichier = Nothing
Montre lui
Dim XLFichier As Workbook, x As String
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("Employes")
Set XLFichier = Workbooks.Open("test.xls")
MsgBox XLFichier.Worksheets(3).Range("b15").Value
x = XLFichier.Worksheets(3).Range("b15").Value
MaTable.AddNew
MaTable("a") = "'&x'"
MaTable.Update
MaTable.Close
Set XLFichier = Nothing