formule variable VBA

Bonsoir le forum,

Voilà, je bloque sur ce problème VBA :

Code:

---

ActiveCell.FormulaR1C1 = "=MAX([10.xlsm]Comptabilité!C11)+1"

---

Je souhaiterai que le "10.xlsm" soit une valeur d'une cellule soit :

Code:

---

ActiveCell.FormulaR1C1 = "=MAX([sheets("reglages").range("a1")]Comptabilité!C11)+1"

---

J'ai tout essayé mais rien a faire.

Code complet pour comprendre :

Code:

---

1 2 3 4 5 6 7

orkbooks.Open Filename:=Sheets("réglages").Range("b5") & "Sources\Comptabilité\" & Sheets("réglages").Range("b8") & "\" & Sheets("réglages").Range("b7") & ".xlsm" Sheets("Comptabilité").Select Windows("Logiciel.xlsm").Activate Sheets("Réglages").Select Range("b15").Select ActiveCell.FormulaR1C1 = "=MAX([10.xlsm]Comptabilité!C11)+1" Windows(Sheets("réglages").Range("b7") & ".xlsm").Close

---

Pouvez vous m'aider?

Merci par avance

Bonsoir.

Tu peux essayer :

Code:

---

ActiveCell.FormulaR1C1 = "=MAX([" & Sheets("reglages").Range("a1") & "]Comptabilité!C11)+1"

---

Cordialement,

PGZ

Tout d'abord un grand merci d'avoir plongé sur mon problème.

Cependant, cela ne fonctionne pas...:calim2:

Au temps pour moi : je pense qu'il y avait un deuxième pb. Peux-tu essayer

Code:

---

ActiveCell.Formula = "=MAX([" & Sheets("reglages").Range("a1") & "]Comptabilité!C11)+1"

---

ou

Code:

---

ActiveCell.FormulaLocal = "=MAX([" & Sheets("reglages").Range("a1") & "]Comptabilité!C11)+1"

---

SI cela ne marche toujours pas, décris ce qui se passe.

Cordialement,

PGZ

Merci!

Erreur d’exécution 9, l'indice n'appartient pas à la sélection.

A savoir : a1 = 10 (donc ne contient pas l'extension XLSM)
Le 10 est automatique donc vari:zoubi:

Ce qui veut dire que la cellule ne contient pas ce que tu attends !

Soit tu ajoutes ".xlsm" dans la cellule, soit tu l'ajoutes dans la formule.

Code:

---

ActiveCell.Formula = "=MAX([" & Sheets("reglages").Range("a1") & ".xlsm]Comptabilité!C11)+1"

---

Cordialement,

PGZ

Bonjour!

J'ai fait les test mais toujours rien, même erreur.

Souhaite tu un ZIP exemple?

Autant pour moi, je me suis trompé sur l'orthographe.
Ton code est parfait.

Merci beaucoup de ton aide.

Affaire résolue