Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Gestion de l'erreur ?

Gestion de l'erreur ?

5 réponses
Avatar
JClaude
Bonjour à toutes et tous !

J'ai vraiment un problème avec la gestion des erreurs (type 'On Error Resume
Next') que je ne maitrise pas du tout !

J'utilise ceci :

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
Cells.Replace What:="9 juin 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

Hélas lorsque le texte "9 juin 1993" n'est pas trouvé dans
"Sheets(4).Select", je voudrais non pas avoir un message d'erreur mais aller
directement à SUITE:

Je peine, je peine....

Un peu d'aide serait le bienvenu !!
Merci
M.M
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ze_titi
Correction dans la procédure

--
Cordialement,

ze_titi



Bonjour à toutes et tous !

J'ai vraiment un problème avec la gestion des erreurs (type 'On Error Resume
Next') que je ne maitrise pas du tout !

J'utilise ceci :

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
On error goto suite

Cells.Replace What:="9 juin 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

Hélas lorsque le texte "9 juin 1993" n'est pas trouvé dans
"Sheets(4).Select", je voudrais non pas avoir un message d'erreur mais aller
directement à SUITE:

Je peine, je peine....

Un peu d'aide serait le bienvenu !!
Merci
M.M





Avatar
Youky
For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
on error goto SUITE ' j'ai mis
Cells.Replace What:="9 juin 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
SUITE: 'j'ai décalé
err=0 'j'ai mis pour annul 'erreur
ActiveWorkbook.Close
Next F

Je pense qu cela devrai faire l'affaire ,non testé
Youky

"JClaude" a écrit dans le message de
news: #
Bonjour à toutes et tous !

J'ai vraiment un problème avec la gestion des erreurs (type 'On Error
Resume

Next') que je ne maitrise pas du tout !

J'utilise ceci :

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
Cells.Replace What:="9 juin 1993", Replacement:="1er mars
2004",

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars
2004",

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

Hélas lorsque le texte "9 juin 1993" n'est pas trouvé dans
"Sheets(4).Select", je voudrais non pas avoir un message d'erreur mais
aller

directement à SUITE:

Je peine, je peine....

Un peu d'aide serait le bienvenu !!
Merci
M.M




Avatar
JClaude
Bonjour !
Merci mais cela ne fonctionne pas ! Ok pour la 1ère boucle puis arrêt à la
deuxième...
J'avais testé, c'est plus complexe que cela!!
A+
"ze_titi" a écrit dans le message de
news:
Correction dans la procédure

--
Cordialement,

ze_titi



Bonjour à toutes et tous !

J'ai vraiment un problème avec la gestion des erreurs (type 'On Error
Resume


Next') que je ne maitrise pas du tout !

J'utilise ceci :

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
On error goto suite

Cells.Replace What:="9 juin 1993", Replacement:="1er mars
2004",


LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars
2004",


LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

Hélas lorsque le texte "9 juin 1993" n'est pas trouvé dans
"Sheets(4).Select", je voudrais non pas avoir un message d'erreur mais
aller


directement à SUITE:

Je peine, je peine....

Un peu d'aide serait le bienvenu !!
Merci
M.M







Avatar
JClaude
Bonjour !
Ma macro traite une grosse quantité de classeur...
Cela plante au bout du deuxième "on error goto" !!
Il faudrait plutôt un truc du genre 'On erreur resume next' mais c'est plus
complexe et trop pour moi !.
Merci

"Youky" a écrit dans le message de news:

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
on error goto SUITE ' j'ai mis
Cells.Replace What:="9 juin 1993", Replacement:="1er mars
2004",

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars
2004",

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
SUITE: 'j'ai décalé
err=0 'j'ai mis pour annul 'erreur
ActiveWorkbook.Close
Next F

Je pense qu cela devrai faire l'affaire ,non testé
Youky

"JClaude" a écrit dans le message de
news: #
Bonjour à toutes et tous !

J'ai vraiment un problème avec la gestion des erreurs (type 'On Error
Resume

Next') que je ne maitrise pas du tout !

J'utilise ceci :

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
Cells.Replace What:="9 juin 1993", Replacement:="1er mars
2004",

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars
2004",

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

Hélas lorsque le texte "9 juin 1993" n'est pas trouvé dans
"Sheets(4).Select", je voudrais non pas avoir un message d'erreur mais
aller

directement à SUITE:

Je peine, je peine....

Un peu d'aide serait le bienvenu !!
Merci
M.M








Avatar
ze_titi
Bon alors on va faire différemment...

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
On error resume next
Cells.Replace What:="9 juin 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars 2004",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

--
Cordialement,

ze_titi



Bonjour !
Merci mais cela ne fonctionne pas ! Ok pour la 1ère boucle puis arrêt à la
deuxième...
J'avais testé, c'est plus complexe que cela!!
A+
"ze_titi" a écrit dans le message de
news:
Correction dans la procédure

--
Cordialement,

ze_titi



Bonjour à toutes et tous !

J'ai vraiment un problème avec la gestion des erreurs (type 'On Error
Resume


Next') que je ne maitrise pas du tout !

J'utilise ceci :

For Each F In .FoundFiles
Workbooks.Open F
Sheets(4).Select
On error goto suite

Cells.Replace What:="9 juin 1993", Replacement:="1er mars
2004",


LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Sheets(2).Select
Cells.Replace What:="5 mars 1993", Replacement:="1er mars
2004",


LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next F
SUITE:

Hélas lorsque le texte "9 juin 1993" n'est pas trouvé dans
"Sheets(4).Select", je voudrais non pas avoir un message d'erreur mais
aller


directement à SUITE:

Je peine, je peine....

Un peu d'aide serait le bienvenu !!
Merci
M.M