Bonjour,
Quelqu'un de pro comme vous peut-il m'aider, je vous en remercie d'avance
Ce code fonctionne très bien en faisant pas à pas mais plante l'excution à la ligne Workbooks("Nouveau classeur.xlsm").Close ' Fermeture du nouveau classeur en mode macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 sub test() Dim Onglet As String ' Pour info les deux classeur sont déjà ouvert Onglet = Sheets("Tutoriel").Cells(23, 13).Value ' recuperation de la feuille du nouveau classeur Workbooks("Nouveau classeur.xlsm").Sheets(Onglet).Copy Before:=Workbooks("Ancien classeur.xlsm").Sheets("Feuil2") ' Copie de la feuille (Onglet) du nouveau classeur vers feuille 1 de l'ancien classeur Workbooks("Nouveau classeur.xlsm").Close ' Fermeture du nouveau classeur Workbooks("Ancien classeur.xlsm").Sheets(Onglet).Activate ' Activation de l'ancien classeur feuille (Onglet) Workbooks("Ancien classeur.xlsm").Sheets(Onglet).Name = "Toto " ' Renommer feuille (Onglet) en Toto de l'ancien classeur Workbooks("Ancien classeur.xlsm").Sheets("Feuil2").Delete 'Effacer une autre feuille 2 de l'ancien classeur End sub
La macro plante juste après la copie et refonctionne en faisant F8
Merci d'avance pour votre aide
Partager