Export CSV via Macro VBA impossible

Bonjour,

Tout d'abord merci pour votre aide et le temps que vous me consacrez.

J'aimerais pouvoir exporter un fichier CSV d'un fichier excel afin de l'importer en comptabilité directement. Je m'explique :

- Mon fichier initial et le "Import-test.xlsm". Onglet 1, j'ai créé rapidement une macro afin de duppliquer l'onglet pour créér un fichier CSV basé sur les cellules A1 à M3000.

La macro fonctionne plus ou moins et me créé un fichier ("test julien csv macro"). Cependant ce fichier n'est pas comme comme le fichier ("Import-compta.csv).

Pourtant il devrait car quand je fais cette manipulation sans macro à la main via enregistrer sous tout fonctionne en revanche quand je fais via la macro, le fichier CSV est encore avec les ;

Enfin le but est de revenir sur le fichier initial "import test" en position d'avant export.

En espérant avoir été clair je vous remercie de votre aide,

Bonjour,

De mon temps pour exporter un fichier voilà la macro qu'on utilisait et qui fonctionne toujours très bien.

Sub ExportCSV()
Dim Plage As Object, oL As Object, oC As Object, Cible$, Sep$, Tmp$
Cible = "D:\SOS\Bidon" 'Nom et chemin du csv à créer
    Sep = ";"
        With Worksheets("IMPORT")
            Set Plage = .Range("A1:M" & .Range("B65536").End(xlUp).Row)
        End With
    Open Cible & ".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

Tu as juste Cible (le nom et chemin de ton choix) à changer.

En pièce jointe le résultat obtenu.

A=

Bon ben Merci beaucoup ca marche parfaitement.