Masquer les onglets(RESOLU)

[chaelie2015]

Bonsoir;
Avant d'exposer mon souci, je tien a remercier "PAF" pour ce code, qui m'a aidé a résoudre mes soucis,
ci dessous le code proposé par PAF

Private Sub CommandButton6_Click()
Dim DerLig As Integer, NumLig As Integer, WCible As Worksheet, TabTmp, FeuilleExistante

Application.ScreenUpdating = False
Sheets("Canevas").Visible = True

With Worksheets("A")


FeuilleExistante = IsError(Evaluate("='" & .Range("T10") & "'!A1"))
If Not FeuilleExistante Then
MsgBox " impossible de poursuivre. La feuille " & .Range("T10") & " existe déjà"
Exit Sub
End If

'-------------------------------------------------------------------------------------
Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)

ActiveSheet.Name = .Range("T10")
Set WCible = ActiveSheet

ActiveSheet.Name = xlVeryHidden '<------------ICI

' --------------------------------------------------------------------------------------
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
TabTmp = .Range("B25:B" & DerLig)
WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp


WCible.Range("D2") = .Range("E14")
WCible.Range("E4") = .Range("E15")
WCible.Range("E6") = .Range("E13")
WCible.Range("E8") = .Range("M17")
WCible.Range("K8") = .Range("Q22")
WCible.Range("B10") = .Range("T10")
WCible.Range("H10") = .Range("T9")
WCible.Range("E12") = .Range("T20")


End With

Sheets("Canevas").Visible = xlVeryHidden
Application.ScreenUpdating = True

CommandButton_valider_note.Visible = True
End Sub

j'ai complété le code par

  ActiveSheet.Name = xlVeryHidden '<------------ICI

pour faire masqué toutes les feuilles qui sont crées automatiquement par ce code
mais ça n'a pas fonctionné, donc quelle est la phrase magique en VBA pour masquer ces onglets ?

Salutations

 

[camarchepas]

Re : Masquer les onglets

Bonsoir ,

Wcible.visible =xlVeryHidden

 

[chaelie2015]

Re : Masquer les onglets

Bonsoir camarchepas
merci pour la réponse ,ça fonctionné très bien😉
Salutations