Problème de conversion .xlsm en .csv

Bonjour,

J'ai un soucis au niveau d'une macro qui convertie un document excel en un document csv. Le problème est que la macro convertie le nombre "366138224201022000" étant un code barre en "3,66138224201022E+17" alors qu'il est bien au format nombre sur excel. Je vous copie ici la macro:

Sub Extraire_CSV2()

Dim Fichier As String
Dim Chemin As String
Dim Ligne As String

Dim r As Integer
Dim C As Integer

    Sheets("BDD").Select

    r = 1

    Chemin = ThisWorkbook.Path & "\"
    Fichier = "A_importer_" & Format(Now, "DDMM_HHMMSS") & ".CSV"

    Close #1
    Open Chemin & Fichier For Output As #1
    Do Until IsEmpty(Range("A" & r))

        Ligne = ""
        C = 1
        For C = 1 To 44
            Ligne = Ligne & ";" & Cells(r, C)
        Next

        Print #1, Right$(Ligne, Len(Ligne) - 1)
        r = r + 1
    Loop
    Close #1

End Sub

Cordialement

Merci

bonjour,

Juste pour faire avancer le schmilblic...

Moi je tenterai plutôt le format Texte :

Ligne = Ligne & ";" & Cells(r, C).Text

A+

Merci beaucoup pour votre aide, ça marche très bien ;)