Bonjour,

Quelqu'un de pro comme vous peut-il m'aider, je vous en remercie d'avance

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

La macro plante juste après la copie et refonctionne en faisant F8

Merci d'avance pour votre aide