Bonsoir
Ci-dessous, mon code.
Lorsque je le fais tourner en pas à pas (F8), il fonctionne sans problème.
Il sélectionne tous les objets de mon fichiersource et les copie dans le fichier créé au bon emplacement.
Lorsque je le lance avec F5, toutes les opérations semblent fonctionner (ouverture, fichier, créattion fichier, selection des objets) sauf la dernière : la copie des objets dans le nouveau fichier.
une idée?
Par avance, merci
Ci-dessous, mon code.
Lorsque je le fais tourner en pas à pas (F8), il fonctionne sans problème.
Il sélectionne tous les objets de mon fichiersource et les copie dans le fichier créé au bon emplacement.
Lorsque je le lance avec F5, toutes les opérations semblent fonctionner (ouverture, fichier, créattion fichier, selection des objets) sauf la dernière : la copie des objets dans le nouveau fichier.
une idée?
Par avance, merci
Code:
Sub CopieObjets()
'ouvre le classeur...
Workbooks.Open ("d:\fichiersource.xlsx")
Nom_Fichier_Source = ActiveWorkbook.Name
Workbooks.Add (1)
Nom_Fichier_Final = ActiveWorkbook.Name
Workbooks(Nom_Fichier_Source).Sheets(1).DrawingObjects.Select
Selection.Copy
Workbooks(Nom_Fichier_Final).Activate
Range("A62").Select
Workbooks(Nom_Fichier_Final).Sheets(1).Paste
End Sub