Discussion :

[robinply]

Cher amis,

J'ai besoin de votre aide

J'utilise Excel 2016 sous windows 10.

J'utilise VBA pour enregistrer mon Excel au format CSV afin qu'il soit utilisé dans une autre interface.

Le code VBA utilisé est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ChDir "R:\Reval_Import"
    ActiveWorkbook.SaveAs Filename:="R:\Reval_Import\To_Be_Uploaded\Deal_FX_Swap_" & Day(Date) & Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False

Le code fonctionne, il n'y a pas de problème avec ca.

Le problème vient du fait qu'Excel lors de la conversion au format CSV rogne le nombre de décimales des nombres.

J'ai essayé plusieurs techniques:
- formater le nombre comme Texte avec 10 décimales
- faire un copy/paste value du nombre (pensant que si je laissais le calcul ca ne marcherait pas)

La seule solution que j'ai trouvé, c'est de rentrer toutes les données (toutes les colonnes) sous forme d'une chaine de texte séparée d'une virgule (ie monter CSV à la main).

Cette solution ne me convient pas.

J'aimerai donc de l'aide pour savoir comment garder le nombre de décimales des nombres lors de la conversion au format CSV.

merci beaucoup de votre aide future ; )

Robin,

[BENNASR]

bonsoir
afin de bouger cette discussion peux tu joindre un petit exemple du fichier excel obtenu ??

[robinply]

bonsoir
afin de bouger cette discussion peux tu joindre un petit exemple du fichier excel obtenu ??

Ci-joint, les fichiers Excel et CSV:

- fichier Excel => contient les décimales (colonnes en vert) => -601212.0786578490000 et 594766.230823130000000

- fichier CSV => les décimales ont été tronquées => -601212.0787 et 594766.2308

Ci-dessous, le code que j'ai mis dans la macro pour avoir les décimales:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("U" & i).Value = Application.WorksheetFunction.Text(-(Range("R" & i).Value / Range("T" & i)), "#0.00000000000")

Depuis le début du post, j'ai remarqué que si je mettais une formule dans la cellule (ie R4/C4), ca me donnait aussi que 4 décimales ...

Merci de votre aide,

[BENNASR]

re
désolé réponse hors sujet...je continue à voir de près

[robinply]

re
désolé réponse hors sujet...je continue à voir de près

Merci Bennasr,

Le code a marché quand je l'ai exécuté sur deux lignes.

En revanche, des que j'ai mis 60 lignes, il a de nouveau tronqué les décimales ... Est ce que tu as une explication pour ca ?

Merci deja pour ton aide,

Robin,

[Patrice740]

Bonjour,

Au lieu de FileFormat:=xlCSV essaies avec FileFormat:=xlCSVMSDOS
Chez moi ça fonctionne avec ton fichier et 80 lignes
Edit : ça fonctionne aussi avec xlCSV.

Edit 2: la valeur enregistrée est la propriété .Text de chaque cellule, i.e. la valeur formatée, il faut donc que les décimales soient affichées pour qu'elles soient enregistrées

[patricktoulon]

bonjour
je te propose de, sortir des sentier battus, ne pas faire comme les autres,

j'ai donc imaginé copier la plage en format texte en un coup sans boucle

cette astuce je l'ai deja proposé dans les contributions une recherche t'aurait été bien utile

