Cette leçon combine Dir() et Workbooks.Open pour ouvrir automatiquement tous les fichiers Excel d'un dossier de succursales, en extraire un total, puis les refermer un par un.

Sub ConsoliderSuccursales()
    Dim nomFichier As String
    Dim classeurSource As Workbook
    Dim totalGeneral As Double
    totalGeneral = 0

    nomFichier = Dir("C:\Succursales\*.xlsx")

    Do While nomFichier <> ""
        Set classeurSource = Workbooks.Open("C:\Succursales\" & nomFichier)
        totalGeneral = totalGeneral + classeurSource.Worksheets(1).Range("B1").Value
        classeurSource.Close SaveChanges:=False
        nomFichier = Dir()
    Loop

    MsgBox totalGeneral
End Sub

Chaque fichier .xlsx du dossier "Succursales" est ouvert tour à tour, sa valeur en B1 de la première feuille est ajoutée au total général, puis le classeur est refermé avant de passer au fichier suivant renvoyé par Dir().

À vous de jouer : dans vos propres mots, expliquez pourquoi la macro referme chaque classeur source (Close SaveChanges:=False) avant de passer au fichier suivant, plutôt que de laisser tous les classeurs ouverts jusqu'à la fin de la boucle.