Copier et renommer une feuille - onglet

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

J'ai trouvé la solution à mon problème.

Il y avait des cellules masquées entre celle que je copiais et la dernière qui était créée.

La solution est de placer les onglets masqués au début du classeur (en bas à gauche).

Rechercher des sujets similaires à "copier renommer feuille onglet"