Select type fichiers avec msoFileDialogOpen et Save

Sub UseFileDialogOpen()

    Dim lngCount As Long

    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
                .Filters.Clear
       .Filters.Add "document excel", "*.xls?", 1
       .Show
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount

    End With

End Sub

Private Sub CommandButton1_Click()
Dim nom
Do
        nom = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, filefilter:=" Classeur Microsoft Excel,*[COLOR=#b22222].xls?[/COLOR]", FilterIndex:=2, Title:="Enregistrer Sous")

       If nom = False Then Exit Sub
    Loop Until Dir(nom) = ""
    ActiveWorkbook.SaveAs Filename:=nom
End Sub

Private Sub Sortie_Click()
'Dim FileSelected As String

FileSelected = Application.GetSaveAsFilename(FileFilter:= _
    "Excel 2007 (*.xlsx)," & "*.xlsx," & _
    "Excel 2003 (*.xls), *xls", FilterIndex:=2, Title:="Enregistrer Sous")
      
  If FileSelected <> False Then

ActiveWorkbook.CheckCompatibility =False

   ActiveWorkbook.SaveAs Filename:=FileSelected
   ActiveWorkbook.Close
    Else
    Workbooks(Nom_fic).Close
 End If

Presta.Hide
Unload Presta
MP.Show 0
End Sub