Bonjour à tous voici quelques lignes de code qui devraient ouvrir les fichiers du dossier C:\tmp\macro\moulin\fic\ seulement ca marche pas.
Ces fichiers sont des fichiers .csv et sont en nombre variable ( géneralement une dizaine )
Pouvez vous m'aider Merci
Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:\tmp\macro\moulin\fic\"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Next F
End With
Ces fichiers sont des fichiers .csv et sont en nombre variable ( géneralement une dizaine )
Pouvez vous m'aider Merci
Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:\tmp\macro\moulin\fic\"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Next F
End With