XL 2019 Somme de cellules

Marine_blatz

XLDnaute Nouveau
Bonjour,

j'aurai besoin de votre aide svp

Dans la cellule E2 de la feuille tableau du classeur investissements, je souhaite faire la somme suivante

Somme de: C168 -->De tout les mois (janvier:decembre) -->de chaque classeur portant le terme "gestion_"*

je vous laisse un document ci joint pour effectuer la macro en question si vous pouviez la nommer "somme_RAI" cela serait sympatique

merci d'avance Marine.B

Pièces jointes​

 

Pièces jointes

  • Gestion_2021.xlsx
    391.5 KB · Affichages: 18
  • Investissements.xlsm
    220.8 KB · Affichages: 7

Hasco

XLDnaute Barbatruc
Repose en paix
Re bonjour,

Je vous ai répondu dans l'autre fil :

Cordialement
 

job75

XLDnaute Barbatruc
Bonjour Marine_blatz, Roblochon, le forum,

Téléchargez les fichiers joints dans le même dossier (le bureau).

Puisqu'il faut regrouper toutes les sommes en Tableau!E2 on utilise cette macro dans ThisWorkbook :
VB:
Private Sub Workbook_Activate()
Dim chemin$, fichier$, v, s#
chemin = Me.Path & "\"
fichier = Dir(chemin & "gestion*.xlsx")
While fichier <> ""
    v = ExecuteExcel4Macro("SUM('" & chemin & "[" & fichier & "]" & "Janvier:Décembre'!R168C3)") 'formule de liaison sur C168
    If IsNumeric(v) Then s = s + v
    fichier = Dir
Wend
Sheets("Tableau").[E2] = s 'restitution
End Sub
Elle se déclenche quand on ouvre ou active le fichier.

A+
 

Pièces jointes

  • Investissements(1).xlsm
    228.2 KB · Affichages: 2
  • Gestion_2021.xlsx
    391.5 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof