sh.Visible = xlSheetHidden ' ou xlSheetVeryHidden
End If
If ClasseurPath = "" Then Exit Sub
si l'utilisateur clique sur "Faire le bilan" alors qu'il n'existe aucun rapport, je vous laisse deviner la suite :-), ça bug...Ca bug... certe... mais tu as un message d'erreur.... et il serait bien de nous le donner !
J'oubliais, la ligne pointée pour l'erreur est celle-ci :
sh.Visible = xlSheetHidden
if sh.Visible = True Then...
Else debug.print "Nom de la feuille : " & sh.Name debug.print "Visibilité de la feuille : " & sh.Visible if sh.Visible = True then sh.Visible = xlSheetHidden ' ou xlSheetVeryHidden End If
Option Explicit Dim ClasseurPath As String Dim verifier As Boolean Private Sub CommandButton1_Click() ClasseurPath = rep & "\Documents\POINTAGES\bilanHebdo.xlsm" verifier = ExisteFichier(ClasseurPath) If verifier = False Then Exit Sub Workbooks.Open (ClasseurPath) End Sub Public Function ExisteFichier(S As String) As Boolean Dim fichier As Object Set fichier = CreateObject("Scripting.FileSystemObject") ExisteFichier = fichier.FileExists(S) End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButton2_Click()
For Each sh In wk1.Worksheets
Select Case sh.Name
Case "MATRICE", "VIERGE"
sh.Visible = True
Case Else
sh.Visible = False
End Select
Next
End Sub