0/5 (9 avis)
Snippet vu 11 120 fois - Téléchargée 43 fois
Private Sub Ouvrir_Click() Dialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers|*.*" Dialog.ShowOpen If Dialog.FileName <> "" Then Text1.Text = "" Open Dialog.FileName For Input As #1 Do While Not EOF(1) Input #1, ligne Text1.Text = Text1.Text & ligne & vbCrLf Loop Close End If End Sub Private Sub Enregistrer_Click() Dialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers|*.*" Dialog.ShowSave If Dialog.FileName <> "" Then Open Dialog.FileName For Append As #2 Open App.Path & "\temp.txt" For Append As #1 Print #1, Text1.Text Close Kill (Dialog.FileName) Name App.Path & "\temp.txt" As Dialog.FileName End If End Sub
27 janv. 2009 à 12:53
25 juil. 2003 à 19:44
18 juil. 2002 à 20:34
Il suffit d'écrire un gestionnaire pour l'erreur n°32755 pour que l'erreur soit gérée. C'est donc normal que tu ne la voie pas :)
18 juil. 2002 à 20:28
Oui, ça ne génère pas d'erreur dans mon code car j'ai mis un gestionnaire pour l'erreur (étiquette "erreur:") Dans ton code non plus car tu n'as pas mis le cancelerror, et que tu fais un test pour voir si la chaine est vide. Vu que cancelerror est la pour ça, autant l'utiliser. Enfin c'est toi qui vois.
Si tu mets cancelerror et que tu appuies sur annuler pendant ShowSave, ça te fera une erreur si tu n'as pas de gestionnaire.
Mais tu peux supprimer le gestionnaire pour ShowOpen, c'est vrai qu'il ne sert à rien.
En bref :
Enlève les 2 "On Error GoTo erreur"
Enlève les 2 "erreur:
If (Err.Number = 32755) Then Exit Sub"
Affiche la fenêtre ShowSave, et clique sur annuler ;-)
Et note aussi que mon code est moins gourmand en ressources que le tien.
17 juil. 2002 à 22:53
Merci !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.