A voir également:
- Transfert Access vers Excel
- Liste déroulante excel - Guide
- We transfert - Guide
- Formule excel - Guide
- Transfert photo android vers pc - Guide
- Windows 7 vers windows 10 - 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