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

Version imprimable

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:

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

22/12/2006, 16h45
dadavyvy

As-tu essayé de remplacer ?

Code:

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

par :

Code:

Print #1, Cells(x, y + 1).Text
22/12/2006, 17h01
SfJ5Rpw8

je ferai bien un essai en supprimant ces .formula...!
22/12/2006, 23h37
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:

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 ?

Citation:

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
23/12/2006, 00h09
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 :mouarf:
23/12/2006, 07h50
SfJ5Rpw8
cela fonctionnne sans le .formula... ( je comprends toujours pas à quoi il sert..?.)
Code:

1 2 3 4 5 6 .. Print #1, Cells(x, y) + ";"; Next y Print #1, Cells(x, y + 1) ...
26/12/2006, 08h44
Masmeta

Citation:

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 :mouarf:

Roooh le mauvais exemple pour les nouveaus :mrgreen: :aie:

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
26/12/2006, 09h15
Masmeta
Citation:
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:

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.....
26/12/2006, 09h17
Masmeta
Citation:
Envoyé par bbil

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

Code:

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
26/12/2006, 09h44
Masmeta
J'ai teste l'enregistrement du fichier directement en CSV grâce à
Code:

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 " "?
26/12/2006, 12h20
ouskel'n'or

Citation:

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

Citation:

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
26/12/2006, 13h00
SfJ5Rpw8

Citation:

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 .. : &

Citation:

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:

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?

26/12/2006, 16h15
Masmeta

Citation:

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 :?
26/12/2006, 16h19
SfJ5Rpw8
et tu as essayé comme je te l'ai dis plus haut tous simplement :
Code:

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

Bon voici le code qui marche :

Code:

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