Export CSV en UTF-8 sur macro existante

Bonjour à tous,

Débutante en vba, je ne parviens pas à résoudre le problème suivant:

Je souhaite exporter des feuilles excel au format CSV avec un pipe comme séparateur de champs et encodé en UTF-8.

J'ai trouvé une macro qui génère le fichier avec le bon séparateur , mais l'encodage n'est pas bon. Pouvez-vous m'aider à 'écrire dans la macro ci-dessous?

Il existe des post traitant de ce sujet, mais je n'ai pas les connaissances suffisantes pour les adapter à mon programme!

Un grand merci!

Caroline

Sub exportCSV()
Dim Stream As Object
Sep = "|"
With Worksheets("Feuil1")
Set Plage = .Range("A1").CurrentRegion
End With
chemin = ThisWorkbook.Path & "\"
Open chemin & "test" & ".csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
End Sub

Bonjour,
Ci-dessous la liste des pays du monde avec leurs capitales au format CSV avec un "|" comme séparateur et en UTF-8.

La sauvegarde a été faite à partir d'Excel au format CSV avec le ";" comme séparateur, puis a été chargé sous Notepad++. Il suffit alors de remplacer les ";" par "|". Le tout ne prend pas une minute.

Je vous remercie pour votre réponse mais j'aimerai automatiser la création du fichier CSV en UTF-8 , avec le séparateur |

J'ai besoin de votre aide pour "imposer" le format UTF-8 dans le code ci-dessous.

Un grand merci par avance,

Caroline

Bonjour à tous,

On peut écrire comme ceci :

Sub exportCSV()
Dim Plage As Range, oL As Range, Oc As Range, Tmp As String

    Set Plage = Worksheets("Feuil1").Range("A1").CurrentRegion
    Open ThisWorkbook.Path & "\" & "test" & ".csv" For Output As #1
    For Each oL In Plage.Rows
        Tmp = ""
        For Each Oc In oL.Cells
            Tmp = Tmp & CStr(Oc.Text) & "|"
        Next
        Print #1, Utf8_Encode(Tmp)
    Next
    Close
End Sub

Voir mise en œuvre fichier joint :

Merci beaucoup, c'est parfait!

Très bonne journée,

Caroline