Proposer un nom dans un "enregistrer sous"Résolu

Question

j'ai trouvé ce code sur vbfrance :


CommonDialog1.Filter = "All (*.*)"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Dial.Text
Close #1
End If

et en fait j'aimerai qu'il n'y est que les fichier texte visible et qu'il soit proposer directement la date du jour suivi de "dialogue" comme nom de fichier au lieu que la case soit vide.

Merci d'avance

cs_DARKSIDIOUS · Accepted Answer

arf, oui normal, le caract&#232;re slash est un caract&#232;re interdit pour
les noms de fichier, du coup, la date du jour ne peux pas &#234;tre utilis&#233;e
telle quelle, mets plut&#244;t ceci :



CommonDialog1.FileName = day(now) & "_" & month(now) & "_" & year(now) & "dialogue.txt"

_____________________________________________________________________

cs_DARKSIDIOUS · Answer

Il suffit juste de modifier l&#233;g&#233;rement le code. Si ma m&#233;moire est bonne, ca doit donner ceci :
CommonDialog1.Filter = " Texte (*.txt)|*.txt"
CommonDialog1.FileName = format(now, "short date") & "dialogue.txt"

_____________________________________________________________________

DJ_FleX · Answer

J'ai une erreur d'exécution 20477 (nom de fichier non valide) au niveau de la ligne : CommonDialog1.ShowSave

CommonDialog1.Filter = "Texte (*.txt)|*.txt"
CommonDialog1.FileName = Format(Now, "short date") & "dialogue.txt"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Dial.Text
Close #1
End If

Proposer un nom dans un "enregistrer sous"

3 réponses

Discussions similaires