Aidez moi !!!

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

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



-------------------------------
Réponse au message :
-------------------------------

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

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



-------------------------------
Réponse au message :
-------------------------------

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



-------------------------------
Réponse au message :
-------------------------------

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

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



-------------------------------
Réponse au message :
-------------------------------

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



-------------------------------
Réponse au message :
-------------------------------

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



-------------------------------
Réponse au message :
-------------------------------

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

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

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