Consolidation des données plusieurs classeurs

vertzia -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je cherche comment récupérer dans une feuille excel, la somme des cellules F36 de la feuille 1(par exemple) se trouvant dans plusieurs classeurs excel d'un même dossier?
A voir également:

1 réponse

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,

Ce problème a déjà été posé le 20 janvier demandeur: gilou....
dans le classeur "consolidation"

Sub consolider()
Dim total As Double, nbre As Double
Dim chemin As String, onglet As String
Dim fich As String

onglet = "feuil1"
chemin = ThisWorkbook.Path

ChDir chemin

fich = Dir("*.xls")
While fich <> ""
    If fich <> "consolidation.xls" Then
    nbre = ExecuteExcel4Macro("'" & chemin & "\[" & fich & "]" & onglet & "'!R20C11") 'R20C11==>cellule K20
    total = total + nbre
End If
fich = Dir
Wend

Range("C2") = total
End Sub


F36 ==> R36C6
1