Sauvgarder

Résolu
Signaler
Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
18 février 2006
-
Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
18 février 2006
-
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

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
18 février 2006

merci beaucoup, mais je veux demander si je veux les sauvgarder sur word, pas sur notepad ou wordpad