Runtime error 91 : Besoin d'aide.
Résolu
Villette54
Messages postés
300
Date d'inscription
Statut
Membre
Dernière intervention
-
Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention -
Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai un petit soucis avec une macro que je viens de simplifier.
A l'exécution de celle-ci j'ai ce message qui apparait :
RUNTIME ERROR 91: Object variable or With Block variable not set
Voici mon code :
Est-ce que quelqu'un sait à quoi il peut être dû ?
Merci d'avance.
J'ai un petit soucis avec une macro que je viens de simplifier.
A l'exécution de celle-ci j'ai ce message qui apparait :
RUNTIME ERROR 91: Object variable or With Block variable not set
Voici mon code :
Private Sub Workbook_Open()
Dim ws As Worksheets
ws(2).Visible = True 'Cette ligne se met en défaut à l'erreur
ws(1).Visible = xlVeryHidden
For i = 3 To Sheets.Count
With ws(i)
.Visible = False
End With
Next
For i = 1 To Sheets.Count
With ws(i)
.Protect Password:="123PA"
End With
Next
End Sub
Est-ce que quelqu'un sait à quoi il peut être dû ?
Merci d'avance.
1 réponse
-
Bonjour,
essaie comme ca :
Private Sub Workbook_Open()
dim i as variant
sheets(2).Visible = True 'Cette ligne se met en défaut à l'erreur
sheets(1).Visible = xlVeryHidden
For i = 3 To Sheets.Count
With sheets(i)
.Visible = False
End With
next
For i = 1 To Sheets.Count
With sheets(i)
.Protect Password:="123PA"
End With
next
end sub
