Transfert Access vers Excel
VIRG
-
lolo -
lolo -
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
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Vinted transfert vers compte bancaire - Guide
- Déplacer colonne excel - Guide
2 réponses
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
