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:
Et voici le code que j'utilise:
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
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:
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:
Je ne comprends pas pourquoi ...
Quelqu'un aurait une idée?
Excellente journée à tous
Dernière édition: