1 réponse
En principe :
Dialog1.Action = 2
La le programme affiche la fenetre de Dialog Save, et le programme est suspendu a cette ligne. Lorsqu'il reprend, on continu le code :
Dialog1.Action = 2
' Rien n'a ete saisie ou on a presse 'annuler'
if instr(Dialog1.Filename,"*") exit sub
Nom_Fichier = Dialog1.Filename
' Les filters :
Dialog1.Filter = "*.txt;*.bat;*.sys"
Dialog1.Filename = Dialog1.Filter
Dialog1.Action = 2
Si t'as encore des questions, mail en direct.
a+
int19h
Dialog1.Action = 2
La le programme affiche la fenetre de Dialog Save, et le programme est suspendu a cette ligne. Lorsqu'il reprend, on continu le code :
Dialog1.Action = 2
' Rien n'a ete saisie ou on a presse 'annuler'
if instr(Dialog1.Filename,"*") exit sub
Nom_Fichier = Dialog1.Filename
' Les filters :
Dialog1.Filter = "*.txt;*.bat;*.sys"
Dialog1.Filename = Dialog1.Filter
Dialog1.Action = 2
Si t'as encore des questions, mail en direct.
a+
int19h