Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Gestion Erreur

cp4

XLDnaute Barbatruc
Bonjour ,
Ce matin j'ai voulu comprendre un peu la gestion des erreurs VBA. J'ai trouvé un tuto (le lien est dans le fichier joint).
Étant donné que certains XLDiens et XLDiennes n'ouvrent pas les fichiers voici le lien https://silkyroad.developpez.com/VBA/GestionErreurs/#
Le code sut la ligne Set Ws=ThisWorkbook.Worksheets("E3") (feuille qui n'existe pas).
VB:
Option Explicit
Sub la_Macro()
    Dim Ws As Worksheet
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets("E3")
    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
Je travaille avec Excel 2007, le code du tuto ne fonctionne pas correctement chez moi.
En effet, il est expliqué qu'avec l'instruction On Error Resume Next, le code continue son exécution.
Chez moi ce n'est pas le cas, il lève une erreur. Est-ce dû à ma version d'Excel?

Remerciements anticipés.
 

Pièces jointes

  • On error feuille.xlsm
    36.4 KB · Affichages: 5

Claudy

XLDnaute Accro
Bonjour,
si ça peut t'aider:

Claudy
 

cp4

XLDnaute Barbatruc
Bonjour Claudy ,
Merci pour la célérité de ta réponse et le lien.
As-tu testé le fichier joint, je voudrais savoir si le plantage n'est pas dû à ma version d'excel (2007)?
 

cp4

XLDnaute Barbatruc
Merci Claudy, Merci JM pour votre retour.

Si ça ne plante pas chez-vous, je peux donc conclure que c'est ma version qui est en cause.
Merci Microsoft de te foutre de nous à chaque version.

Bonne fin de journée.
 

Discussions similaires

Réponses
5
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…