Discussion :

[Cousinhub44]

Bonjour à tous,

Je suis à la recherche d'une macro qui calculerai la somme d'une même cellule présente dans plusieurs fichiers Excel.

En gros, dans la cellule A1 d'un fichier appelé Total, je voudrais obtenir la somme de toutes les cellules B1 de tous les fichiers ABCD*.xlsm présents dans le dossier D:\test.

Si qqs courageux sont motivés, cela m'aiderait bcp.

Merci d'avance,

[RyuAutodidacte]

Bonjour,

Si qqs courageux sont motivés, cela m'aiderait bcp.

Courageux oui, mais pas motivé pour faire le travail à ta place, de plus tu ne présentes aucun code que tu aurais entrepris …

Par contre tu peux voir du coté des boucles, pour pointer sur la cellule B1 de chaque fichier en utilisant ExecuteExcel4Macro (à faire correspondre à une variable, on trouve plein d'exemples avec une recherche).
Tu pourras alors additionner au fur et à mesure la cellule B1 de chaque fichiers dans ta boucle … pour donner le résultat final en A1

Voilà, je t'ai donné une direction afin que tu puisses commencer un code

Edit : ne connaissant pas le nom de tes fichiers l'utilisation de Dir serait approprié pour récupérer les noms de chaque fichiers
Bien sur on peut touver tous ces codes dans la faq ce qui mâche une partie du travail

Je repasserai qd tu auras présenté un code et expliqué la difficulté rencontrée si il y en a une

[Menhir]

Je suis à la recherche d'une macro qui calculerai la somme d'une même cellule présente dans plusieurs fichiers Excel.
En gros, dans la cellule A1 d'un fichier appelé Total, je voudrais obtenir la somme de toutes les cellules B1 de tous les fichiers ABCD*.xlsm présents dans le dossier D:\test.

Tu utilises une boucle While pour scruter tous les fichiers d'un répertoire.
https://msdn.microsoft.com/fr-fr/VBA...wend-statement
Pour avoir les noms de fichiers, utilise la fonction Dir.
https://msdn.microsoft.com/fr-fr/VBA...s/dir-function
Pour chaque fichier, tu ouvres le fichier avec Workbooks.Open.
https://msdn.microsoft.com/fr-fr/vba...n-method-excel
Tu additionnes la valeur de la cellule cible à celle se trouvant déjà dans la cellule total.
Tu fermes le fichier avec un Close.
https://msdn.microsoft.com/fr-fr/vba...e-method-excel

Si qqs courageux sont motivés, cela m'aiderait bcp.

Il est étrange de constater que tous ceux qui écrive de telles formules dans leur message, ne semblent ni courageux, ni motivés...

[Cousinhub44]

Voici ce que j'ai à ma disposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Explicit
Sub Creer_extract()
    Dim wbRecap As Workbook         'fichier recap
    Dim Etatcomptable As Worksheet        'feuille où on écrit les données
    Dim wbSource As Workbook        'fichier à ouvrir
    Dim wsSource As Worksheet       'feuille où on cherche les données
    Dim DernLign As Integer         'ligne où on écrit les données
    Dim vFichiers As Variant        'noms des fichiers
    Dim i As Integer, k As Integer
    Dim rgRecap As Range            'plage où on copie les données
Set wbRecap = ThisWorkbook("essai")       'Fichier récapitulatif
       Set wsRecap = wbRecap.Sheets("Feuil1")  'on écrit dans la feuille 1 du fichier récapitulatif
' --- Ouvrir boite de dialogue pour sélectionner les fichiers à ouvrir
    On Error Resume Next
Set vFichiers = Application.FileSearch
   With vFichiers
    .LookIn = "D:\Reporting" 'Dossier dans lequel chercher les fichiers
    .Filename = "*.xlsm" 'Extension des fichiers a trouver
End With
' --- Vérifier qu'au moins un fichier à été sélectionné
If Not IsArray(vFichiers) Then
        Debug.Print "Aucun fichier sélectionné."
        MsgBox "Erreur! Aucun fichier sélectionné."
        Exit Sub
End If
On Error Resume Next
Application.ScreenUpdating = False
' --- Boucle à travers les fichiers
For k = 1 To UBound(vFichiers)
    Application.StatusBar = ">> Lecture du fichier #" & k & "/" & UBound(vFichiers)
' C'est ici qu'on écrit les instructions
Set wbSource = Workbooks.Open(vFichiers(k))                        'on ouvre le fichier
Set wsSource = wbSource.Sheets("Rapport")                                  'on copie les données de la feuille 1 des fichiers présent dans le dossier
DernLign = wbRecap.Sheets("Feuil1").Range("A1000").End(xlUp).Row + 1     'ligne pour écrire le log des fichiers compilés
' - On copie les données vers le fichier Recapitulatif
Set rgRecap = wsRecap.Range("A1000").End(xlUp).Offset(1, 0)
    rgRecap = Time
With wsSource
    .Cells(NumeroLigne, 1) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H7")
    .Cells(NumeroLigne, 2) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H8")
    .Cells(NumeroLigne, 3) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H9")
    .Cells(NumeroLigne, 4) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H10")
    .Cells(NumeroLigne, 5) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H11")
    .Cells(NumeroLigne, 6) = ExtraireValeur(DossierOk, NomFichier, NomFeuille, "H12")
End With
wbSource.Close              'fermer fichier
Set wbSource = Nothing
Next k
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Function Selectionner_Fichiers(sTitre As String) As Variant
Dim sFiltre As String, bMultiSelect As Boolean
sFiltre = "Fichiers XYZ (.xls)(.xlsm), *.xls*"
bMultiSelect = True 'Permet de choisir plusieurs fichiers à la fois
Selectionner_Fichiers = Application.GetOpenFilename(Filefilter:=sFiltre, Title:=sTitre, MultiSelect:=bMultiSelect)
End Function
 
 
Private Sub CommandButton1_Click()
    Creer_extract
End Sub

J'ai une erreur à la ligne Set wbRecap (Erreur de compilation, variable non définie)

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wbRecap = ThisWorkbook("essai")       'Fichier récapitulatif

J'ai une erreur à la ligne Set wbRecap (Erreur de compilation, variable non définie)

C'est normal : ThisWorkbook désigne le fichier dans lequel se trouve la macro. Il n'a pas besoin de nom.
https://msdn.microsoft.com/library/0...ice.15%29.aspx

Je ne sais pas pourquoi mais j'ai la désagréable impression que tu as récupéré un code sur un site quelconque sans trop savoir ce qu'il fait (et sans avoir cherché à l'étudier) et que tu l'as balancé tel quel ici, en te disant que tu allais trouvé des personnes pour le transformer en quelque chose qui réalise ton besoin, mais sans vraiment participer toi-même à ce travail...
J'espère que je me trompe, sinon, ça ne va pas aller bien loin.

[Cousinhub44]

Oui, j'ai évidement récupéré des infos à droite et à gauche. Quand on cherche, on va voir plein de trucs existants, on bidouille et j'essaie vraiment de comprendre mais je ne suis pas un expert vba. Je fais ce que je peux.

[unparia]

Bonjour Cousinhub44

Quand on cherche, on va voir plein de trucs existants, on bidouille

Juste une question (je suis très curieux)

Que ferait le responsable de service informatique que tu es (ton profil) si l'un des utilisateurs de son service faisait à peine le millième de ce qu'il fait là ?
La réponse est dans la question.

EDIT : et j'ose à peine te demander si tu sais ce que ferait le chef d'un organisme s'il découvrait que le responsable de service informatique agissait ainsi....

[Menhir]

Oui, j'ai évidement récupéré des infos à droite et à gauche. Quand on cherche, on va voir plein de trucs existants, on bidouille et j'essaie vraiment de comprendre mais je ne suis pas un expert vba. Je fais ce que je peux.

Et prendre un peu de temps pour te former aux bases de ce langage n'est pas une option envisageable ? http://bidou.developpez.com/article/VBA/