Discussion :

[Zejaylille]

Bonjour à tous,

Je peux vous promette d'avoir parcouru et cherché sur le forum une réponse à mon problème, donc si je fais doublon:

1. Désolé. J'aurais une discussion sérieuse avec mes doigts qui ont agi contre ma volonté.
2. Merci de m'indiquer le chemin le plus court pour y accéder

Voici mon problème:

Je veux intégrer un fichier csv sous Excel. J'ai une macro qui doit formater plusieurs données et notamment celle qui me pose problème.
Les données sont dans une colonnes "date" et les valeurs sont du type:

22/07/2015 13:30
22/07/2015 10:20
22/07/2015 09:48

Si je fais manuellement la conversion en passant par le Menu Excel (Données / Convertir), la scission se se fait correctement et j'ai le résultat suivant (celui qui est espéré):

Colonne |      A       |    B     |
Valeur  |  22/07/2015  |  13:30   |

A l'aide de l'enregistreur de Macro, j'ai refait exactement la même chose et le code donné est:

Code :

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

1
2
3
4
5
Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 4)), TrailingMinusNumbers:=True

Comme je suis un garçon assez basique, j'ai recopié le tout dans un autre bout de code que j'avais fait au préalable.

Le problème, c'est que lorsque je lance la macro, les date sont bien scindées, mais les heures sont traitées de la manière suivante:
Colonne | A | B | C |
Valeur | 22/07/2015 | 01:30 | PM |

Je ne comprend pas pourquoi il agit comme ça.

Auriez vous une idée ?

Merci d'avance pour votre aide.

Bonne journée

[bboy-eazy]

Bonjour,


regardez ceci:

'mettre en A1 une date au du type 01/12/2015 12:30

Code :

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

1
2
3
4
5
6
Sub test()
With ThisWorkbook.Worksheets("Feuil1")
.Cells(1, 2).Value = DateValue(.Cells(1, 1))
.Cells(1, 3).Value = FormatDateTime(TimeValue(.Cells(1, 1).Value), vbShortTime)
End With
End Sub

[Marc-L]

Bonjour,

ou plus simplement un rappel d'une donnée "Date - Heure" dans Excel :
c'est juste un nombre dont la partie entière représente la date et la partie décimale l'heure !
En consultant le tutoriel dédié aux dates …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Theze]

Bonjour,

Dans ton fichier csv, les dates sont en string elles n'ont alors aucune valeurs numériques donc, tu pourrais faire un truc dans le genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "22/07/2015 13:30"
 
    Cells(1, 1) = DateValue(Split(Texte, " ")(0))
    Cells(1, 2) = Format(TimeValue(Split(Texte, " ")(1)), "hh:mm")
 
End Sub

Hervé.

[Invité]

Bonjour Hervé,

Bonjour,

Dans ton fichier csv, les dates sont en string elles n'ont alors aucune valeurs numériques donc, tu pourrais faire un truc dans le genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "22/07/2015 13:30"
 
    Cells(1, 1) = DateValue(Split(Texte, " ")(0))
    Cells(1, 2) = Format(TimeValue(Split(Texte, " ")(1)), "hh:mm")
 
End Sub

Hervé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "22/07/2015 13:30"
 
    Cells(1, 1) = Format(Texte, "yyyy-mm-dd") ' DateValue(Split(Texte, " ")(0))
    Cells(1, 2) = Format(Texte, "hh:mm") 'Format(TimeValue(Split(Texte, " ")(1)), "hh:mm")
 
End Sub

Code :

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

1
2
3
4
5
Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 4)), TrailingMinusNumbers:=True

Range(Cells(1, 1), Cells(1, 2)) = Array(Format(Texte, "yyyy-mm-dd"), Format(Texte, "hh:mm"))

[physce]

Bonjour,

Je déterre ce topic puisque je suis confronté exactement au même problème (13h devient 01h PM).
Les solutions proposées fonctionnent mais sont assez lente sur de grandes plages horaires contrairement à la méthode Données/Convertir qui est instantanée.

Comment se fait il que le résultat de "Données/Convertir" soit différent en vba qu'en manuel ?
N'y a-t-il pas une astuce a réaliser pour que ce soit pareil ?

Merci d'avance.

[Invité]

Bonjour,
Excel utilise les paramétrés régionaux (jj/mm/aaaa) par exemple et vba utilise le format américain (mm/dd/yyyy)!

pour éviter le problème de conversion implicite,je préconise le format internationale (yyyy-mm-dd)!

[patricktoulon]

bonjour

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
Sub test()
Set plage = Sheets(1).Range("A1", Cells(Rows.Count, 1).End(xlUp))
textToColonneDateHeure plage
End Sub
 
Function textToColonneDateHeure(plage)
tablobase = plage.Value
ReDim tablo(UBound(tablobase), 2)
For i = 1 To UBound(tablobase)
tablo(i - 1, 0) = Split(tablobase(i, 1), " ")(0)
tablo(i - 1, 1) = Split(tablobase(i, 1), " ")(1)
Next
plage.Cells(1).Resize(UBound(tablo), 2) = tablo
plage.Columns(1).NumberFormat = "dd/mm/yyyy"
End Function

[physce]

Super, cette dernière solution marche et rapidement qui plus est.
C'est ce qui s'appelle être efficace.

Il ne me reste plus qu'à comprendre tout ça pour progresser un peu.

Merci.