Macro VBA Automatisation

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.

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 :)

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 :/

Code:

---

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.

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

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 ^^

Bonjour,

Pour ma part, la formulation doit d'abord se porter sur tableur (Comme qui dirait, "Penser d'abord Excel") afin d'être validée
Ce n'est qu'ensuite que le code doit être rédigé en conséquence.

Pour ce faire:
1 -EXCEL tableur: Ecrire la formulation sur la feuille (exemple en A1)
2 -Editeur VBE:
2-a Afficher la fenêtre Exécution (CTRL + G)
2-b Ecrire sans oublier le point d'interrogation

Code:

---

?Worksheets("nomdelafeuille").Range("A1").Formula

---

2-c Activer la touche Entrée: la fenêtre affichera cette formule
2-d Par un simple copier coller, reporter cette formule en l'encadrant de double quottes pour paramétrer une propriété Formula (non Formulalocal)
(Remarque, si une paire double quottes se trouve à l'intérieur de la formule, alors elles devront être dédoublées)
2-e Pour une formulation utilisant un classeur externe, mieux vaut coller cette valeur

Code:

---

1 2 3 4

With Worksheets("nomdelafeuille").Range("A1") .Formula = "laformule" .Value = .Value End With

---

Remarque:
L'objet de la discussion est la formulation.

Pour autant, aurait pu être utilisée la méthode

Code:

---

Evaluate

---

Code:

---

Worksheets("nomdelafeuille").Range("A1").Value = Evaluate("laformule")

---

Exemple:

Code:

---

Worksheets("nomdelafeuille").Range("A1").Value = Evaluate("=2+2")

---

J'essaye, mais indice n'appartient pas la selection... set wbt
Je suis éclaté en vba sorry

En fait il ne faut pas qu'il y ai de formule dans le tableau excel :
-en fait la macro fais le calcul, les données se trouvent dans un fichier excel différent, ce résultat il le colle dans un autre fichier excel.... Le résultat en brut, non pas une formule qui est inscrite dans mon fichier ecxel de travail.

Genre on a fichier A et B, B est mon fichier de travail et A fichier de données.

Maco VBA a executer dans Dans B : La macro va chercher les données dans fichiers A feuille S, fais le somme Si (condition = "1 - Method 1") et le résultat obtenu de la somme la colle dans la cellu "C77" de la feuille Z du fichier excel B.

Salut,

Citation:

---

indice n'appartient pas la selection... set wbt

---

Pour affecter une variable à un objet, mieux vaut désigner nommément (ou presque) celui-ci.

Si le classeur est celui venant d'être ouvert

Code:

---

Set wbt = ActibeWorkbook

---

Sinon

Code:

---

Set wbt = Workbooks("nom du classeur")

---

Salut,

Maintenant, je reviens sur la formulation par une remarque.

Pour plus de clarté, et donc de souplesse, il peut être opportun d'affecter la formule à une variable de type String.
Celle-ci sera ensuite le paramètre de la propriété Formula.

Code:

---

1 2 3 4

Dim maformule As String maformule = "=2+2"   Range("A1").Formula = maformule

---

Idem pour

Code:

---

Evaluate

---

Bon week-end à vous, Bon week-end au Forum.

(Je préfère exposer un post par question)

Citation:

---

En fait il ne faut pas qu'il y ai de formule dans le tableau excel :
-en fait la macro fais le calcul, les données se trouvent dans un fichier excel différent, ce résultat il le colle dans un autre fichier excel.... Le résultat en brut, non pas une formule qui est inscrite dans mon fichier ecxel de travail.

---

En effet, c'est plus prudent.

Voir ma remarque

Ou

Code:

---

.Value = .Value

---

Ou directement

Code:

---

.Value = Evaluate("laformule")

---

Merci a tout pour vos conseils et vos reponses, je vous en suit reconaissant...
Mais je suis tellement fort que j'y arrive pas :ptdr:

Bonjour Tzarist, Bonjour le Forum,

Citation:

---

Mais je suis tellement fort que j'y arrive pas

---

Dans ce cas, il te faudrait être plus précise.

Dans mon premier post, je t'ai exposé un processus.

Quelle étape pose problème,
Eventuellement, quelle ligne de code (surlignée généralement en jaune), s'arrête le débugger?
Quel message d'erreur?

Reporte donc ton code dans son intégralité en précisant le(s) points d'achoppement.

On va y arriver.;)