je te propose meme 2 modes saveas "blablabla" ou avec boite de dialogue saves as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function save_with_dialog(plage, Soption As Variant)
    Dim Dossier$, Fname, texte$
    If Soption = True Then
        Fname = Application.GetSaveAsFilename(filefilter:="CSV Files (*.csv), *.csv", Title:="ENREGISTREMENT DE LA plage en csv")
        If Fname <> False Then chemin = Fname Else Exit Function
    Else
        Dossier = Mid(Soption, 1, InStrRev(Soption, "\"))
        If Dir(Dossier) <> "" Then chemin = Soption Else MsgBox "chemin non valide": Exit Function
    End If
    plage.Copy
    texte = Replace(CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT"), vbTab, ";")
    X = FreeFile
    Open chemin For Output As #X: Print #X, texte: Close #X
    Application.CutCopyMode = False
End Function

une sub que j'ai testé sur ton xlsx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    Dim plage, X
    Set plage = Range("A1").CurrentRegion' a toi d'adapter la plage comme caavec currentregion  ca copie tout ce qui est rempli 
    'X = save_with_dialog(plage, "C:\Users\polux\DeskTop\monfichier.csv")    'sans boite de dialogue save as
    X = save_with_dialog(plage, True)    'avec  boite de dialogue save as
End Sub

think differently !!!

[robinply]

Bonjour,

Au lieu de FileFormat:=xlCSV essaies avec FileFormat:=xlCSVMSDOS
Chez moi ça fonctionne avec ton fichier et 80 lignes
Edit : ça fonctionne aussi avec xlCSV.

Edit 2: la valeur enregistrée est la propriété .Text de chaque cellule, i.e. la valeur formatée, il faut donc que les décimales soient affichées pour qu'elles soient enregistrées

Merci Patrice,

Ça a fonctionné lors du premier essai.
J'ai re-testé par la suite et ça n'a pas fonctionné.
J'ai eu le même cas avec la fonction CDbl.
D'où peut venir le problème ?

Est ce que ça pourrait venir ce cette fonction que j'utilise pour supprimer les lignes converties ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Selection.Clear

merci de votre aide,

Robin,

[Patrice740]

Ça fonctionne très bien mais il faut fermer le fichier csv et ré-ouvrir le fichier Excel pour relancer la macro.

[robinply]

Merci Patrice,

Est ce qu'il y aurait un moyen d’éviter de devoir fermer le fichier Excel ?

Merci de votre aide,

Robin,

[patricktoulon]

re
oui tu peux eviter de fermer le fichier original en faisant simplment un sheets(ton sheets).copy
& activeworkbook.saveas........et puis activeworkbook.close

sinon utilise mon astuce qui elle ne touche pas au workbook

[robinply]

Merci Patrick,

C'est déjà ce que je fais .... mais ca ne fonctionne pas. Enfin, ca fonctionne une fois puis ca en fonctionne plus ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    ' Exporter au format CSV
    Range("A1").Select
    Sheets("Deal_FX_Swap").Select
    Sheets("Deal_FX_Swap").Copy
    ChDir "R:\Reval_Import"
    ActiveWorkbook.SaveAs Filename:="R:\Reval_Import\To_Be_Uploaded\Deal_FX_Swap_CFH_" & Day(Date) & Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) & ".csv" _
        , FileFormat:=xlCSVMSDOS, CreateBackup:=False
 
 
    ' fermer le fichier saved
    ActiveWorkbook.Close False

Merci de votre aide,

Robin,

[patricktoulon]

re
ca devrait etre mieux avec ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
'Range("A1").Select' pas besoins!!!!!
'Sheets("Deal_FX_Swap").Select ' pas besoins!!!!
    Application.DisplayAlerts = False
    Sheets("Deal_FX_Swap").Copy    '
    ChDir "R:\Reval_Import"
    With ActiveWorkbook
        .SaveAs Filename:=CurDir & "\" & "Deal_FX_Swap_CFH_" & Day(Date) & Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) & ".csv" _
              , FileFormat:=xlCSVMSDOS, CreateBackup:=False
        .Close False
    End With
    Application.DisplayAlerts = True
End Sub

texté!!!! 10 fois d'affilé 10 csv

je sais pas si chdir fonctionnera pour un disque qui n'est pas c au quel cas il faudra faire un chdrive avant le chdir donc chdrive R

re
j'ajoute que tu peut construire le nom comme ca aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SaveAs Filename:=CurDir & "\" & "Deal_FX_Swap_CFH_" & Format(Now, "ddmmyyyynnss") & ".csv" _
              , FileFormat:=xlCSVMSDOS, CreateBackup:=False

[robinply]

re
ca devrait etre mieux avec ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
'Range("A1").Select' pas besoins!!!!!
'Sheets("Deal_FX_Swap").Select ' pas besoins!!!!
    Application.DisplayAlerts = False
    Sheets("Deal_FX_Swap").Copy    '
    ChDir "R:\Reval_Import"
    With ActiveWorkbook
        .SaveAs Filename:=CurDir & "\" & "Deal_FX_Swap_CFH_" & Day(Date) & Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) & ".csv" _
              , FileFormat:=xlCSVMSDOS, CreateBackup:=False
        .Close False
    End With
    Application.DisplayAlerts = True
End Sub

texté!!!! 10 fois d'affilé 10 csv

je sais pas si chdir fonctionnera pour un disque qui n'est pas c au quel cas il faudra faire un chdrive avant le chdir donc chdrive R

Merci Patrick,

Je vais mettre mon fichier directement dans le message.
Je pense que l'on confond le problème:
- le fichier se crée bien en CSV
- le problème vient du fait que lors de la création du CSV, les décimales sont rognées (ie 4 décimales vs 10 décimales).

Voici le fichier,

Merci de votre aide à tous,

[patricktoulon]

re
a tu bien regarder dans le csv avec blok note si vraiment tes decimales etaient tronquées ???????????
je sais pas je vais tester mais je crois que c'est a l'ouverture du csv que excel comme ce n'est pas un xl(..) il formate les cellules en standard et donc nombre a 2 decimale

verifie avec BLOKNOTE un de tes csv

[robinply]

Merci Patrick,

Oui j'ai vérifié avec "Note" et les décimales sont bien tronquées.

[patricktoulon]

re
alors tu n'a pas d'autre choix que mon astuce que je t'ai donné

je te l'ai simplifié une petite fonction perso

la fonction a mettre dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function save_As(sh As Worksheet, chemin As String, Optional separator As String = ";")
   Dim Texte$, X&
   sh.UsedRange.Copy
    Texte = Replace(CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT"), vbTab, separator)
    X = FreeFile
    Open chemin For Output As #X: Print #X, Texte: Close #X
    Application.CutCopyMode = False
End Function

et voila comment on l'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
     ChDrive R
     ChDir "R:\Reval_Import"
     chemin$ = CurDir & "\" & "Deal_FX_Swap_CFH_" & Format(Now, "ddmmyyyynnss") & ".csv"
    save_As Sheets("nom de ton sheets ici"), chemin    'NE PAS OUBLIER DE METTRE LE NOM DU SHEETS !!!!!!!!!!!!!!
End Sub

la au moins tu es sur de ton coup

pour info c'est ICI

[robinply]

Merci Patrick,

Je viens de rentrer ton code mais ca ne fonctionne toujours pas.
J'ai toujours uniquement 4 décimales ...

Je t'ai remis le fichier en pièce jointe,

Penses tu à une autre solution ?

merci de votre aide,

Robin,

[patricktoulon]

re
heu non j'en ai pas d'autre et avec ma methode il est impossible que les decimales soient tronquées c'est garanti a 100% puisque je copie le .text et non le .value

c'est impossible ta un probleme avec ton ouverture a mon avis dans le bloknote elles ne doivent pas etre tronquées
impossible!!,impossible!!,impossible!!!
c'est clair comme ca ?
ton probleme viens d'ailleurs
avec ma methode chez moi un csv ca donne ca il n'y a pas de raison que chez toi ca fasse autrement