Microsoft 365 Ajouter le nom d'un onglet dans formule

[Fanaouer]

Bonjour,

J'aimerais savoir si l'on peut ajouter dans une formule le nom d'un ongle selon une cellule.

Exemple: (=+'[Base création (ID 214665).xlsm]Répétition10608|Bilan|'!$R$6) voici ma formule.

Je m'explique j'ai en A1 le nom de l'onglet inscrit dedans.

Le nom du fichier et figer, mais le nom de l'onglet évolue suivant la feuille ou je suis, j'aimerais donc l'ajouter selon une formule. Qu'il aille chercher "Répétition10608|Bilan|'!" dans une cellule ce qui me permet de lui attribuer un autre onglet en faisant un changeant dans la cellule.

J'espère que je suis clair.

Merci d'avance pour vos réponses.

 

[sylvanu]

Bonjour Fanaouer,
Essayez avec Indirect :
=Indirect("+'[Base création (ID 214665).xlsm]" & A1 & "'!$R$6")
si A1 contient Répétition10608|Bilan|
Mais difficile de tester sans fichier test.

 

[Fanaouer]

Cela ne fonctionne pas mais en effet sans fichier exemple je vous complique la tâche.

Donc voici

La formule est dans le Fichier exemple

 

[JHA]

Bonjour à tous,

Que vient faire le "+" dans la formule?
A essayer avec les fichiers ouverts

=INDIRECT("'[Base création (ID 214665).xlsm]" & A1 & "'!$R$6")

JHA

 

[sylvanu]

Bonjour à tous,
Le problème est votre caractère : |
Remplacez le par -
En PJ avec un onglet appelé : Répétition10608-Bilan
( surement que ce symbole est considéré comme un caractère spécial dans une formule )

 

[chris]

Bonjour à tous

A noter qu'INDIRECT ne fonctionne que si le fichier lié est ouvert...

 

[JHA]

Bonjour à tous,
Bonjour @sylvanu 🙂
Bonjour @chris 🙂

La formule proposée en #4 fonctionne très bien avec l'écriture en "A1" ("Répétition10608|Bilan|")

L'essai a été fait avec les 2 fichiers ouverts comme précisé en #4.

JHA

 

[Fanaouer]

Bonjour à tous,

Que vient faire le "+" dans la formule?
A essayer avec les fichiers ouverts

=INDIRECT("'[Base création (ID 214665).xlsm]" & A1 & "'!$R$6")

JHA

Merci ça fonctionne

 

[chris]

RE

Bonjour @chris 🙂
L'essai a été fait avec les 2 fichiers ouverts comme précisé en #4.

oui je voulais juste préciser que c'est une condition sine qua non...

 

[job75]

Bonsoir Fanaouer, sylvanu, JHA, chris,

Téléchargez les fichiers joints dans le même dossier (le bureau).

La macro dans Fichier exemple(1).xlsm :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
If Application.CountA([B1:B4]) = 4 Then [D3] = "='" & [B1] & "[" & [B2] & "]" & [B3] & "'!" & [B4] Else [D3] = ""
Application.EnableEvents = True
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque de la feuille.

A+