Bonjour ,
J'ai trouvé pas mal de code mais je n'arrive pas à adapter.
Je voudrais dans un premier temps parvenir à ouvrir exclusivement des fichiers xlsx, dont le nom contient le mot "moi", et ce trouvant dans le dossier "Details". Et ce, à partir du fichier "Production.xlsm".
Je voudrais en gros ouvrir ces fichiers l'un après l'autre, extraire des données et ensuite refermer pour passer au suivant.
Sub Boucle_Fichiers_Dossier()
'ouvrir à partir de ce fichier tous les fichiers excel se trouvant dans le même répertoire
Dim Fichier As String, Chemin As String, Wb As Workbook
Chemin = ThisWorkbook.Path
Fichier = Dir(Chemin & "\*.xlsx*")
'boucle pour ouvrir les fichiers excel uniquement
Do
If Fichier = "" Then Exit Do
If Fichier <> "MonFichier.xlsm" Then
Set Wb = Workbooks.Open(Chemin & "\" & Fichier)
'suite de la procedure
MsgBox Fichier & " est ouvert"
Application.DisplayAlerts = False
Wb.Close True
Application.DisplayAlerts = True
Set Wb = Nothing
End If
Fichier = Dir()
Loop
End Sub
Merci beaucoup.