Office 365 Macro pour ouvrir un fichier et copier une feuille

luke3300

XLDnaute Impliqué
Bonjour le forum,

J'essaye de réutiliser un code que vous m'aviez concocté pour ouvrir un fichier "OLD_Test" et copier la feuille "Ancien odomètre" dans le fichier (ouvert) "Reb_Vans.xlsm", après la feuille "Base" mais je n'arrive pas à le faire fonctionner. Petit détail qui a son importance il me semble ... les 2 fichiers sont toujours dans le même dossier.

J'aimerais ceci comme résultat: 1570164598385.png
Et voici le code que j'utilise:

VB:
Private Sub ImportOLD_Click()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

vCible = ActiveWorkbook.Name
ChDir ThisWorkbook.Path
Workbooks.Open Filename:=ThisWorkbook.Path & "\OLD_Test.xlsx"
vSource = ActiveWorkbook.Name
Workbooks(vSource).Sheets("Ancien odomètre").Copy Before:=Workbooks(vCible).Sheets("Base")
vCache = ActiveSheet.Name
Workbooks(vSource).Close

End Sub
A chaque fois, le débogueur se déclenche et j'ai ça:

1570164808044.png
1570164821545.png

Je ne comprends pas pourquoi ...
Quelqu'un aurait une idée?

Excellente journée à tous :D
 
Dernière édition:

D.D.

XLDnaute Occasionnel
Bonjour

tu n'as pas un "Option Explicite" plus haut ?
Si c'est le cas, alors déclare ta variable via un DIM ou enlève l'"Option Explicite".
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil

[humour d'un samedi matin sous vapeur lubrizol]
Tu n'as pas un "Option Explicite" plus haut ?
Dans aucune version d'Excel supportant VBA, on ne pourra trouver Option Explicite
(ni en haut ni en bas)
Par contre, on pourra lire Option Explicit
(chez tous ceux qui auront coché dans VBE: Déclaration de variables obligatoire)
OK , je sors
;)
[/fin humour]
 
Haut Bas