feuille modéle cachée copies cachées aussi

[pascal21]

bonjour le forumgrâce à un code je crée et renomme des nouvelle feuilles d'après une feuille modèle que j'aimerais cachée malheursement les nouvelle feuilles crées sont cachées aussi puissent qu'elles copient tout les codes vba et les propriétés de la feuille modèle
quelle astuce me permettrais d'avoir les nouvelle feuilles visibles
merci
edit j'ai trouvé
en mettant une grossier worksheets("feuille modèle").visible = true en début et false à la fin du code
les nouvelles feuilles crées sont visibles

 

[Excel-lent]

Re : feuille modéle cachée copies cachées aussi

Bonsoir Pascal21,

Tout pareil! Ou ne pas toucher la feuille modèle (la laisser en mode caché), et ne faire afficher que les nouvelles feuilles :

sheets("nouvelle feuille" & i).visible = true

 

[ChTi160]

Re : feuille modéle cachée copies cachées aussi

Salut pascal21
Bonjour le Fil
Bonjour le Forum

il y a peut être la solution de créer une feuille modèle(.xlt) soit
Mafeuille.xlt pour l'exemple et de l'ajouter au Classeur via la macro
ex
j'enregistre le classeur qui contient une seule feuille ( Mafeuille.xlt ),ainsi que les différentes procédure , puis je l'enregistre via enregistrer sous et sélectionner en .xlt

puis un exemple trouvé sur le net et adapté

Sub Insert_Sheet_Template()
    Dim sh As Worksheet
    Dim shName As String
    [COLOR=DarkGreen]'le nom du fichier[/COLOR]
    shName = "Mafeuille.xlt"
    [COLOR=DarkGreen]'on insere la feuille dans le classeur[/COLOR]
    With ThisWorkbook
        Set sh = Sheets.Add(Type:=Application.TemplatesPath & shName, _
                            after:=.Sheets(.Sheets.Count))
    End With

    On Error Resume Next
     [COLOR=DarkGreen]'on nomme la feuille ici avec la date formatée[/COLOR]
    sh.Name = Format(Date, "yyyy-mmm-dd")
    If Err.Number > 0 Then 'si la feuille existe message d'erreur
        MsgBox "changer le nom de la feuille : " & sh.Name & " manuellement !"
        Err.Clear
    End If
    On Error GoTo 0
End Sub

le lien :How do I create/use a sheet template
on pourrait adapter cette procédure , dans une boucle pour ainsi ajouter plusieurs feuilles de nom diférents bien sur lol dans le classeur.
en espérant avoir pu t'aider
Bonne fin de journée