XL 2021 VBA - Syntaxe de FileFilter en Dialog GetSaveAsFilename

Sub a()
    Dim DialogReturn As Variant
    DialogReturn = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path, _
                                                 FileFilter:="Classeurs Excel (*.csv*), csv*, (*.csv), *.csv")
    MsgBox "DialogReturn = " & DialogReturn
End Sub

Sub a()
    Dim DialogReturn As Variant
  
    DialogReturn = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path, _
                                                 FileFilter:="Classeurs Excel (*.xls*; *.csv), .xls*;.csv")
    MsgBox "DialogReturn = " & DialogReturn
End Sub

Sub a()
    Dim DialogReturn As Variant
    Dim BN As Integer
 
    'MsgBox Indispensable pour que le SendKeys fonctionne
    BN = MsgBox("Enregistrer le fichier", vbOKCancel)
 
    If BN = vbOK Then
        'Si on veut l'affichage d'un nom de fichier, il faut le préciser SANS extension sinon il ne sera pas affiché.
        'Si on indique un nom de fichier sans extension et qu'il y a des extensions en FileFilter, le Dialog ajoutera
        'automatiquement la première extension sans "wildcards" de FileFilter (ici "toto.csv") à l'affichage.
        'Et s'il n'y en a pas d'extension sans "wildcards" en FileFilter le Dialog ajoutera seulement un point "."
        'mais uniquement dans la valeur de Return et pas à l'affichage !
        'DialogReturn = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path & "\toto", _
                                                     FileFilter:="Classeurs Excel (*.xls*; *.csv), .xls*;.csv")

        'Une autre option est d'envoyer le nom de fichier par SendKeys et de ne pas avoir d'extensions en FileFilter.
        'Mais ce SendKeys ne fonctionnera que s'il est immédiatement précédé d'un MsgBox (ou autre astuce à trouver).
        CreateObject("wscript.shell").SendKeys ThisWorkbook.Name                          
        DialogReturn = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path, _
                                                     FileFilter:="Tous fichiers (*.*), .*")

        MsgBox "DialogReturn = " & DialogReturn
    End If
End Sub

'Tuto dossiers et fichier :patricktoulon
Sub test()
    '                                     [[GetSaveAsFilename]]
    '
    legende = "Tout les fichiers de type "              ' Légende du filtre
    Exts = Array("txt", "csv", "cmd")                   ' Les extensions
    filtr = "*." & Join(Exts, ";*.")                    ' Format filtre Excel(String)
    dossier_Racine = "C:\Users\patricktoulon\Desktop"   ' Dossier racine
 
 
    'SaveAsFilename
    dest = Application.GetSaveAsFilename( _
                                         InitialFileName:=dossier_Racine, _
                                         FileFilter:=legende & "(" & filtr & ")," & filtr, _
                                         Title:="ENREGISTREMENT DE LA CAPTURE")
    'InitialFileName:=string
    'FileFilter:=string
    'Title:=string
'------------------------------------------------------------------------------------------------------------
 
    '                                     [[GetOpenFilename]]
    '
    'pas de dossier racine pour GetOpenFilename
    'on utilisera la commande ChDrive pour le disque et ChDir pour le dossier
    ChDrive dossier_Racine
    ChDir dossier_Racine
    choix = Application.GetOpenFilename( _
                                        FileFilter:=legende & "(" & filtr & ")," & filtr, _
                                        FilterIndex:=1, _
                                        Title:="CHOISISSEZ UN FICHIER")
 
   
    'FileFilter:=string
    'FilterIndex:=1 '( Long)
    'Title:=string
 
End Sub

Sub TEST3()
    MsgBox GetOpenFolderName
End Sub

Function GetOpenFolderName()
    Dim ShellApp As Object, folder As Object
    Set ShellApp = CreateObject("Shell.Application")
    Set folder = ShellApp.BrowseForFolder(0, "CHOISIR UN DOSSIER", 0, "")
    If Not folder Is Nothing Then GetOpenFolderName = folder.Self.Path

'Set folder = Shell.BrowseForFolder(Hwnd, Title, Options, RootFolder)
'Hwnd           Long    - Le handle de la fenêtre parente (mettre 0 si on s’en fiche).
'Title          String  - Le texte affiché dans la barre de titre du dialogue.
'Options        Long    -    Contrôle le comportement du dialogue
        '                     0   &H0     Par défaut : tout les dossiers sont visibles
        '                     1   &H1     rien que  les dossiers du système de fichiers
        '                     16  &H10    avec input pour la saisie manuelle
        '                     512 &H200   rien que les dossiers existants

'RootFolder     Variant - Le dossier racine de départ. Peut être un chemin ("C:\...") ou une constante spéciale (ex : &H11& pour Mes Documents).
End Function

Sub UseFileDialog()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
        .InitialFileName = ThisWorkbook.FullName
        .Title = "Sauvegarder comme"
        If .Show = -1 Then
            Debug.Print .SelectedItems(1)
        Else
            MsgBox "Sauvegarde Annuler"
        End If
    End With
End Sub