FormuleR1C1:appel de l'onglet par sa position et non son nom

Bonjour,

Je voudrais remplacer le nom de l'onglet blablabla (qui change souvent) par sa position dans la feuille (premier onglet ou deuxième onglet ...) mais je ne sais pas comment faire :

ActiveCell.FormulaR1C1 = "='[History.xlsx]blablabla'!R2C62"

Merci bien !

Daniel

Bonjour,

Est ce que cela t'aiderais :

Dim shName as string
dim x as integer
x=ActiveCell.Parent.Index
shName=thisworkbook.sheets(x).name
ActiveCell.FormulaR1C1 = "='[History.xlsx]" & shName & "'!R2C62"

Merci pour ta réponse mais lorsque je lance ton script j'ai erreur 1004 application-defined or object-defined error

J'ai modifié un petit truc, j'ai testé chez moi et cela fonctionne,

Ou as tu placé le code?

Dim shName as string
dim x as integer
x=ActiveCell.Parent.Index
shName=thisworkbook.sheets(x).name
ActiveCell.FormulaR1C1 = "='[" & thisworkbook.name & "]" & shName & "'!R2C62"

 

Oui merci on y est Presque, ça marche mais dans mon cas :

x ne doit pas être l'index de la cellule active mais l'index du fichier HISTORY (qui n'est pas le workbook dans le lequel j'applique FormulaR1C1)

Est-ce que je m'exprime bien ?

Dim wbName as String
Dim shName as string
Dim x as integer
wbName="HISTORY.xlsx"
x=Workbooks(wbName).Worksheets("NomDeLongletConcerné").Index 'à compléter
shName=Workbooks(wbName).sheets(x).name
ActiveCell.FormulaR1C1 = "='[" & wbName & "]" & shName & "'!R2C62"

 

Je n'ai pas testé , que cela donne t-il?

Parfait !

Merci Sylvie !

c'est qui Sylvie???

SylChat ?

Je ne me suis pas encore travesti!!!!