Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…