Sortir d'une macro

Bonjour,
Remplace la sortie de sub
par

End

Cordialement.

lSteph

Bonjour à tous,

J'ai un souci pour sortir d'une macro

Voila la macro

Sub lance()
'Call session
Call Recupxls
Call AjoutValeur
Call CompareAEtB
Call Selection1
Call MiseEnPlace
Call Sauve
End Sub

dans la macro Call Recupxls , je souhaiterais avoir la possibilité
suite à erreur de selection de fichier (xls) sortir completement de la
macro
sub Recupxls
...
Msg = "La date du fichier journalier n'est pas celui attendue par le
Suivi : " & vbCr
Msg = Msg & vbCr & " Vérifier la date attendue par le Suivi et
ouvrez le BON fichier!"
MsgBox Msg, vbExclamation, "Traitement impossible"
Exit sub
....
End Sub
mais je retombe à chaque fois sur "Call AjoutValeur"

Comment sortir proprement de cette macro ?

Merci

Le Lauxeti

--
- -

Bonsoir

Je transformerais la sub Recupxls en fonction renvoyant True ou False

Function Recupxls() As Boolean
If ... then ' mettre ici la condition de test du bon fichier
' Le fichier est le bon, on traite la récup
...
...
recupxls=true
else
' Mauvais fichier
msgbox "Mauvais fichier"
recupxls = false
endif
End Function

Sub Lance()
if not recupxls then exit sub
call AjoutValeur
...
End Sub

Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news:
1162743592.707935.48380@b28g2000cwb.googlegroups.com...
Bonjour à tous,

J'ai un souci pour sortir d'une macro

Voila la macro

Sub lance()
'Call session
Call Recupxls
Call AjoutValeur
Call CompareAEtB
Call Selection1
Call MiseEnPlace
Call Sauve
End Sub

dans la macro Call Recupxls , je souhaiterais avoir la possibilité
suite à erreur de selection de fichier (xls) sortir completement de la
macro
sub Recupxls
...
Msg = "La date du fichier journalier n'est pas celui attendue par le
Suivi : " & vbCr
Msg = Msg & vbCr & " Vérifier la date attendue par le Suivi et
ouvrez le BON fichier!"
MsgBox Msg, vbExclamation, "Traitement impossible"
Exit sub
....
End Sub
mais je retombe à chaque fois sur "Call AjoutValeur"

Comment sortir proprement de cette macro ?

Merci

Le Lauxeti

L'instruction End devrait arrêter les opérations.

PP


"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news: 1162743592.707935.48380@b28g2000cwb.googlegroups.com...
Bonjour à tous,

J'ai un souci pour sortir d'une macro

Voila la macro

Sub lance()
'Call session
Call Recupxls
Call AjoutValeur
Call CompareAEtB
Call Selection1
Call MiseEnPlace
Call Sauve
End Sub

dans la macro Call Recupxls , je souhaiterais avoir la possibilité
suite à erreur de selection de fichier (xls) sortir completement de la
macro
sub Recupxls
...
Msg = "La date du fichier journalier n'est pas celui attendue par le
Suivi : " & vbCr
Msg = Msg & vbCr & " Vérifier la date attendue par le Suivi et
ouvrez le BON fichier!"
MsgBox Msg, vbExclamation, "Traitement impossible"
Exit sub
....
End Sub
mais je retombe à chaque fois sur "Call AjoutValeur"

Comment sortir proprement de cette macro ?

Merci

Le Lauxeti

Bonsoir,

Merci à ISreph et à Patrick pour la solution "End" qui fonctionne
parfaitement
Merci aussi à Pierre pour cette idée qui je vais m'empresser de
mettre de coté

Le Lauxeti