Discussion :

[Tzarist]

Bonjour Mme,Mr,

Je vous écris aujourd'hui car je suis confronté à un problème, dans excel nous avons la formule Somme.si mais celle ci ne fonctionne pas si on fais appel à des données dans un autre fichier excel,
il faut l'ouvrir pour que excel ne nous affiche pas #Valeur.

Pour éviter ce problème je voudrais faire une macro qui fais la somme de ce code excel :

=+SOMME.SI('C:\Users\Chari\Desktop\Données Booklet 2\2019\1A100G GROUPE XXX\[450527916_122018_CrcKO_20190614_arg_ErreurDonneesInstance.xlsx]s.35.01.04'!$C$13:$C$37;"1 - Method 1";'C:\Users\Chari\Desktop\Données Booklet 2\2019\1A100G GROUPE XXX\[450527916_122018_CrcKO_20190614_arg_ErreurDonneesInstance.xlsx]s.35.01.04'!$F$13:$F$37)

Et que une fois le calcul fais il me mette le résultat dans ma cellule précise dans la feuille précise...

En effet si on fais une macro, excel garde les données en brutes donc si je fais mettre a jour les liens ça me les réinitialise pas en #valeur...
Mais je galère à mort !
Depuis hier je suis bloqué sur cette broutille .

Je vous remercie.

[révèr]

Bonjour,

Tu peux utiliser la méthode .FormulaR1C1 à appliquer après l'objet Range - Il faudra écrire la formule en anglais.
Pour l'écrire dans la langue de ton Excel, il faudra utiliser la méthode .FormulaLocal - peut présenter un problème si ce classeur est utilisé par des personnes ayant une version Excel dans une autre langue.

Bien évidemment, à utiliser après l'ouverture du classeur dont tu prends les données

[Tzarist]

Bonjour Rever,

Merci pour ta réponse mais je suis débutant complet en VBA....
Je dois faire ce truc pour rendre mon travail ce soir mais je me rend compte que je sais pas faire du tout :/

[révèr]

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
Private Sub Test()
Dim Pathname as String
Dim Name as String
 
Pathname = "Chemin1...\"
Name = Nom_Classeur
 
Workbooks.Open(Pathname & Name & ".xlsx")
 
Set WbT = Workbooks(Name)
Set Wb = ThisWorkbook
'ThisWorkbook définit le classeur où le code est écrit
 
Wb.Sheets(1).Range("A1").FormulaLocal = "=SOMME.SI(WbT.Range("$C$13:$C$37");"1 - Method1";WbT.Range("$F$13:$F$37"))"
End Sub

Je ne garantis pas la réussite du code, je n'ai pas testé. Je ne sais surtout pas non plus à quoi correspond ce "1 - Method1". N'hésite pas à utiliser le mode pas à pas pour vérifier, si Débogage, les valeurs prises par chacune des variables.

[Tzarist]

Merci beaucoup je teste tout de suite, le "1 - Formula 1" c'est le critère qu'il y a dans la case... un truc de calcul d'actuaires... mais que je prend comme condition ici faut que dans la case C.. il y ait ca pour que il fasse l'addition

[révèr]

Je pense que tu as tous les outils en main pour le coup.

Tu as juste à faire attention que tes fichiers s'ouvrent bien. Commence déjà juste avec l'ouverture du classeur sans écrire le .FormulaLocal. Mieux vaut limiter la portée des erreurs tant qu'on peut. Il est plus facile de corriger quelque chose sur 2 lignes que si on écrit 60 lignes en brut ... Bon y'en a pas 60 mais tu as compris l'idée ^^