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
Sub OuvreCSV()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:\tmp\macro\moulin\fic\"
[COLOR=blue].Filename = "*.csv[/COLOR]"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Next F
On Error GoTo 0
End With
End Sub
Bonjour il reste un dernier petit point que je viens de decouvrir !
Les fichiers .csv s'ouvrent bien mais les separateurs ; sont ignorés.
les champs du fichier sont sur une colonne au lieu de x colonnes ( separateur csv j'ai essayer dans le code :
For Each F In .FoundFiles
Workbooks.Open Filename:=F, Delimiter:=";"