XL 2019 Ouverture de tous les classeurs d'un dossier avec macro

[barth66]

Bonjour ,

je souhaiterai avoir une macro me permettant simplement d'ouvrir tous les classeurs d'un dossier depuis un autre classeur, en sachant que les classeurs sont dans C:\Users\barth66\Desktop\Test commandes

Je vous assure avoir chercher sur beaucoup de forum mais je ne trouve rien de simple et qui s'adapte...

Merci pour votre aide,

Bonne journée,

Cdt,

 

[Santulud]

Bonjour,

essaye ça

Private Sub CommandButton1_Click()
Dim NomFichier As String, CheminFichier As String
Dim FichierOpen As String
Application.DisplayAlerts = False

CheminFichier = "C:\Users\barth66\Desktop\Test commandes\"
NomFichier = Dir(CheminFichier)
    Do While NomFichier <> ""
    
    FichierOpen = CheminFichier & NomFichier
         Workbooks.Open FichierOpen
             NomFichier = Dir
 
    Loop

End Sub

code affecté a un bouton

 

[barth66]

Bonjour,

essaye ça

Private Sub CommandButton1_Click()
Dim NomFichier As String, CheminFichier As String
Dim FichierOpen As String
Application.DisplayAlerts = False

CheminFichier = "C:\Users\barth66\Desktop\Test commandes\"
NomFichier = Dir(CheminFichier)
    Do While NomFichier <> ""
  
    FichierOpen = CheminFichier & NomFichier
         Workbooks.Open FichierOpen
             NomFichier = Dir

    Loop

End Sub

code affecté a un bouton

 

[barth66]

Parfait !!!

Merci beaucoup 🙂