Runtime error 91 : Besoin d'aide.
Résolu
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
