[VBA-E] [Debutant] Problème de format de cellule lors du passage en un fichier cvs

**Masmeta** · 22/12/2006, 15h30

Bonjour

Je n'ai aucune expérience en Vb et j'ai besoin de faire un fichier cvs à partir d'un fichier excel. J'ai pris la solution de ouskel'n'or pour la transformation

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
16
17
Dim x, y, DernièreLigne, DernièreColonne
    Sheets("LISTE").Activate
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreLigne = tbl.Rows.Count
    DernièreColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "c:\toto.csv" For Output As #1
        For x = 1 To DernièreLigne
            For y = 1 To DernièreColonne - 1
                Print #1, Cells(x, y).Formula + ";";
            Next y
            Print #1, Cells(x, y + 1).Formula
        Next x
    Close #1

Le code marche parfaitement mais j'ai un problème de format de cellule.
Sous Excel j'ai un format qui est jj/mm/aaaa hh:mm:ss, lors de la conversion il se retrouve en texte. A cause de cela au lieu d'avoir 02/08/2005 18:22:31, j'obtiens 38566,76564.

Comment puis je faire pour obtenir correctement la date et l'heure?

merci de votre aide

**dadavyvy** · 22/12/2006, 16h45

As-tu essayé de remplacer ?

Code :

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

Print #1, Cells(x, y + 1).Formula

par :

Code :

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

Print #1, Cells(x, y + 1).Text

**SfJ5Rpw8** · 22/12/2006, 17h01

je ferai bien un essai en supprimant ces .formula...!

**cafeine** · 22/12/2006, 23h37

Hello,

pardon mais l'export est parfaitement correct.
02/08/2005 18:22:31 = 38566,76564
C'est le type Date ...
Si tu veux l'heure et date, tu devras exporter une chaîne (String)

Code :

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

1
2
3
4
5
If TypeName(Cells(x, y + 1).Value) = "Date" Then
 Print #1, Format(Cells(x, y + 1).Value, "dd/mm/yyyy hh:nn:ss") & ";"
Else
 Print #1, Cells(x, y + 1).Value & ";"
End If

Sinon pourquoi ne pas faire un SaveAs en format CSV tout bêtement ?

Envoyé par Masmeta

../..
Le code marche parfaitement mais j'ai un problème de format de cellule.
Sous Excel j'ai un format qui est jj/mm/aaaa hh:mm:ss, lors de la conversion il se retrouve en texte. A cause de cela au lieu d'avoir 02/08/2005 18:22:31, j'obtiens 38566,76564.

Comment puis je faire pour obtenir correctement la date et l'heure?

merci de votre aide

**ouskel'n'or** · 23/12/2006, 00h09

Hello masmeta, tu peux donner l'adresse à laquelle tu as trouvé ce code que j'apporte la correction de cafeine

A+
PS - Ça m'évitera de chercher

**SfJ5Rpw8** · 23/12/2006, 07h50

cela fonctionnne sans le .formula... ( je comprends toujours pas à quoi il sert..?.)

Code :

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

1
2
3
4
5
6
..
 Print #1, Cells(x, y) + ";";
            Next y
            Print #1, Cells(x, y + 1)
...

**Masmeta** · 26/12/2006, 08h44

Envoyé par ouskel'n'or

Hello masmeta, tu peux donner l'adresse à laquelle tu as trouvé ce code que j'apporte la correction de cafeine

A+
PS - Ça m'évitera de chercher

Roooh le mauvais exemple pour les nouveaus

C'est par la pour le lien clic ici

@bbil
Pourquoi faire cela? Tout simplement que lorsque l'on enregistre sous CVS par Excel, celui ci rajoute à la fin des données de nombreux points virgule. Et enfin je t'avoue que je ne connais pas trop le VBA pour excel et que le bout de code du grand Ouskel'n'or m'est tombé tout chaud dans le bec

Quand j'aurai un peu plus de metier, je penserai à enregistrer en CVS et ensuite ouvrir le fichier à partir de la fin et effacer les lignes de ; jusqu'à trouver autre chose.

merci pour votre aide
dsl pour le retard de la réponse

**Masmeta** · 26/12/2006, 09h15

Envoyé par cafeine

Hello,

pardon mais l'export est parfaitement correct.
02/08/2005 18:22:31 = 38566,76564
C'est le type Date ...
Si tu veux l'heure et date, tu devras exporter une chaîne (String)

Code :

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

1
2
3
4
5
If TypeName(Cells(x, y + 1).Value) = "Date" Then
 Print #1, Format(Cells(x, y + 1).Value, "dd/mm/yyyy hh:nn:ss") & ";"
Else
 Print #1, Cells(x, y + 1).Value & ";"
End If

J'ai essayé de faire cette solution mais il transforme les dates en chiffre dans mon point CVS. De plus il faut rajouter des ; au 2 lignes Print#1.....

**Masmeta** · 26/12/2006, 09h17

Envoyé par bbil

