Private Sub Enr_Click() Ret = cmd_Ouvre() End Sub
'Filt1 = extention des fichiers à chercher 'ex: TXT ou EXE 'la routine ajoute le filtre tous (*.*) Function cmd_SaveAs(Filt1 As String) As String Filtre1 = "Fichier TXT (*.txt" & Filt1 & ")|*.txt" & Filt1 '"Fichier (*.txt" & Filt1 & ") | *.txt" & Filt1 Filtre2 = "Tous (*.txt*) | *.txt" Dialog.CMDialog1.Filter = Filtre1 + "|" + Filtre2 Dialog.CMDialog1.FilterIndex = 1 Dialog.CMDialog1.flags = OFN_HIDEREADONLY Dialog.CMDialog1.Action = DLG_FILE_SAVE cmd_SaveAs = Dialog.CMDialog1.FileName Unload Dialog End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question