Bonjour,

J'ai essayer le code suivant, tiré de "La gestion des erreurs dans Excel" :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub laMacro()
    Dim Ws As Worksheet
 
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets("Feuil8")
    On Error GoTo 0
 
    '(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
    If Not Ws Is Nothing Then
        MsgBox "La feuille existe dans le classeur."
        Else
        MsgBox "La feuille n'existe pas dans le classeur."
    End If
End Sub
et j'obtiens le message :

Erreur 9
L'indice n'appartient pas à la sélection.

Je cherche à comprendre.
Merci si vous pouvez m'aider.