Microsoft 365 Macro pour ouvrir un fichier et copier une feuille

[luke3300]

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:

Et voici le code que j'utilise:

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:

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

Excellente journée à tous

 

[D.D.]

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".

 

[luke3300]

Bonjour D.D., le forum,

Exactement cela merci beaucoup.
Bon Week-end

 

[Staple1600]

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]

 

[D.D.]

Par contre, on pourra lire Option Explicit

Bon, ok, ma mémoire a féminisé l'explicité de l'option.