Faire la somme sur tous les classeurs du répertoire

Bonjour,

Je dois "consolider" un tableau dont l'objectif est de calculer la somme de toutes les valeurs provenant d'une feuille nommée de la même façon dans tous les classeurs d'un répertoire.

Les données se trouvent sur une feuille nommée "ESAT" dans la plage B2:F12

Dans un classeur ouvert nommé CONSO2 J'ai une feuille nommée ConsoEsat et, sur cette feuille

J'ai un tableau de A1 à F13

En colonne A j'ai les mêmes données que sur les feuilles ESAT en colonne A sur ces feuilles

J'aimerais réussir à obtenir ce résultat : additionner toutes les valeurs sur toutes les feuilles ESAT pour reporter le total sur la feuille ConsoEsat

Ex :

en B2 sur la feuille CONSO2 : additionner toutes les valeurs contenus dans les fichiers du répertoire cible sur la feuille ESAT en B2

en C2 idem mais pour ESAT C2

en D2 idem mais pour ESAT D2

etc...

J'espère que c'est clair et que vous pourrez m'aider.

Merci

bonjour,

une proposition

Sub aargh()
    With ThisWorkbook.Sheets("consoesat")
        rep = "c:\documents\" 'à adapter
        nf = Dir(rep & "*.xls*")
        While nf <> ""
            If Not nf Like "*conso2*" Then
                Set wb = Workbooks.Open(nf)
                Set ws = wb.Sheets("esat")
                For i = 2 To 5
                    .Cells(2, i) = .Cells(2, i) + ws.Cells(2, i)
                Next i
                wb.Close False
            End If
            nf = Dir
        Wend
    End With
End Sub

Bonjour,

Merci pour votre aide,

est-il possible d'exclure 2 fichiers l'un nommé TEMSO l'autre ISI4 ?

Merci

bonjour,

adapter cette ligne (non testé)

If Not (nf Like "*conso2*" or nf like "*TEMSO*" or nf like "*ISI4*") Then

Super, j'ai pu adapter pour récupérer l'addition de toutes les valeurs...

Un énorme merci.