convertir une chaine en date et heure

**Tracker2013** · 29/04/2016, 13h12

Bonjour,

Je suis assez novice en VBA et du coup j'ai un soucis et n'arrive pas à le résoudre.

Je m'explique :

j'ai une variable : date_ech qui contient "050316 0H"

et j'aurai besoin de l'insérer dans une cellule sous le format 05/03/16 00:00

j'ai tenté avec un

Code :

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

Cdate Range("a1") = CDate(Left(date_ech, 2) & "/" & Mid(date_ech, 3, 2) & "/" & Right(date_ech, 2))

Cette méthode ne marche que si j'ai la date seule. Si ma variable contient l'heure, la macro se lance pas.

Pouvez-vous m'aider ?

Merci

**cerede2000** · 29/04/2016, 13h18

Bonjour à toi,

En effet ton right n'est pas correct !
Si tu prends Right(date_ech, 2) sur "050316 0H" tu obtiens => 0H ......
Il te faut un autre Mid(date_ech, 5, 2) =>

Code :

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

CDate(Left(date_ech, 2) & "/" & Mid(date_ech, 3, 2) & "/" & Mid(date_ech, 5, 2))

**Tracker2013** · 29/04/2016, 13h22

Ah ok, donc en effet ça marche.

Maintenant comment je fait pour afficher le 00:00 ? (sachant que dans mon exemple j'ai 0H, mais je pourrait avoir 8H30)

Invité · 29/04/2016, 13h26

Code :

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

cdate(format(left("050316 0H",6),"00/00/00"))

**cerede2000** · 29/04/2016, 13h28

Pour l'heure, il faut déjà remplacer le h par :
Puis si tu as une heure pile 0H 9H 10H il faut rajouter 0 pour avoir X:0

Puis utiliser de nouveau CDate qui traite aussi les heures

**Tracker2013** · 29/04/2016, 13h36

Bon alors du coup, suite aux conseils, j'ai fait :

Code :

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

1
2
 
Date_Ech = Replace(Date_Ech, "H", ":")

après j'imagine qu'il faut faire un If en fonction de l'heure c'est ca ?
le code de rdurupt ne marche pas (il me renvoie juste la date), mais du coup je ne sais pas utiliser le Cdate pour les heures, un ptit coup de main ?

EDIT : Pour être plus clair, je suis en train de faire un fichier de traitement de datas et du coup il va y avoir pas mal de date_ech à le suite. Faut que la macro soit capable de bien coller l'heure si c'est 00:00 ou 8:37 par exemple.

**cerede2000** · 29/04/2016, 13h42

Pourtant j'ai indiqué :

Puis utiliser de nouveau CDate qui traite aussi les heures

**Tracker2013** · 29/04/2016, 13h46

ben voui, mais j'ai quand même pas compris ^^

j'ai mis un EDIT sur mon message précédent, et du coup, tu pourrais m'écrire un petit bout de code pour m'éclairer ?

Merci

**vinc_bilb** · 29/04/2016, 13h53

Bonjour,

Damned, les experts sont trop réactifs ..... J'ai à peine le temps de réfléchir que les solutions tombent .....

Si dessous une approche par pas (attention, j'utilise Excel en anglais .....)
Col A: exemple (A1), B = resultat, C= edition de la formule en B

Code :

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

1
2
3
050316 8H30	3/5/2016	=DATE(VALUE("20" & MID(A1,5,2)), MID(A1,3,2), LEFT(A1,2))
	8:30:00 AM	=TIMEVALUE(SUBSTITUTE((MID(A1,FIND(" ",A1)+1, FIND("H",A1)-2)), "H", ":"))
	3/5/2016 8:30	=B2+B1

Invité · 29/04/2016, 13h55

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub tast()
d = "050316 8H"
Debug.Print CDate(Replace(Format(d, "@@/@@/@@ @") & IIf(Right(d, 1) = "H", "00", ""), "H", ":"))
d = "050316 8H3"
Debug.Print CDate(Replace(Format(d, "@@/@@/@@ @") & IIf(Right(d, 1) = "H", "00", ""), "H", ":"))
d = "050316 8H30"
Debug.Print CDate(Replace(Format(d, "@@/@@/@@ @") & IIf(Right(d, 1) = "H", "00", ""), "H", ":"))
d = "05031623H"
Debug.Print CDate(Replace(Format(d, "@@/@@/@@ @") & IIf(Right(d, 1) = "H", "00", ""), "H", ":"))
d = "05031623H55"
Debug.Print CDate(Replace(Format(d, "@@/@@/@@ @") & IIf(Right(d, 1) = "H", "00", ""), "H", ":"))
End Sub

**Tracker2013** · 29/04/2016, 14h18

ce code marche bien quand je le teste tout seul, mais quand je l'intègre dans ma macro, il me met

erreur d’exécution '13'
Incompatibilité de type

Invité · 29/04/2016, 14h20

Envoyé par Tracker2013

ce code marche bien quand je le teste tout seul, mais quand je l'intègre dans ma macro, il me met

erreur d’exécution '13'
Incompatibilité de type

sur quel répons ou poste?

Code :

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

Debug.Print CDate(Replace(Format([A1], "@@/@@/@@ @") & IIf(Right([A1], 1) = "H", "00", ""), "H", ":"))

**Tracker2013** · 29/04/2016, 14h31

Bon c'est bon, ca marche, j'ai du faire quelques modif dans mon code mais il reste un soucis.

si d = 0H, il me sort juste la date sans l'heure.

**Tracker2013** · 29/04/2016, 14h41

bon double post car mon problème est plus grand en fait, désolé !

mon Date_Ech est tiré de l'extraction d'un chemin qui est variable.

au début j'avais écrit ceci :

Code :

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

1
2
3
 
nom = "L112 050416 8H.Sample.Raw.csv"
Date_Ech = Mid(nom, 6, 9)

mais du coup si j'ai 23h30 ou 8h ça change la longueur

comment faire pour qu'il puisse prendre la date et l'heure (ou alors je demande à l'opérateur de toujours remplir 08H00 ?) ?

Invité · 29/04/2016, 14h43

Code :

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

1
2
3
4
5
Sub Test()
d = [A1]
Debug.Print CDate(Replace(IIf(Len(d) < 6, d, Format(d, "@@/@@/@@ @")) & IIf(Right(d, 1) = "H", "00", ""), "H", ":"))
 
End Sub

**Tracker2013** · 29/04/2016, 14h49

Même erreur,mais il est possible que je l'insère mal.

Code :

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

1
2
3
 
Nom = "L112 050416 8H.Sample.Raw.csv"
Debug.Print CDate(Replace(IIf(Len(Nom) < 6, Nom, Format(Nom, "@@/@@/@@ @")) & IIf(Right(Nom, 1) = "H", "00", ""), "H", ":"))

Invité · 29/04/2016, 14h57

tu nous donne un exemple et tu travail sur des données qu ne respecte pas l’exemple

j'ai une variable : date_ech qui contient "050316 0H"

Code :

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

1
2
Nom = Split("L112 050416 8H.Sample.Raw.csv", " ")(1) & " " & Split(Split("L112 050416 8H.Sample.Raw.csv", " ")(2), ".")(0)
Debug.Print CDate(Replace(IIf(Len(Nom) < 6, Nom, Format(Nom, "@@/@@/@@ @")) & IIf(Right(Nom, 1) = "H", "00", ""), "H", ":"))

après il faut peut-être envisager de lui apprendre à lire!

**Tracker2013** · 29/04/2016, 15h07

en fait, je tirait mon nom_ech d'un chemin de fichier, du coup je m'était pas rendu compte qu'en changeant le nombre de caractère ca changeait du coup la sélection à traiter... bref je me suis un peu perdu aussi

En tout cas, ton dernier code marche bien, il m'a juste fallu modifier "H" en "h"

Code :

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

1
2
3
4
 
    nom = Dir(fichiers(i))
    nom1 = Split(nom, " ")(1) & " " & Split(Split(nom, " ")(2), ".")(0)
   MsgBox CDate(Replace(IIf(Len(nom1) < 6, nom1, Format(nom1, "@@/@@/@@ @")) & IIf(Right(nom1, 1) = "h", "00", ""), "h", ":"))

Merci beaucoup

Invité · 29/04/2016, 15h09

Envoyé par Tracker2013

en fait, je tirait mon nom_ech d'un chemin de fichier, du coup je m'était pas rendu compte qu'en changeant le nombre de caractère ca changeait du coup la sélection à traiter... bref je me suis un peu perdu aussi

En tout cas, ton dernier code marche bien, il m'a juste fallu modifier "H" en "h"

Code :

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

1
2
3
4
 
    nom = Dir(fichiers(i))
    nom1 = Split(nom, " ")(1) & " " & Split(Split(nom, " ")(2), ".")(0)
   MsgBox CDate(Replace(IIf(Len(nom1) < 6, nom1, Format(nom1, "@@/@@/@@ @")) & IIf(Right(nom1, 1) = "h", "00", ""), "h", ":"))

Merci beaucoup

Comme ça ça marche à tous le coups

Code :

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

1
2
3
 nom =ucase( Dir(fichiers(i)))
    nom1 = Split(nom, " ")(1) & " " & Split(Split(nom, " ")(2), ".")(0)
   MsgBox CDate(Replace(IIf(Len(nom1) < 6, nom1, Format(nom1, "@@/@@/@@ @")) & IIf(Right(nom1, 1) = "H", "00", ""), "H", ":"))