FichierActif = ActiveWorkbook.Name
CheminActif = ActiveWorkbook.Path & '\\*.xls'
fichierrecherche = Application.GetSaveAsFilename(CheminActif, _
fileFilter:='Fichiers D (*.dtt), *.dtt', Title:='Nom de fichier d au format texte')
If Not (fichierrecherche = 'FALSE') Then
ActiveWorkbook.SaveCopyAs FileName:=fichierrecherche, FileFormat _
:=xlText, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=False
End If