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
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
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
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.
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.
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
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]
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]
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
3 févr. 2006 à 13:54
merci beaucoup, mais je veux demander si je veux les sauvgarder sur word, pas sur notepad ou wordpad
