Code qui fonctionne en pas a pas, mais pas en automatique

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

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

Bonsoir,

y a t il autre chose que les objets sur la feuille ?

Sinon vous faites une copie de la feuille et ensuite s'il le faut vous supprimez les valeurs non nécessaires...

En effet une copie de feuille copie également les objets, non ? Nul besoin de ne prendre que les objets.

@ bientôt

LouReeD

Oui il y a plein d’autres objets. Et cette partie n’est que la fin d’un long’ processus (qui lui se déroule très bien)

Donc non impossible d’utiliser cette’ rechnique b

Bonjour,

Voici un exemple que fonctionnent avec les 4 fichiers sources envoyés en MP :