XL 2019 Problème avec un nom de fichier

[Attila451]

Bonjour,
J'ai une formule qui doit s'adapter au nom du fichier en cours.
Pour simplifier, dans le fichier en cours : la cellule A1 / Feuille 1 = cellule A1 / Feuille 2

J'ai testé:
Dim fichierencours As String
fichierencours = ActiveWorkbook.Name

Workbooks("fichierencours").sheets(Feuil1).Cells(1, 2) = Workbooks("fichierencours").sheets(Feuil2).Cells(1, 2)

mais j'ai à chaque fois "l'indice n'appartient pas à la section"

Si je teste avec MsgBox fichierencours, j'ai bien le nom correct du fichier.

Comment procèder svp ?
Merci d'avance.

 

[mapomme]

Bonjour,

Essayez :

Workbooks("fichierencours").sheets("Feuil1").Cells(1, 2) = Workbooks("fichierencours").sheets("Feuil2").Cells(1, 2)

 

[Hasco]

Bonjour,

Sans doute parce que vous utilisez fichierencours avec des guillemets.
fichierencours est une variable contenant le nom du fichier, pas une chaîne de caractères.

Testez MsgBox "fichierencours" et vous verrez que la boîte vous affichera seulement "fichierencours"

Et pourquoi pas simplement ActiveWorkbook.sheets(Feuil1).Cells(1, 2), pourquoi passer par une variable.

Méfiez-vous de ActiveWorkbook qui peut ne pas être celui qui contient la macro (ThisWorkbook) mais n'importe quel classeur actif à l'instant T.

 

[Attila451]

Bonjour,
Merci pour vos retours !
@mapomme : non, ça ne passe pas, même avec les "" pour les feuilles que j'avais oublié de mettre.
@Hasco: effectivement, pourquoi chercher compliqué...
Bonne fin d'après midi à vous.

 

[Hasco]

Re,

La prochaine fois, joignez un fichier exemple représentatif de la situation et du problème.

 

[TooFatBoy]

Bonjour,

Il me semble que quand on ne précise pas le classeur, c'est le classeur actif qui est utilisé.

Donc, l'ensemble de lignes

Dim fichierencours As String
fichierencours = ActiveWorkbook.Name

Workbooks("fichierencours").sheets(Feuil1).Cells(1, 2) = Workbooks("fichierencours").sheets(Feuil2).Cells(1, 2)

deviendrait simplement

sheets(Feuil1).Cells(1, 2) = sheets(Feuil2).Cells(1, 2)