Cette dernière leçon du module combine Dir() et Workbooks.Open pour additionner automatiquement la récolte totale de plusieurs exploitations partenaires, chacune suivie dans son propre classeur.

Sub ConsoliderRecoltes()
    Dim nomFichier As String
    Dim classeurExploitation As Workbook
    Dim recolteTotale As Double
    recolteTotale = 0

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

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

    MsgBox recolteTotale
End Sub

Le premier appel Dir("C:\Exploitations\*.xlsx") ne renvoie que les fichiers se terminant par .xlsx ; chaque classeur trouvé est ensuite ouvert, sa récolte totale en B1 ajoutée au cumul général, puis refermé sans être modifié avant de passer au fichier suivant.

À vous de jouer : adaptez cette macro pour ne consolider que les exploitations dont le nom de fichier contient l'année en cours, en combinant Dir() avec un test sur le nom de fichier.