Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Somme de cellules dans differents classeurs

Somme de cellules dans differents classeurs

5 réponses
Avatar
ruiz
Bonjour,
je fais ce calcul qui marche de cellules d'un autre classeur:
A1=somme(c:\dossier\raffy\[raffy1.xls]Feuil1'!G1:G2000)
mais je voudrais juste que le nom du classeur change en fonction d'une
cellule A2
j ai essayé ça mais ça me retourne 0 :
A1=SOMME(CONCATENER("c:\dossier\raffy\";A2;"Feuil1'!G1:G2000)
A2=[raffy1.xls]

merci de votre aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Si le fichier Raffy1.xls est ouvert:

=SOMME(INDIRECT("[" &A2 & "]Janvier!G1:G2000")) ' A2 contient
Raffy1.xls

Si le fichier Raffy1.xls n'est pas ouvert:

http://xcell05.free.fr/

=INDIRECT.EXT(Référence;Volatile;Style A1)

Cordialement JB
Avatar
ruiz
merci jb
mais peux-tu préciser référence, volatile et style A1....??

ruiz


Bonjour,

Si le fichier Raffy1.xls est ouvert:

=SOMME(INDIRECT("[" &A2 & "]Janvier!G1:G2000")) ' A2 contient
Raffy1.xls

Si le fichier Raffy1.xls n'est pas ouvert:

http://xcell05.free.fr/

=INDIRECT.EXT(Référence;Volatile;Style A1)

Cordialement JB




Avatar
JB
C'est une fonction personalisée développée par Longre:

http://xcell05.free.fr/pages/telecharge/index.html#Morefunc

JB
Avatar
JB
Autre solution:

PJ: http://cjoint.com/?benH6ubM10

Dès que le nom du classeur est saisi en B2, on écrit la formule en
C4:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
Application.EnableEvents = False
[C5].Formula = "=SUM([" & Target.Value & "]janvier!$B$2:$B$4)"
Application.EnableEvents = True
End If
End Sub

-Clic droit onglet
-Chercher événnement Change

Cordialement JB
Avatar
ruiz
nikel !

merci de votre efficacité.


Autre solution:

PJ: http://cjoint.com/?benH6ubM10

Dès que le nom du classeur est saisi en B2, on écrit la formule en
C4:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
Application.EnableEvents = False
[C5].Formula = "=SUM([" & Target.Value & "]janvier!$B$2:$B$4)"
Application.EnableEvents = True
End If
End Sub

-Clic droit onglet
-Chercher événnement Change

Cordialement JB