XL 2019 Somme de cellules

[Marine_blatz]

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​

 

[Hasco]

Re bonjour,

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

XL 2019 - Somme de cellules depuis différents classeurs

Bonjour, j'aurai besoin de votre aide messieurs, et mesdame. 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...

www.excel-downloads.com

Cordialement

 

[job75]

Bonsoir Marine_blatz, Roblochon,

Curieux que ce soit le même problème que celui de ce fil :

https://www.excel-downloads.com/thr...llule-dans-un-fichier.20058116/#post-20437323

A+

 

[Hasco]

Bonjour,

Oui curieux...

cordialement

 

[job75]

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 :

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+