Pb avec les Dates stockées au format Texte et les macros VB Résolu/Fermé

Question

Bonjour, 

J'utilise une macro VB pour copier-coller des données d'un classeur vers un autre, et je rencontre un problème dans l'inerprétation d'un champ qui contient un texte dont j'extrait une date.
Le contenu de la cellule de départ est le suivant : =T(" (04/01/2013 15:17:34)")
La macro Excel commence par supprimer tout les caractères qui ne font pas partie de la date :
    Selection.Replace What:="=T(""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=""")", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ()", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="( ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" (", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=")", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    Selection.Replace What:="  ", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

C'est à ce moment là que j'ai un problème avec les date du type 04/01/2013 15:17:34 qui sont systématiquement interprétée comme étant au format : mm/dd/yyyy hh:mm:ss
Je me retrouve avec une date au 1er Avril, au lieu du 4 janvier !

comment faire?
Merci.

f894009 · Answer

Bonjour,

Quel EXCEL avez-vous

Grabouille97 · Answer

Bonjour F894009, 

Je travaille sous Excel 2007. Le fichier dont j'extrais les données et en Excel 2003.

Merci.

f894009 · Answer

Re,

par macro, copier les donnees d'un fichier vers l'autre, ensuite utiliser la conversion de donnees pour enlever les caracteres "parasites" et enfin formater vos cellules.

Avec l'enregistreur (sans la copie) cela donne ceci (j'ai pris toutes la colonne mais vous pouvez selectionner seulement une plage de cellules):

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 9), Array(6, 1), Array(25, 9)), TrailingMinusNumbers:= _
        True
    Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub

Ce code peut-etre ameliore par des modif manuelles

A+

eriiic · Answer

Bonjour, 

ou bien : 
[A1] = CDate(Replace(Replace([A1], "(", ""), ")", "")) 
ou :
[A1] = CDate(Mid([A1], 3, 19))

eric  
  
Jamais tu ne répondras à un mp non sollicité... 
Bon, ça c'est fait.

Grabouille97 · Answer

Bonjour, 
Et merci de votre aide, ça fonctionne bien : j'ai opté pour la solution CDate(). 

Problème résolu

Pb avec les Dates stockées au format Texte et les macros VB

5 réponses

Discussions similaires