VBA/Excel Instruction: On Error Resume Next

Résolu/Fermé

loic - 3 mai 2007 à 09:07
Monarch - 3 oct. 2017 à 16:14

Bonjour,

Pb. en VBA Excel

J'ai un problème avec l'instruction "on error resume next", je dois mal l'utiliser ou je n'ai pas la bibliothéque je ne sais pas ...

Où que je place l'instruction dans mon code elle n'est pas prise en compte
Exemple:

On Error Resume Next
Workbooks.Open "le chemin du fichier à ouvrir"

Si le fichier n'esiste pas, il me met l'erreur qd meme.

Je fonctionne sous Excel 2003

Merci d'avance.

Posez votre question

A voir également:

On error resume next vba
On error resume next vba excel - Meilleures réponses
Vba error - Meilleures réponses
Network error iptv - Forum Réseaux sociaux
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Fan error lenovo ✓ - Forum Refroidissement
Network error ✓ - Forum Réseaux sociaux
Eespt technical error ✓ - Forum TNT / Satellite / Réception

16 réponses

Réponse 1 / 16

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

Utilisateur anonyme
21 sept. 2007 à 12:25

Bonjour,

voici un exemple d'utilisation :

Sub Essai()
    On Error Resume Next
    Workbooks.Open "C:\MonFichier.xls"
    If (Err.Number > 0) Then
        MsgBox "Impossible d'ouvrir le fichier"
    End If
End Sub
'

Lupin

Monarch
3 oct. 2017 à 16:14

Super ce petit bout de code :D

Réponse 2 / 16

Le Dev Masqué
29 déc. 2007 à 11:37

Bonjour,

Si "On error resume next" semble ne pas être actif (VBA s'arrete quand même sur les erreurs), vérifier :
dans VBA, menu Outils/Options, onglet Général
que la récupération d'erreur n'est pas sur "Arret sur toutes les erreurs".

Dans ce cas, sélectionner "Arret sur les erreurs non gérées".

Bonne chance

Ete
6 nov. 2009 à 12:56

Bonjour

Merci pour votre aide, que même après presque 2 ans que vous l’aviez posté, pour moi elle a été de grande valeur aujourd’hui.

Excusez-moi pour mon "petit français"

Je vous remercie beaucoup encore, depuis le Brésil

Ete

Asmae
16 août 2012 à 16:04

De même ici, j ai cherché partout une solution efficace mais en vain et par hasard ce Monsieur vient me sauver la journée :)))))

geraud
12 sept. 2012 à 16:19

Merci !

Réponse 3 / 16

Utilisateur anonyme
3 mai 2007 à 19:37

Bonjour,

N'importe quoi ! RESUME NEXT n'a rien à voir avec FOR TO NEXT !!

LE problème c'est que l'exemple proposé est tout à fait juste, et fonctionne très bien ! A savoir :

Sub essai()
On Error Resume Next
Workbooks.Open "le chemin du fichier à ouvrir"
End Sub

NE déclanche pas le message d'erreur. Si on met On error resume next en REM alors on obtient l'erreur 1004.

DONC Loic, il faudrait voir plus loin... Est-ce que tu désactive de nouveau la gestion des erreurs ? PAR exemple avec On Error GoTo 0 permet de désactiver la gestion d'erreur dans la routine en cours.

Réponse 4 / 16

sncf Messages postés 121 Date d'inscription lundi 7 juillet 2003 Statut Membre Dernière intervention 11 septembre 2011 14
3 mai 2007 à 16:47

Bonjour*
que veux tu faire quand le ficher n'existe pas ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 16

Christelle
3 oct. 2007 à 10:09

Bonjour,
hijag, je n'ai plus de pb. En effet, j'ai résolu un autre bug ce matin qui je pense a résolu c'est erreur

Lors de la conversion du doc en pdf, j'ai rajouté la boucle

' Tant que la propriété de cPrinterStop est à False, on laisse le temps au composant
' de terminer l'export PDF
While myPDFCreator.cPrinterStop = False
DoEvents
Wend

juste avant le PrintOut

Plus aucun message d'erreur ne m'est remonté maintenant

Tu dois donc avoir une autre erreur dans ton prog

Réponse 6 / 16

Mourad EL Bakkouri
3 oct. 2007 à 20:02

Bonjour,

IL Suffit de rechercher le fichier avant de lancer la commande ON ERROR

Ex :

IFf Dir("Le Chemin + Nom du Fichier") = "" Then
Msgbox "Fichier Introuvable "
ELSE
ON ERROR RESUME NEXT
...
...
...
END IF

Réponse 7 / 16

Christelle
21 sept. 2007 à 12:06

J'ai exactement le même pb que Loic. Est ce quelqu'un à une idée d'ou cela vient?

Réponse 8 / 16

Christelle
21 sept. 2007 à 12:11

Loic, j'ai le même pb que toi; as-tu trouvé une solution?

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
21 sept. 2007 à 12:20

Bonjour,

le "On error resume next" evite de générer une erreur.

Si par exemple tu fais une action d'ecriture sur un fichier en lecteur seul, tu ne verras pas l'erreur et l'action continuera sans rien faire.

Ce qu'il faut faire dans :

- Traiter la var. "Err" après chaque action.

Ex :

Dim x
On Error Resume Next
Err.Raise 6
If Err.Number <> 0 Then Err.Clear

Réponse 9 / 16

Christelle
21 sept. 2007 à 12:37

G toujour le même pb sur la méthode QUIT
Erreur : "Sub ou Function non défini"

Function FermeWord() As Long

On Error Resume Next

If Not GASI_Imp.oMonwd Is Nothing Then

