XL 2019 Problème avec un nom de fichier

Attila451 · 22 Mai 2023

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 · 22 Mai 2023

Bonjour,

Essayez :

VB:

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

Hasco · 22 Mai 2023

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 · 22 Mai 2023

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 · 22 Mai 2023

Re,

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

TooFatBoy · 22 Mai 2023

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

Attila451 à dit:
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)

XL 2019 Problème avec un nom de fichier

Attila451

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Attila451

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires