Variable dans une formule pour autre fichier ouvert

Bonjour à tous

Je souhaiterais modifier une formule en y intégrant un nom de fichier variable
Je précise que le fichier "Devis Facture" change de nom après saisie, mais je veut pouvoir le modifier tout en interagissant avec les fichier "clients"
Ce qui marche sans la variable

Code:

---

ActiveCell.FormulaR1C1 = "='[Devis facture.xlsm]Menu'!R14C19"

---

En sachant que plus haut j'ai la formule dans une variable String

Code:

---

Form1 = Range("R28").Value

---

Je précise également que cette formule et issue d'une concaténation
[Devis facture.xlsm]Menu'!R14C19

Le Code qui ne fonctionne pas est :

Code:

---

Worksheets("Clients").Range("D7").Formula = "='" & Form1

---

Quand j’essaie Excel m'ouvre une boite de dialogue (mettre à jour le fichier)
Quelqu'un aurait il une idée?


Cordialement Eric

Bonjour,
La lecture de ce billet t'inspirera peut-être Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2).

Bonjour et merci de votre réponse

J'ai tenté de doubler les " mais ça me renvoie faux dans la cellule cible

Après j'avoue que ce qui est expliqué après dans le tuto dépasse mes compétences. :oops:

Cordialement Eric

Bonjour,

Ce pourrait être intéressant de savoir ce qu'il y a exactement dans la cellule "R28" ??


http://garbe.joel.free.fr

Bonjour,

Citation:

---

J'ai tenté de doubler les " mais ça me renvoie faux dans la cellule cible

---

Si tu affichais le code, ce serait plus simple pour t'aider.

Citation:

---

Après j'avoue que ce qui est expliqué après dans le tuto dépasse mes compétences

---

J'explique simplement dans ce billet comment remplacer des balises qui représentent les parties variables (ce que tu cherches à faire) par les valeurs variables grâce à la fonction Replace

Exemple simple
Imaginons un texte qui contiendrait une partie constante et une partie variable.
La partie constante "Je m'appelle " et la partie variable est le prénom par exemple "Jean" ou "Pierre"
En VBA sous forme de fonction

Code:

---

1 2 3 4

Function ReplaceBalise(FirstName As String) As String Const txt As String = "Je m'appelle <Prenom>" ReplaceBalise = Replace(txt, "<Prenom>", FirstName) End Function

---

et la petite procédure pour l'invoquer

Code:

---

1 2 3

Sub Test() MsgBox ReplaceBalise("Pierre") End Sub

---

Re

Grâce à vos réponses j'ai fini par trouver :roll:

Code:

---

Workbooks("Clients.xlsm").Worksheets("Clients").Range("D7").FormulaR1C1 = "='[" & nomfichier & "]Menu'!R14C19"

---

En fait au départ je mettait la formule complète dans la variable "form1"

En fait il fallait extraire le nom du fichier et l'inclure entre & sans oublier les balises"

Cordialement Eric