cela fonctionnne sans le .formula... ( je comprends toujours pas à quoi il sert..?.)

Code :

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

1
2
3
4
5
6
..
 Print #1, Cells(x, y) + ";";
            Next y
            Print #1, Cells(x, y + 1)
...

Il me marque incompatibilité de type sur ton exemple

**Masmeta** · 26/12/2006, 09h44

J'ai teste l'enregistrement du fichier directement en CSV grâce à

Code :

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

1
2
3
4
5
6
 
Sheets("LISTE").Activate
Sheets("LISTE").Select
Sheets("LISTE").Copy
ActiveWorkbook.SaveAs Filename:="Courbes0" + s5, FileFormat:=xlCSVWindows, _ CreateBackup:=False
ActiveWindow.Close

D'abord j'ai un enregistrement avec des , et non des ; où est l'option pour modifier cela?
Ensuite il y a toujours plein de , en fin de fichier comment je peut demander a ouvrir le fichier mettre le pointeur de fichier à la fin et ensuite demander qu'il remonte en modifiant les "," en " "?

**ouskel'n'or** · 26/12/2006, 12h20

cafeine a écrit :
Hello,

pardon mais l'export est parfaitement correct.
02/08/2005 18:22:31 = 38566,76564
C'est le type Date ...
Si tu veux l'heure et date, tu devras exporter une chaîne (String)

Code :
If TypeName(Cells(x, y + 1).Value) = "Date" Then
.....Print #1, Format(Cells(x, y + 1).Value, "dd/mm/yyyy hh:nn:ss") & ";"
...Else
.....Print #1, Cells(x, y + 1).Value & ";"
End If

Envoyé par Masmeta

J'ai essayé de faire cette solution mais il transforme les dates en chiffre dans mon point CVS. De plus il faut rajouter des ; au 2 lignes Print#1.....

Et moi je dis : Remplace value par formula et essaie (pas testé, mais si besoin, je verrai ce qui ne va pas

)
Tu dis

**SfJ5Rpw8** · 26/12/2006, 13h00

Envoyé par Masmeta

Il me marque incompatibilité de type sur ton exemple

oui remplace aussi le + par l'opérateur de concaténation des chaines .. : &

**Masmeta** · 26/12/2006, 14h17

Envoyé par bbil

oui remplace aussi le + par l'opérateur de concaténation des chaines .. : &

Je ne comprend pas ce que tu veux dire.

Voici mon code :

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
16
17
18
19
20
21
22
23
 
Sheets("LISTE").Activate
    Dim x, y, DernièreLigne, DernièreColonne
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreLigne = tbl.Rows.Count
    DernièreColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "Courbes0" + s5 + ".csv" For Output As #1
        For x = 1 To DernièreLigne
            For y = 1 To DernièreColonne - 1
                If TypeName(Cells(x, y + 1).Value) = "Date" Then
                    Print #1, Format(Cells(x, y + 1).Formula, "dd/mm/yyyy hh:nn:ss") & ";";
                Else
                    Print #1, Cells(x, y + 1).Formula & ";";
                End If
                'Print #1, Cells(x, y).Formula + ";";
            Next y
            Print #1, Cells(x, y + 1)
        Next x
    Close #1

le résultat est que le format date n'est toujours pas reconnu, j'ai maintenant par exemple un 8 pour 02/08/2005 18:22:31.

Par contre pourquoi l'enregistrement en CVS donne des virgules et non des points virgule. Est ce qu'il y a une option à donner pour prendre le bon séparateur?

**Masmeta** · 26/12/2006, 16h15

Envoyé par Masmeta

le résultat est que le format date n'est toujours pas reconnu, j'ai maintenant par exemple un 8 pour 02/08/2005 18:22:31.

En faite sur cela j'ai écris une bétise. Ma colonne dd/mm/yyyy hh:nn:ss n'est pas integrer dans le fichier txt

**SfJ5Rpw8** · 26/12/2006, 16h19

et tu as essayé comme je te l'ai dis plus haut tous simplement :

Code :

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

1
2
3
4
5
6
..
 Print #1, Cells(x, y) &  ";";
            Next y
            Print #1, Cells(x, y + 1)
...

avec le &..?

**Masmeta** · 26/12/2006, 16h27

Bon voici le code qui marche :

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
16
17
18
 
    Sheets("LISTE").Activate
    Dim x, y, DernièreLigne, DernièreColonne
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreLigne = tbl.Rows.Count
    DernièreColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "Courbes0" + s5 + ".csv" For Output As #1
    For x = 1 To DernièreLigne
            For y = 1 To DernièreColonne - 1
                Print #1, Cells(x, y) & ";";
            Next y
            Print #1, Cells(x, y + 1)
    Next x
    Close #1

Merci de votre aide

[VBA-E] [Debutant] Problème de format de cellule lors du passage en un fichier cvs

Macros et VBA Excel

Discussions similaires

Partager

Partager