C
Chemist
Guest
voici la macro que j'utilise elle fonctionne bien pour ouvrir les fichiers Cependant j'aimerais que les fichiers s'ouvrent de façon délimiter avec space et comma comme option.
Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche
' .LookIn = GetDirectory
.LookIn = 'e:\\répertoire'
.Filename = '*.z'
If .Execute > 0 Then
MsgBox .FoundFiles.Count & ' Fichier(s) a (ont) été trouvé(s).'
For I = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(I)
Cells.Select
Selection.Columns.AutoFit
ActiveWindow.LargeScroll Down:=4
Range('K142').Select
On Error Resume Next
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With
End Sub
Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche
' .LookIn = GetDirectory
.LookIn = 'e:\\répertoire'
.Filename = '*.z'
If .Execute > 0 Then
MsgBox .FoundFiles.Count & ' Fichier(s) a (ont) été trouvé(s).'
For I = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(I)
Cells.Select
Selection.Columns.AutoFit
ActiveWindow.LargeScroll Down:=4
Range('K142').Select
On Error Resume Next
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With
End Sub