csv en xlsx, problème décimale Résolu/Fermé

Question

Bonjour à vous les experts! ^^'

Me voici bien embéter dû à un problème de conversion csv en xlsx (coder en VBA) qui me converti mal mes nombres décimales. Auriez-vous une idée de l'origine de l'erreur? Je vous en serez très reconnaissant =) =)

Voici des infos ci-dessous pour mieux comprendre mon problème.
Merci beaucoup,
Cordialement


Mon code VBA:

Private Sub OK_Click()

Dim S As String 'Creation of the variable S to store text

Dim Homer As Object
Dim Folder As Object
Dim Import As Object

S = Uimp.Source.Value 'Store Source in S

Set Homer = CreateObject("Scripting.FileSystemObject")
Set csvFolder = Homer.GetFolder(S)

If Homer.FolderExists(S) = False Then
        Homer.createFolder (S)
End If

Set xlsFolder = Homer.GetFolder(S)

With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .UseSystemSeparators = True
End With

For Each Import In csvFolder.Files
        If LCase(Right(Import.Name, 3)) = "csv" Then
                Set activeImport = Workbooks.Open(Import)
                activeImport.SaveAs Filename:=S & "\" & Left(activeImport.Name, Len(activeImport.Name) - 3) & "xlsx", FileFormat:=xlOpenXMLWorkbook
                Uimp.DocName.Caption = Left(activeImport.Name, Len(activeImport.Name) - 5)
                activeImport.Close True
        End If
Next

With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
End With

Uimp.Com.Caption = "Conversion from csv to xlsx done. Following document created: "

Calc.Locked = False

End Sub


Voici quelques infos supplémentaires:

Excel Parameter 

CSV File ouvert avec Editor:
 
CSV File ouvert avec Excel:
 
xlsx File ouvert avec Excel:


Lorsque j'utilise le tool d'importation d'Excel cela fonctionne mais je souhaiterais le faire en VBA (automatiser le processus).

En y regardant de plus prêt, on peut remarquer que des fois il ignore la virgule. Le nombre 10,32 devient 1 032.

Quoi29 · Answer

En essayant la solution proposée ici j'ai le même problème (non prise en compte de la virgule): https://www.developpez.net/forums/d554988/logiciels/microsoft-office/excel/macros-vba-excel/vba-conversion-xls-csv-point-virgule/

For Each Import In csvFolder.Files        If LCase(Right(Import.Name, 3)) = "csv" Then                Set activeImport = Workbooks.Open(Import)                activeImport.SaveAs Filename:=S & "\" & Left(activeImport.Name, Len(activeImport.Name) - 3) & "xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, Local:=True                Uimp.DocName.Caption = Left(activeImport.Name, Len(activeImport.Name) - 5)                activeImport.Close savechanges:=False        End IfNext

En esseyant la solution proposé ici cela ne me solutionne pas mon problème non plus:
https://www.herber.de/forum/archiv/948to952/950069_Punkt_statt_Komma.html

Supprimer la ligne ci-dessous ne change rien au problème
.UseSystemSeparators = True
Ajouter la ligne ci-dessous ne change pas le problème non plus
.DecimalSeparator=","

f894009 · Answer

Bonjour,

Lorsque j'utilise le tool d'importation d'Excel cela fonctionne mais
Y a qu'a utiliser l'enregistreur de macro!!!!

Quoi29 · Answer

Bonjour, 
Je suis toujours bloqué avec mon problème. Personne pour m'aider?

Quoi29 · Answer

EUREKA!!

Suite à différentes manipulations j'en ai conclu que l'erreur était étroitement lié à l'interprétation (langage) de VBA. En effet lorsque j'utilisais l'enregistreur de macro pour lui dire de copier coller les valeurs du fichier csv, manuellement cela fonctionnait mais pas lorsque je faisais tourner la macro enregistré lors de cette même manipulation. De plus, la seule chose qui marchait c'est lorsque j'utilisais le tool excel par la macro (ce qui est donc fait par excel et non VBA qui se charge juste de lancer le tool excel).
Suite à de nombreux sites et forums lus j'ai trouvé le lien suivant qui m'a sauvé (hallelujah): https://docs.microsoft.com/en-us/office/vba/api/Excel.Workbooks.Open
grâce à l'information suivante

J'ai changé la ligne:
Set activeImport = Workbooks.Open(Import)
par:
Set activeImport = Workbooks.Open(Import, , , , , , , , , , , , , True)

Csv en xlsx, problème décimale

4 réponses

Discussions similaires