Consolidation des données plusieurs classeurs
vertzia
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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?
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?
Configuration: Windows XP Firefox 3.0.11
1 réponse
-
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
