cs_Arkko
Messages postés192Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention31 janvier 2007 20 févr. 2002 à 18:48
Bon bien ce n'est pas très dur...
met un common dialog nomme cd1
pis un bouton ... ici nommé command1
tu met un textbox ou variable ici le text box est nommé textbox
et le textbox est egal a tes metas a exporter
Écrit dans ton form
Private Sub Command1_Click()
On Error Resume Next
cd1.DialogTitle = "Exporter"
cd1.Filter = "Fichier HTML (*.html)|*.html||Fichiers Texte (*.TXT)|*.TXT|"Tout les fichiers (*.*)|*.*
cd1.FileName = "sanstitre.html"
cd1.ShowSave
If cd1.FileName <> "" Then
kill (cd1.filename)
open cd1.filename for append as #1
print #1 , textbox.text
close
else
MsgBox "ERREUR", vbCritical, "Vous devez specifier un nom de fichier"
End If
End sub
Bon je pense que cest tout ... on peut remplacer un textbox par une variable string de preference si ya un bug laisse un commentaire ou mail moi ... pis j'va corrige ... car je suis a l'ecole pis y'ont pas vb.... mais cela va marcher ... mais ptete qui manque un point ou guilmet ... car je peut pas debuger ....PAS GRAVE CAR il va surement fonctionner ....
@+ARKKO
(Alexandre Langlois)
cs_kawash
Messages postés79Date d'inscriptionvendredi 8 février 2002StatutMembreDernière intervention27 août 2006 20 févr. 2002 à 08:46
oui pour le commondialog ya pas de probleme ca j'y arrive, j'ai le bouton enregistrer sous.." qui y est mais inactif, et je sais pas comment faire pour qu'il enregistre.
cs_Arkko
Messages postés192Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention31 janvier 2007 19 févr. 2002 à 22:37
Utile ton prog pour ceux qui commence en HTML ...
Tu pourrais faire un commondialog qui enregistre un textbox ... visible ou non où ton code HTML est ecrit pis tu met un filtre *.txt et *.html
20 févr. 2002 à 18:48
met un common dialog nomme cd1
pis un bouton ... ici nommé command1
tu met un textbox ou variable ici le text box est nommé textbox
et le textbox est egal a tes metas a exporter
Écrit dans ton form
Private Sub Command1_Click()
On Error Resume Next
cd1.DialogTitle = "Exporter"
cd1.Filter = "Fichier HTML (*.html)|*.html||Fichiers Texte (*.TXT)|*.TXT|"Tout les fichiers (*.*)|*.*
cd1.FileName = "sanstitre.html"
cd1.ShowSave
If cd1.FileName <> "" Then
kill (cd1.filename)
open cd1.filename for append as #1
print #1 , textbox.text
close
else
MsgBox "ERREUR", vbCritical, "Vous devez specifier un nom de fichier"
End If
End sub
Bon je pense que cest tout ... on peut remplacer un textbox par une variable string de preference si ya un bug laisse un commentaire ou mail moi ... pis j'va corrige ... car je suis a l'ecole pis y'ont pas vb.... mais cela va marcher ... mais ptete qui manque un point ou guilmet ... car je peut pas debuger ....PAS GRAVE CAR il va surement fonctionner ....
@+ARKKO
(Alexandre Langlois)
20 févr. 2002 à 08:46
19 févr. 2002 à 22:37
Tu pourrais faire un commondialog qui enregistre un textbox ... visible ou non où ton code HTML est ecrit pis tu met un filtre *.txt et *.html