[VBA]importer feuille excel dans table access
remsdu
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
remsdu -
remsdu -
Bonjour,
Je suis actuellement en stage, je travail sur l'importation et l'exportation de fichier entre ACCESS et EXCEL.
Pour rendre cela automatique, je travail sous VBA.
j'aimerai en fait pouvoir à l'aide d'un macro sous ACCESS sélectionner un fichier EXCEL à l'aide d'une fenêtre de navigation (car le fichier peut être n'importe où).
J'ai bien trouvé ceci :
DoCmd.TransferSpreadsheet acImport, NumeroVersionExcel, "NomDeLaTableDestination", "Chemin\NomClasseurExcel.xls", True
cela correspond bien à ce que j'aimerais, mais j'aimerais pouvoir parcourir mes fichiers pour renseigner "Chemin\NomClasseurExcel.xls".
"NomDeLaTableDestination" sera fixe
"NumeroVersionExcel" je ne sait pas quel est le numéro (7 je crois pour EXCEL 2000)
la feuille du classeur excel est toujours la première (donc par defaut)
Sous vba excel, pour récupérer le chemin du fichier cela donnerait :
Dim fichierAOuvrir As Variant
fichierAOuvrir = Application.GetOpenFilename("fichiers Excel (*.xls), *.xls")
Mais je souhaite faire ça sous VBA ACCESS
Merci d'avance, j'ai vraiment besoin d'aide
Je suis actuellement en stage, je travail sur l'importation et l'exportation de fichier entre ACCESS et EXCEL.
Pour rendre cela automatique, je travail sous VBA.
j'aimerai en fait pouvoir à l'aide d'un macro sous ACCESS sélectionner un fichier EXCEL à l'aide d'une fenêtre de navigation (car le fichier peut être n'importe où).
J'ai bien trouvé ceci :
DoCmd.TransferSpreadsheet acImport, NumeroVersionExcel, "NomDeLaTableDestination", "Chemin\NomClasseurExcel.xls", True
cela correspond bien à ce que j'aimerais, mais j'aimerais pouvoir parcourir mes fichiers pour renseigner "Chemin\NomClasseurExcel.xls".
"NomDeLaTableDestination" sera fixe
"NumeroVersionExcel" je ne sait pas quel est le numéro (7 je crois pour EXCEL 2000)
la feuille du classeur excel est toujours la première (donc par defaut)
Sous vba excel, pour récupérer le chemin du fichier cela donnerait :
Dim fichierAOuvrir As Variant
fichierAOuvrir = Application.GetOpenFilename("fichiers Excel (*.xls), *.xls")
Mais je souhaite faire ça sous VBA ACCESS
Merci d'avance, j'ai vraiment besoin d'aide
A voir également:
- [VBA]importer feuille excel dans table access
- Table ascii - Guide
- Table des matières word - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Word et excel gratuit - Guide