Complèter ma macro pour qu'elle ouvre les fichiers trouvés

Bonjour à tous ,

J'aurais besoin de votre aide pour compléter ma macro. Je veux créer une macro qui va à un emplacement de mes documents et qui ouvre tous les fichiers qui s'y trouvent, il y'en a que 3 généralement. J'arrive à aller jusqu'à leurs emplacements mais ma macro s'arrête là, j'aimerais pouvoir les ouvrir mnt. Voici mon début de code.

Sub OuvrirClasseur()

Dim strFichier As String

ChDrive ("J:")

ChDir "\jihane"

strFichier = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")

End Sub

Merci

Bonjour,

Cette macro ouvre tous les classeurs (xlsx) dans le répertoire que tu choisis :

Sub galopin()
Dim MyPath$, MyFile$, Rep As FileDialog
Set Rep = Application.FileDialog(msoFileDialogFolderPicker)
Rep.Show

MyPath = Rep.SelectedItems(1) & "\"
MyFile = Dir(MyPath & "*.xlsx")

Do While MyFile <> ""
   Workbooks.Open (MyPath & MyFile)
   MyFile = Dir
Loop
End Sub

ou encore pour reprendre ton embryon de code (sans possibilité de choix) :

Sub OuvrirClasseur()
Dim MyFile$, MyPath$

MyPath = "J:\jihane\"
MyFile = Dir(MyPath & "*.xlsx")

Do While MyFile <> ""
   Workbooks.Open (MyPath & MyFile)
   MyFile = Dir
Loop
End Sub

A+

Merci galopin01 ça marche super bien !!