Je reçois par jour plusieurs fichiers au format Excel par mail que je
stocke dans un dossier. Je voudrais pouvoir intégrer les données dans
une base de données automatiquement à l'aide d'une macro.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour et bonne année aussi.
tu peux utiliser cette fonction qui importera tous les fichiers xls d'un répertoire dans des tables portant le même nom que le fichier. si tu veux supprimer les fichier après import tu rajouteras un deleteobject. l'import se fera sur le click du bouton Commande0:
Private Sub Commande0_Click() Chercher "c:", "*.xls" End Sub
Public Function Chercher(NomDuChemin As String, NomDuFichier As String) As String Dim fichier As String fichier = Dir(NomDuChemin & NomDuFichier) Do Until fichier = "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Mid(fichier, 1, InStr(1, fichier, ".xls") - 1), NomDuChemin & fichier, True fichier = Dir Loop End Function
j'ai séparé le chemin et le fichier, au cas où tu veuilles t'en servir pour autre chose dans la procédure. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pedro" a écrit dans le message de news:
Bonjour et Bonne Année
Je reçois par jour plusieurs fichiers au format Excel par mail que je stocke dans un dossier. Je voudrais pouvoir intégrer les données dans une base de données automatiquement à l'aide d'une macro.
Merci
Pedro
Bonjour et bonne année aussi.
tu peux utiliser cette fonction qui importera tous les fichiers xls d'un
répertoire dans des tables portant le même nom que le fichier. si tu veux
supprimer les fichier après import tu rajouteras un deleteobject. l'import
se fera sur le click du bouton Commande0:
Private Sub Commande0_Click()
Chercher "c:", "*.xls"
End Sub
Public Function Chercher(NomDuChemin As String, NomDuFichier As String) As
String
Dim fichier As String
fichier = Dir(NomDuChemin & NomDuFichier)
Do Until fichier = ""
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
Mid(fichier, 1, InStr(1, fichier, ".xls") - 1), NomDuChemin & fichier, True
fichier = Dir
Loop
End Function
j'ai séparé le chemin et le fichier, au cas où tu veuilles t'en servir pour
autre chose dans la procédure.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pedro" <piobote@hotmail.com> a écrit dans le message de
news:d9b0bfeb.0401020445.5cb64d6d@posting.google.com...
Bonjour et Bonne Année
Je reçois par jour plusieurs fichiers au format Excel par mail que je
stocke dans un dossier. Je voudrais pouvoir intégrer les données dans
une base de données automatiquement à l'aide d'une macro.
tu peux utiliser cette fonction qui importera tous les fichiers xls d'un répertoire dans des tables portant le même nom que le fichier. si tu veux supprimer les fichier après import tu rajouteras un deleteobject. l'import se fera sur le click du bouton Commande0:
Private Sub Commande0_Click() Chercher "c:", "*.xls" End Sub
Public Function Chercher(NomDuChemin As String, NomDuFichier As String) As String Dim fichier As String fichier = Dir(NomDuChemin & NomDuFichier) Do Until fichier = "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Mid(fichier, 1, InStr(1, fichier, ".xls") - 1), NomDuChemin & fichier, True fichier = Dir Loop End Function
j'ai séparé le chemin et le fichier, au cas où tu veuilles t'en servir pour autre chose dans la procédure. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pedro" a écrit dans le message de news:
Bonjour et Bonne Année
Je reçois par jour plusieurs fichiers au format Excel par mail que je stocke dans un dossier. Je voudrais pouvoir intégrer les données dans une base de données automatiquement à l'aide d'une macro.
