commondialogu, l'appuie sur annuler enregistre quand même

Question

bonjour,

Lorsque je clique sur "annuler" du commondialogu et qu'un nom de fichier est renseigner celui ci est créé O_o

Voici mon code:

commondialog1.initdir = app.path
commondialog1.cancelerror = true
on error goto fin
commondialog1.showsave
fichier=commondialog1.filename
if fichier <> "" then
   open fichier for output as #1
   print #1, "création ok"
   close #1
endif

Voila donc si qqn voit d'ou vient ce bug sa m'aiderait beaucoup.

crenaud76 · Answer

Il manque l'étiquette "fin" dans ton code !

cs_snake57 · Answer

Non elle ne manque pas c'est en recopiant mon code que j'ai oublié de la mettre. En fait elle se situe au dessus du "end sub" pour qu'en cas d'erreur on sorte directement.

jrivet · Answer

Salut,

est tu sur que le probleme vienne de cet endroit la, car je ne vois pas ce qu il y a de mal...
Essaie peu etre en ajoutant Fichier = "" juste avant le commondialog1.showsave.

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

crenaud76 · Answer

Si l'étiquette est après le "End Sub", c'est normal que ca foire !!!! Un gestionnaire doit impérativement se trouver DANS la procédure/fonction ou on risque de l'invoquer, donc avant ton End Sub. POur sortir de la procédure si aucune erreur ne se produit, il faut utiliser Exit Sub.
En gros cela donne :

Sub Machinchose()
  Blablabla inofensif
  On Error Goto ErrHdlr
  Blablabla risquant de provoqué une erreur
  Exit Sub
  
  ErrHdlr:
  Blablabla gérant l'erreur
End Sub

Commondialogu, l'appuie sur annuler enregistre quand même

4 réponses

Discussions similaires