Pb gestion bt annuler dans Commondialog

Dans mon commondialog j'essaye de gérer l'annulation mais vb6 me dit bien que mon "showsave" à générer une erreur mais il n'effectue pas le "on error goto". Voici mon code

Sub Sauvegarde()

' La propriété CancelError de mon Commondialog a la valeur True.

Err.Clear
On Error GoTo Annuler

FrmMain.Diag.DialogTitle = "Sauvegarde de l'offre globale"
FrmMain.Diag.Filter = "Fichiers Excel" & "(*.xls)|*.xls"
FrmMain.Diag.Filename = "Récapitulatif Offre Globale.xls"

FrmMain.Diag.ShowSave

FrmMain.XlDoc.SaveAs (FrmMain.Diag.Filename)

Exit Sub

Annuler:

' L'utilisateur a sélectionné le bouton Annuler.
If Not FrmMain.XlDoc Is Nothing Then
FrmMain.XlDoc.Close False
End If
If Not FrmMain.XlApp Is Nothing Then
FrmMain.XlApp.Visible = True
FrmMain.XlApp.Quit
End If
MsgBox "Erreur interne"


End Sub

Salut,

Première chose, quand tu es dans ton code, clique sur le bouton droit de ta souris, vas sur "basculer", vérifies que tu es bien sur "Arrêt sur les erreurs non gérées".
Si c'est le cas mais qu'il ne fait quand même pas le goto, vire le "Exit Sub" (avant le "Annuler:") et mets plutot un "Goto Fin", puis rajoute un "Fin:" juste avant le "End Sub".
Si il bascule bien sur l'erreur, vérifie que c'est bien un cancel, pour cela rajoute le test suivant :

"If Err.Number = mscomdlg.cdlCancel Then"
<actions à effectuer si c'est la commande annuler>
else
<actions à effectuer si c'est une autre erreur>
endif"

De cette manière, tu différencieras ton annulation d'une erreur qui aurait pu survenir durant l'exécution.

Si après tout ça ne marche pas, essaye de virer le "err.clear" du tout début, ça peut peut-être le gêné, mais ça m'étonnerait.

Bonne chance



Surfurax

Oui c'était bien une histoire de "basculer", "Arrêt sur les erreurs non gérées". Je n'y aurais jamais pensé.
Merci
PS:Si tu as le temps faudrait m'expliquer la différence entre ces trois modes d'arrêt sur les erreurs.

Salut,

Dans le premier cas, quelle que soit l'erreur, gérée ou non, VB s'arrête.
Dans le deuxième cas, si l'erreur survient dans un module de classe, VB s'arrête.
Dans le dernier cas, VB ne s'arrête que si tu n'as pas de "on error goto" dans ta procédure.

Voilà, email moi si tu veux plus d'infos.

Ciao


Surfurax