chaelie2015
XLDnaute Accro
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
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
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
j'ai complété le code parPrivate 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
HTML:
ActiveSheet.Name = xlVeryHidden '<------------ICI
mais ça n'a pas fonctionné, donc quelle est la phrase magique en VBA pour masquer ces onglets ?
Salutations
Dernière édition: