Y-a t-il une procédure pour importer plusieurs fichier Excel.
En fait pour l'importation je sais faire, il me faudrait une fonction pour
récupérer tout les fichier XLS d'un répertoire
Après lecture le fichier en question serait effacé.
Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il n'y
plus de fichier xls dans mon répertoire.
Si quelqu'un peu m'indiquer comment faire
D'avance merci
Didier
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
Eric
Bonjour,
Un début : Sub xx() Dim chemin As String, chaine As String ' Chemin à adapter chemin = CurrentProject.Path & "" chaine = Dir(chemin & "*.xls") Do While chaine <> "" ' Importation DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel9, _ Left(chaine, Len(chaine) - 4), _ chemin & chaine, True ' on boucle sur le fichier suivant chaine = Dir Loop End Sub
Pour la suppression du fichier xls après importation, voir la commande Kill chemincomplet+nomfichier+extension
Salut,
Y-a t-il une procédure pour importer plusieurs fichier Excel. En fait pour l'importation je sais faire, il me faudrait une fonction pour récupérer tout les fichier XLS d'un répertoire Après lecture le fichier en question serait effacé. Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il n'y plus de fichier xls dans mon répertoire. Si quelqu'un peu m'indiquer comment faire D'avance merci Didier
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Un début :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
' Importation
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub
Pour la suppression du fichier xls après importation, voir la commande
Kill chemincomplet+nomfichier+extension
Salut,
Y-a t-il une procédure pour importer plusieurs fichier Excel.
En fait pour l'importation je sais faire, il me faudrait une fonction pour
récupérer tout les fichier XLS d'un répertoire
Après lecture le fichier en question serait effacé.
Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il n'y
plus de fichier xls dans mon répertoire.
Si quelqu'un peu m'indiquer comment faire
D'avance merci
Didier
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un début : Sub xx() Dim chemin As String, chaine As String ' Chemin à adapter chemin = CurrentProject.Path & "" chaine = Dir(chemin & "*.xls") Do While chaine <> "" ' Importation DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel9, _ Left(chaine, Len(chaine) - 4), _ chemin & chaine, True ' on boucle sur le fichier suivant chaine = Dir Loop End Sub
Pour la suppression du fichier xls après importation, voir la commande Kill chemincomplet+nomfichier+extension
Salut,
Y-a t-il une procédure pour importer plusieurs fichier Excel. En fait pour l'importation je sais faire, il me faudrait une fonction pour récupérer tout les fichier XLS d'un répertoire Après lecture le fichier en question serait effacé. Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il n'y plus de fichier xls dans mon répertoire. Si quelqu'un peu m'indiquer comment faire D'avance merci Didier
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
wanadoo
Merci je pense que cela devrait être bon
"Eric" wrote in message news:
Bonjour,
Un début : Sub xx() Dim chemin As String, chaine As String ' Chemin à adapter chemin = CurrentProject.Path & "" chaine = Dir(chemin & "*.xls") Do While chaine <> "" ' Importation DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel9, _ Left(chaine, Len(chaine) - 4), _ chemin & chaine, True ' on boucle sur le fichier suivant chaine = Dir Loop End Sub
Pour la suppression du fichier xls après importation, voir la commande Kill chemincomplet+nomfichier+extension
Salut,
Y-a t-il une procédure pour importer plusieurs fichier Excel. En fait pour l'importation je sais faire, il me faudrait une fonction pour
récupérer tout les fichier XLS d'un répertoire Après lecture le fichier en question serait effacé. Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il n'y
plus de fichier xls dans mon répertoire. Si quelqu'un peu m'indiquer comment faire D'avance merci Didier
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci je pense que cela devrait être bon
"Eric" <f_framZZ@hotmail.com> wrote in message
news:e30xUsgQGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjour,
Un début :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
' Importation
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub
Pour la suppression du fichier xls après importation, voir la commande
Kill chemincomplet+nomfichier+extension
Salut,
Y-a t-il une procédure pour importer plusieurs fichier Excel.
En fait pour l'importation je sais faire, il me faudrait une fonction
pour
récupérer tout les fichier XLS d'un répertoire
Après lecture le fichier en question serait effacé.
Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il
n'y
plus de fichier xls dans mon répertoire.
Si quelqu'un peu m'indiquer comment faire
D'avance merci
Didier
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un début : Sub xx() Dim chemin As String, chaine As String ' Chemin à adapter chemin = CurrentProject.Path & "" chaine = Dir(chemin & "*.xls") Do While chaine <> "" ' Importation DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel9, _ Left(chaine, Len(chaine) - 4), _ chemin & chaine, True ' on boucle sur le fichier suivant chaine = Dir Loop End Sub
Pour la suppression du fichier xls après importation, voir la commande Kill chemincomplet+nomfichier+extension
Salut,
Y-a t-il une procédure pour importer plusieurs fichier Excel. En fait pour l'importation je sais faire, il me faudrait une fonction pour
récupérer tout les fichier XLS d'un répertoire Après lecture le fichier en question serait effacé. Je pense qu'il faut utiliser la fonction for each.... jusqu'a ce qu'il n'y
plus de fichier xls dans mon répertoire. Si quelqu'un peu m'indiquer comment faire D'avance merci Didier
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
