BOITE DE DIALOGUE ENREGISTRER SOUS
mémère
-
12 avril 2001 à 15:24
STEPHANE6012 Messages postés 5 Date d'inscription samedi 23 décembre 2006 Statut Membre Dernière intervention 10 juillet 2007 - 7 juil. 2007 à 10:56
STEPHANE6012 Messages postés 5 Date d'inscription samedi 23 décembre 2006 Statut Membre Dernière intervention 10 juillet 2007 - 7 juil. 2007 à 10:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/903-boite-de-dialogue-enregistrer-sous
https://codes-sources.commentcamarche.net/source/903-boite-de-dialogue-enregistrer-sous
7 juil. 2007 à 10:56
J'ai beau essyaé mais rien n'y fait, ça marche pas
Dommage
18 janv. 2004 à 19:49
16 juin 2003 à 04:30
Private Sub Command1_Click()
CMD.DialogTitle = "Enregistrer le fichier sous"
CMD.CancelError = false
CMD.Filter = "Texte (*.TXT)|*.TXT"
CMD.FilterIndex = 1
CMD.InitDir = "C:windowsureau"
CMD.FileName = "Mémo.txt"
CMD.ShowSave
End Sub
16 juin 2003 à 04:26
On Error Resume Next
CMD.DialogTitle = "Enregistrer le fichier sous"
CMD.CancelError = True
CMD.Filter = "Texte (*.TXT)|*.TXT"
CMD.FilterIndex = 1
CMD.InitDir = "C:windowsureau"
CMD.FileName = "Mémo.txt"
CMD.ShowSave
End Sub
comme çà, çà plantera plus
8 juin 2003 à 14:31
19 août 2002 à 15:17
voilà
CommonDialog1.Filter = "Tous les fichiers (*.*)|*.*|Fichiers texte" & _
"(*.txt)|*.txt|Fichiers batch (*.bat)|*.bat"
on ferme les " et on met & _ pour que Fichiers texte soit par défaut
7 août 2002 à 11:57
Tous les fichiers images (*.jpg, *.gif, *.bmp)
Merci d'avance !
14 juil. 2002 à 22:27
31 mai 2001 à 16:18
12 avril 2001 à 16:46
12 avril 2001 à 15:24
Private Sub Command1_Click()
CMD.DialogTitle = "Enregistrer le fichier sous"
CMD.CancelError = True
CMD.Filter = "Texte (*.TXT)|*.TXT"
CMD.FilterIndex = 1
CMD.InitDir = "C:windowsureau"
CMD.FileName = "Mémo.txt"
CMD.ShowSave
End Sub
A ben vi! C'était bien ça!
Mémère