Microsoft 365 Macro pour ouvrir un fichier et copier une feuille

  • Initiateur de la discussion Initiateur de la discussion luke3300
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 😀
 
Dernière édition:
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]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
647
Retour