Bonjour à tous,
Je viens vers vous, car je suis actuellement en cours d'amélioration d'un fichier existant.
Malheureusement celui-ci est volumineux, je ne pourrais pas le partager.
Le principe :
Créer un bouton qui copie la feuille active.
La copie se positionne en dernière position du classeur.
Ensuite je sélectionne cette nouvelle feuille afin de pouvoir y faire quelque ajustement.
Je pensais avoir réussi malgré ma faible expérience, mais quand je lance ma macro, le message suivant s'affiche :
Erreur d'exécution '1004'
La méthode Select de la classe Worksheet a échoué.
Ci-dessous le code réalisé, le débogueur s'arrête à la partie "Sheets(Sheets.Count).Select" .
Merci d'avance de vos réponses.
Sub Copie_onglet()
' Copie la feuille active et la positionne en derniere position
Sheets(ActiveSheet.Name).Copy After:=Sheets(Sheets.Count)
' Sélectionner la dernière feuille
Sheets(Sheets.Count).Select
' Réajuste les images
ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.ShapeRange.Height = 141.7322834646
ActiveSheet.Shapes.Range(Array("Picture 9")).Select
Selection.ShapeRange.Height = 141.7322834646
ActiveSheet.Shapes.Range(Array("Picture 6")).Select
Selection.ShapeRange.Height = 141.7322834646
End Sub