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

barth66

XLDnaute Junior
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

XLDnaute Occasionnel
Bonjour,

essaye ça

VB:
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

XLDnaute Junior
Bonjour,

essaye ça

VB:
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
 

Discussions similaires