Problème macro : dupliquer une feuille masquer

Bonjour,

J'ai un souci assez simple. Je souhaite, par le biais d'un bouton, dupliquer une feuille qui me sert de modèles (avec des mise en forme, calcul etc...). Tout fonctionnait jusqu'à ce que je masque la feuille (afin d'éviter les modifications hasardeuses). On dirai que que la macro ne trouve plus du tout la feuille. Auriez-vous une idée de ce qu'il faut que je modifie ?

Sub CreationTache()

    Sheets("Tache-modele").Select
    Sheets("Tache-modele").Copy After:=Worksheets(Worksheets.Count())
    Sheets("Tache-modele (2)").Select
    Sheets(Worksheets.Count()).Name = "Tache " & Worksheets.Count() - 3

End Sub

Merci d'avance :)

Bonjour Aniki,

Sub CreationTache()

    Sheets("Tache-modele").Visible = True
        Sheets("Tache-modele").Select
        Sheets("Tache-modele").Copy After:=Worksheets(Worksheets.Count())
        Sheets("Tache-modele (2)").Select
        Sheets(Worksheets.Count()).Name = "Tache " & Worksheets.Count() - 3
    Sheets("Tache-modele").Visible = False

End Sub

Comme ça ?

Bonjour,

1- On ne peux pas sélectionner (.Select) une feuille masquée.

2- La copie d'une feuille masquée est également masquée.

Donc :

Sub CreationTache()
    With Sheets("Tache-modele")
        .Visible = True 'affiche la feuille
        .Copy After:=Worksheets(Worksheets.Count()) 'copie la feuille
        .Visible = False 'masque la feuille
    End With
    With ActiveSheet 'dans la copie
        .Name = "Tache " & Worksheets.Count() - 3 'renomme
    End With
End Sub

Merci pour vos retour rapide. Je ne savais pas qu'on ne pouvais pas sélectionné une feuille masqué.

Tout fonctionne bien