Exporter une feuille Excel en csv encodé en UFT8

Bonjour,

pour exporter une feuille excel en csv

J'utilise ce code

   Open "G:\Commandes CSV\MaFermeEnVille.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 #1
    Application.ScreenUpdating = True

Que faudrait il ajouter pour l'enregister en UFT 8 ?

Merci du coup de main

Bonjour,

pour moi ca ne sera plus vraiment un csv (texte simple en ASCII)

Regarde du coté de ChrW() qui retourne l'unicode d'un caractère.

Je ne connais pas d'équivalent pour traiter une chaine.

eric

Edit : ah si : StrConv()

Merci pour la réponse.

Je m’aperçois que j'ai oublié la moitié du code dans mon premier message

    
     With Sheets("CSV MFEV")
    .Visible = True
    Sheets("CSV MFEV").Select
    Application.ScreenUpdating = False
    Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
    Sep = ";"
    Set Plage = ActiveSheet.Range("A1:H500")
    .Visible = False
    End With
    Open "G:\Commandes CSV\MaFermeEnVille.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 #1
    Application.ScreenUpdating = True

Ca ne change rien à ma réponse.

eriiic a écrit :

Ca ne change rien à ma réponse.

Merci tout de même.

J'ai cherché un bon moment et j'ai trouvé ce code sur ce sujet https://forum.excel-pratique.com/viewtopic.php?t=65893

Que j'ai adapté pour moi avec le UFT_8

    With Sheets("CSV MFEV")
Dim sNomCsv As String
Dim Chemin As String
Sheets("CSV MFEV").Visible = True

   On Error Resume Next
    Chemin = "G:\Commandes CSV"
    sNomCsv = "MaFermeEnVille"
    Application.DisplayAlerts = False
    Sheets("CSV MFEV").Copy

    With ActiveWorkbook
        .SaveAs Filename:=Chemin & "\" & sNomCsv & ".csv", FileFormat:=xlCSVUTF8, _
        CreateBackup:=False, local:=True
        .Close
    End With

    MsgBox "Le fichier CSV est enregistré sous : " & dossier_cible & "\" & sNomCsv
    Application.DisplayAlerts = True
    Sheets("CSV MFEV").Visible = False
    On Error GoTo 0
End With

Problème résolu

Merci

Ah tien, il n'existait pas dans le temps celui-ci.

J'ai complété ma liste