XL 2019 Problème avec un nom de fichier

Attila451

XLDnaute Occasionnel
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.
 

Hasco

XLDnaute Barbatruc
Repose en paix
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.
 

TooFatBoy

XLDnaute Barbatruc
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)
 

Discussions similaires

Statistiques des forums

Discussions
313 265
Messages
2 096 665
Membres
106 703
dernier inscrit
cbl