Sauvgarder

Résolu
zido85 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 18 février 2006 - 26 janv. 2006 à 23:21
zido85 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 18 février 2006 - 3 févr. 2006 à 13:54
salut, coment ca va, je suis ziad du liban , et je demande l'aide pour savoir comment sauvgarder avec la command utiliser du common dialog .merci
un exemple peut aider plus:D

3 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
27 janv. 2006 à 00:53
Bonsoir,
Tu places sur ta Form 1 TextBox (propriété Multiligne à True), 1 CommandButton et un CommonDialog.

Code:

Private Sub Command1_Click()
Dim NomFich
With CommonDialog1
.DialogTitle = "Sauvegarder un fichier"
.CancelError = True
.InitDir = "C:"
.Filter = "Texte(*.txt)|*.txt|Tous(*.*)|*.*"
.FilterIndex = 1
.FileName = "MonFichier.txt"
On Error GoTo Erreur
.ShowSave
End With

NomFich = CommonDialog1.FileName
Open NomFich For Output As #1
Print #1, Text1.Text
Close #1
GoTo Suite
Erreur: MsgBox "Vous n'avez sauvegardé aucun fichier"
Suite:
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.
3
kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 2
27 janv. 2006 à 10:17
salut,

Le commondialog ne sauvegarde pas de lui même, il ne fait que retourner le nom du fichier que tu veux ouvrir ou dans lequel tu veux sauvegarder.

Pour expliquer le code de jpleroisse,

la première partie initialise les valeur du cmdlg.

Note la propriété cancelerror = true
Elle permet de générer une erreur si l'utilisateur click sur annuler.
Puis affiche la boite sauvegarder du cmdlg.

La deuxième partie cré un fichier text vide puis y insère le texte de textbox1.

Voilà.

Bonne prog
[mailto:K@lobit K@lobit]
3
zido85 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 18 février 2006
3 févr. 2006 à 13:54
merci beaucoup, mais je veux demander si je veux les sauvgarder sur word, pas sur notepad ou wordpad
0