Salut,
Je souhaiterais extraire des données de fichiers ".csv" se trouvant dans un répertoire donné.
Pour ce faire, je cherche à ouvrir tous les fichiers les uns après les autres.
J'avais déjà sollicité votre aide pour une macro similaire, mais avec des fichiers ".xls". Le code était :
With Application.FileSearch
.NewSearch
' "Chemin d'accès au répertoire"
.LookIn = "C:\Tmp"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Mais cette fois ça ne fonctionne pas. J'ai l'impression qu'il n'ouvre pas les fichiers. Est-ce parcequ'il s'agit de ".csv" ?
Merci d'avance pour votre aide et excellente année 2009.
Fab
NB : J'ai Excel 2002 en anglais
Je souhaiterais extraire des données de fichiers ".csv" se trouvant dans un répertoire donné.
Pour ce faire, je cherche à ouvrir tous les fichiers les uns après les autres.
J'avais déjà sollicité votre aide pour une macro similaire, mais avec des fichiers ".xls". Le code était :
With Application.FileSearch
.NewSearch
' "Chemin d'accès au répertoire"
.LookIn = "C:\Tmp"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Mais cette fois ça ne fonctionne pas. J'ai l'impression qu'il n'ouvre pas les fichiers. Est-ce parcequ'il s'agit de ".csv" ?
Merci d'avance pour votre aide et excellente année 2009.
Fab
NB : J'ai Excel 2002 en anglais