Discussion :

[lbournez]

Bonjour,
Je suis en panne avec le code suivant : ActiveCell.FormulaR1C1 = "='[Fichier Extraction.xlsx]'&'[Ref]'!R5C1"
Je veux copier les données de la colonne A de la feuille qui correspond à la valeur de la variable "Ref" du fichier "Fichier Extraction.xlsx" pour les enregistrer dans mon fichier que j'utilise. Dans le cas présent, la variable Ref a pour valeur Feuil1.
Comment avoir le même effet que le code ActiveCell.FormulaR1C1 = "='[Fichier Extraction.xlsx]Feuil1'!R5C1" où je voudrais pouvoir remplacer Feuil1 par le nombre d'une autre feuille ?
Merci par avance pour la réponse
Luc

[Philippe Tulliez]

Bonjour,
En VBA, la fonction Replace permet de remplacer une chaine de caractères par une autre

Exemple :

Code :

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

 MsgBox Replace("Ceci est la feuille [Ref]", "[Ref]", "Feuil1")

[lbournez]

Bonjour,
En VBA, la fonction Replace permet de remplacer une chaine de caractères par une autre

Exemple :

Code :

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

 MsgBox Replace("Ceci est la feuille [Ref]", "[Ref]", "Feuil1")

Mon problème est l'utilisation de la valeur de la variable Ref dans la formule de façon à ce qu'elle fonctionne comme si j'avais :
ActiveCell.FormulaR1C1 = "='[Fichier Extraction.xlsx]Feuil1'!RC1"
Je voudrais transformer cette dernière pour fonctionner avec la valeur de Ref qui peut être différente de Feuil1

[Philippe Tulliez]

Bonjour,
"[Ref]" comme vous l'avez écrit dans le code publié ne peut être une variable.
Si vous voulez utiliser une ou plusieurs chaines de caractères combinées à une variable, il faut alors utiliser l'opérateur de concaténation "&" comme "='[Fichier Extraction.xlsx]" & SheetName & "'!RC1" où la variable SheetName contient le nom de la feuille

[lbournez]

Bonjour,
"[Ref]" comme vous l'avez écrit dans le code publié ne peut être une variable.
Si vous voulez utiliser une ou plusieurs chaines de caractères combinées à une variable, il faut alors utiliser l'opérateur de concaténation "&" comme "='[Fichier Extraction.xlsx]" & SheetName & "'!RC1" où la variable SheetName contient le nom de la feuille

Merci beaucoup pour cette solution qui me convient.