Discussion :

[Zarkann]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[Zarkann]

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.

Cordialement Eric

[EBRAG]

Bonjour,

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


http://garbe.joel.free.fr

[Philippe Tulliez]

Bonjour,

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
 MsgBox ReplaceBalise("Pierre")
End Sub

[Zarkann]

Re

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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