'** A3/101 : boucle d'attente de fin des impressions en cours
While GASI_Imp.oMonwd.BackgroundPrintingStatus > 0
Wend

GASI_Imp.oMonwd.Quit False --> ERREUR "Sub ou Function non défini"
Set GASI_Imp.oMonwd = Nothing
End Function

Réponse 10 / 16

Utilisateur anonyme
21 sept. 2007 à 13:11

Bonjour,

GASI_Imp.oMonwd.Quit

devrait plutôt se lire :

GASI_Imp.oMonwd.Close

et si je vois la ligne de libération :

Set GASI_Imp.oMonwd = Nothing

où est la ligne d'initialisation :

Set GASI_Imp.oMonwd = CreateObject("Word.Application")

???

Lupin

Réponse 11 / 16

Christelle
21 sept. 2007 à 14:36

J'ai remplace
GASI_Imp.oMonwd.Quit
par
GASI_Imp.oMonwd.Close
est ca marche !!! Merci Lupin de ton aide

Par contre, j'ai une autres message "Sub ou function non defini"

'Récupération de la fenêtre de publipostage
Set DocPrint = GASI_Imp.oMonwd.ActiveDocument

...

' impression de la lettre au format PDF
DocPrint.PrintOut PrintToFile:=False

....

'On ferme la fenêtre imprimée
On Error Resume Next
'On ferme la fenêtre imprimée
DocPrint.Close False --> Sub ou function non défini
Set DocPrint = Nothing
Err.Clear
on Error GoTo ErreurWord
'On vérifie qu'un autre document n'est pas ouvert, et si
'c'est le cas on le ferme
For Each Doc In GASI_Imp.oMonwd.Documents
Doc.Close False
Next Doc

Quelqu'un a-t-il une idée pourquoi le message "Sub ou function non defini" est remontée alors que j'ai mis "On Error Resume Next"

Réponse 12 / 16

Utilisateur anonyme
21 sept. 2007 à 18:17

re :

DocPrint.Close

devrait plutôt se traduire par :

DocPrint.ClosePrintPreview
DocPrint.Close

Lupin

Réponse 13 / 16

hijag
26 sept. 2007 à 10:19

j'ai excatement le meme probleme avec on error resume next
en excel 2000 le code fonctionne en 2003 il s'arrete sur chaque erreur ?????

Réponse 14 / 16

christelle
1 oct. 2007 à 11:31

Bonjour,

J'ai aussi Excel 2003
et j'ai toujours l'erreur
DocPrint.Close False --> Sub ou function non défini

Réponse 15 / 16

Christelle
3 oct. 2007 à 09:15

Bonjour,
Quelqu'un a une idée pourquoi le "on error resume next" ne marche pas avec Office 2003 ???

Merci si quelqu'un peut m'aider

Réponse 16 / 16

flofido Messages postés 4 Date d'inscription jeudi 16 mars 2006 Statut Membre Dernière intervention 4 mai 2007
3 mai 2007 à 18:19

Pour utiliser Resume next ... il faut que l'erreur soit générée dans une boucle avec Next, genre FOR ... NEXT

Pour ton exemple , Je pense que tu devrais utiliser , On error GoTo

-1

The Engineer
16 juin 2011 à 18:24

Tiens, je vais répondre 4 ans après la question... Des fois que quelqu'un tombe dessus...
Le NEXT du ON ERROR RESUME NEXT n'a strictement RIEN A VOIR avec le NEXT des boucles FOR...NEXT.

En anglais, "Resume" peut se traduire, dans ce cas, par "reprise". Il faut donc comprendre l'instruction ainsi :
"EN CAS D'ERREUR, REPRENDRE L'EXÉCUTION DU PROGRAMME A L'INSTRUCTION SUIVANTE"
"Next" = "Next statement".

ça, c'est juste pour ne pas s'emmerder avec des erreurs prévisibles. Sinon, il vaut mieux écrire une routine de gestion d'erreur et s'y brancher par ON ERROR GOTO étiquette_d'entrée_de_la_routine.

Bonjour chez vous.
The Engineer

Sophie7777 Messages postés 1 Date d'inscription vendredi 19 août 2016 Statut Membre Dernière intervention 19 août 2016 > The Engineer
19 août 2016 à 15:20

Bonjour,
Je viens d'essayer ON ERROR GOTO mon_etiquette dans une boucle Do WHILE. A la 1ère erreur générée pas de soucis, la boucle continue comme il faut par contre à la 2ème il y a blocage.
Une idée d'où pourrais provenir l'erreur? (j'ai vraiment beaucoup de difficulté avec cette erreur...)
Merci beaucoup,

Posez votre question

Discussions similaires

VBA erreur 1004

séverine - 18 août 2005 à 11:23
Floroan - 18 févr. 2012 à 22:16

9 réponses

Erreur d'execution 91 sous Excel/VBA

maxbvs - 17 janv. 2008 à 17:49
Thierry17 - 30 janv. 2019 à 11:19

4 réponses

des exemples des projets en visual basic

souma - 9 mai 2005 à 18:05
james - 8 févr. 2018 à 06:54

22 réponses

VBA access utiliser DCount avec une variable

bema93 - 4 août 2008 à 14:13
bema93 - 4 août 2008 à 16:36

2 réponses

On error go to [VBA]

yofa - 9 déc. 2011 à 13:07
yofa - 18 déc. 2011 à 22:23

4 réponses

Méthode find dans VBA - Recherche de données sous Excel

baissaoui - 23 juin 2022 à 14:55
baissaoui - 23 juin 2022 à 14:55

0 réponse

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire