Enregistrer au format csv avec encadrements

La fonction fgetcsv en php m'impose un "encadreur" de données en plus d'un séparateur.

Pour le séparateur, ce sera le ;

Pour l'encadreur ce sera "

Mais avez-vous une solution simple pour enregistrer un fichier xlsx en format csv avec des encadrements ?

Concrètement je voudrais ceci ;

"dfgh";"Nom 1";"Prenom 1"
"jjjj";"coucou";"test"

et non ceci :

dfgh;Nom 1;Prenom 1
jjjj;coucou;test

Bonjour,

une solution via une macro

Sub saveas2sep()
    i = 1
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    dc = Cells(1, Columns.Count).End(xlToLeft).Column
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "ouvrir fichier csv"
        .Filters.Clear
        .Filters.Add "text csv", "*.csv"
        .AllowMultiSelect = False
        If .Show = -1 Then
            fichier = .SelectedItems(1)
        End If
    End With
    Open fichier For Output As #1
    For i = 1 To dl
        For j = 1 To dc
            If j > 1 Then Print #1, ";";
            Print #1, Chr$(34) & Cells(i, j) & Chr$(34);
        Next j
        Print #1, ""
    Next i
    Close #1
End Sub

Merci

pas de solution autre qu'une macro ?

Si pas d'autres solutions, grand merci à toi, cela marche nickel !