Bonjour j'utilise cette macro pour ouvrir des fichiers dans un répertoire, cependant j'aimerais que l'utilisateur puisse choisir son répertoire avec l'arborescence des fichiers. j'aimerais également que mon fichier finale soit enregistrer dans ce même répertoire
Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche
' .LookIn = GetDirectory
.LookIn = 'c:répertoire'
.Filename = '*.z' (format de mes fichier)
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 = 'c:répertoire'
.Filename = '*.z' (format de mes fichier)
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