Aidez moi !!!

Question

J'ais un problème, lorsque je clique sur le bouton Annuler de ce code qui permet d'enregistrer des documents, et ben sa m'affiche probleme "32755 la commande annuler à été selectionné" et je comprend pas pourkoi.

Private Sub save()
Cmd.CancelError = True
Cmd.InitDir = Path
FileName = ""
Cmd.FileName = ""
Cmd.Filter = "Fichiers texte (*.txt)|*.txt"
Cmd.ShowSave
Fichier = Cmd.FileName
Cmd.FilterIndex = 1

Open (Fichier) For Output As #1
Print #1, Text19.Text

Close #1
Unload Me
End Sub

Merci d'avance

Etienne

logisim · Answer

IL faut ajouter par exemple "On Error Goto Erreur" après Cmd.ShowSave et mettre "Fin:"... à la fin !

Etienne · Answer

Sa marche po !!!
sa me dit encore erreur !
Etienne

logisim · Answer

Il faut placer "Cmd.FilterIndex = 1" avant "Cmd.ShowSave" !

Xaviou · Answer

Le fait de mettre Cmd.CancelError=True indique à Vb de générer une erreur (en l'occurence l'erreur N°32755) si l'utilisateur presse le bouton annuler.
Deux solutions :
1) Tu écris Cmd.CancelError=False :
    Dans ce cas, il faudra tester ta variable "Fichier" avant de lancer l'opération de sauvegarde : Si l'utilisateur presse annuler, Cmd.FileName = ""
2) Tu gères les erreurs

Private Sub save()
On Error GoTo SubSaveErrors

Cmd.CancelError = True
Cmd.InitDir = Path
FileName = ""
Cmd.FileName = ""
Cmd.Filter = "Fichiers texte (*.txt)|*.txt"
Cmd.FilterIndex = 1
Cmd.ShowSave
Fichier = Cmd.FileName

Open (Fichier) For Output As #1
Print #1, Text19.Text

Close #1
Unload Me
Exit Sub

SubSaveErrors:
If Err=32755 Then ' Bouton Annuler pressé
    Exit Sub  ' Sortie de la Sub sans décharger la feuille
Else
    MsgBox "Erreur lors de l'enregistrement",vbCritical
    Exit Sub
End If
End Sub

cs_leseb · Answer

Moi non plus ça ne marche pas même avec le "filterindex=1" précedant le showsave.