Discussion :

[Kedash]

Bonjour amis internautes je suis (encore) coincé sur une broutille technique.

voilà depuis un fichié extrait de SAP, j'ai des dates dans une colonne sous le format dd.mm.aaaa. Je travaille sur une macro qui s'appuie sur les dates pour traiter le fichier (ex: if (cell(1,2)=date+2).
Malheureusement il semble que le format avec les point ne soit pas reconnu comme une date (bien que la colonne soit au format date.
Je fait donc remplacer dans la macro tous les "." par des "/" et alors la macro reconnait les dates.
MAIS, pour une raison obscure, les dates comme 05.09.2013 deviennent 09/05/2013... Autrement il inverse les mois et les jours.

J'utilise la ligne suivante pour remplacer les "." par des "/" :

Code :

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

1
2
3
4
Columns("C:C").Select    
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

J'ai également essayé de mettre la colonne en question sous format texte mais le résultat est le même après remplacement des points.

Merci d'avance de votre aide!

[Philippe Tulliez]

Bonjour,
La lecture de ce didacticiel de Didier Gonard t'en dira plus Comprendre et gérer les dates sous Excel et en VBA

[Kedash]

Bonjour,
La lecture de ce didacticiel de Didier Gonard t'en dira plus Comprendre et gérer les dates sous Excel et en VBA

Bonjour et merci Philippe, je suis bien allé sur le lien que tu m'as proposé et y ai appris plein de choses!
Cependant je n'y ai pas trouvé une solution pour mon problême. Même si je voulais jouer sur l'interprétation d'excel (comme c'est proposé dans la partie II-E-5) ce la ne fonctionne pas car il semble qu'excel ne sache pas interpréter le format dd.mm.aaaa (renvoi une valeur erreur).

Mon soucis vient du fait que la date se modifie lorsqu'elle passe sous un format interpretable par excel.

Détail peut-être important, lorsque je fais le remplacement avec ctrl+f, cela fonctionne normalement et la date passe bien du format dd.mm.yyyy à dd/mm/yyyy.
Le problème n'apparait que lorsqu'on lance le remplacement depuis la macro VBA (à savoir que le code de remplacement des "." par "/" a été récupérée à l'aide d'enregistrement macro).

Merci de votre aide!

[Philippe Tulliez]

Bonjour,
Avant de remplacer les séparateurs, il serait intéressant de savoir au préalable si ce sont de véritables dates au sens où excel l'interprète.
Si ce sont des chaînes de caractères il faudrait les traiter sans doute d'une autre manière pour éviter le problème des dates dont les jours peuvent être interprétés comme des mois.
Si c'est une véritable date, seul le format doit être modifié.

[EngueEngue]

Code :

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

1
2
3
4
5
6
Function datetodatebien(stringue As String) As Date
jour = Left(stringue, 2)
mois = Right(Left(stringue, 5), 2)
an = Right(stringue, 4)
datetodatebien = jour & "/" & mois & "/" & an
End Function

Ou alors tu fais joujou avec les formats

[Invité]

Bonjour,
regarde ce poste http://www.developpez.net/forums/d13...e/#post7457385

[Kedash]

Code :

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

1
2
3
4
5
6
Function datetodatebien(stringue As String) As Date
jour = Left(stringue, 2)
mois = Right(Left(stringue, 5), 2)
an = Right(stringue, 4)
datetodatebien = jour & "/" & mois & "/" & an
End Function

Ou alors tu fais joujou avec les formats

Merci pour ta proposition Engue ça a l'air d'une idée intéressante, cependant j'ai essayé de l'insérer au dessus de mon programme mais je ne suis pas sur de l'utiliser correctement. quand je fait le pas à pas je ne sais pas s'il le prends en compte.

A quel moment cette fonction est prise en compte?

Bonjour,
regarde ce poste http://www.developpez.net/forums/d13...e/#post7457385

J'ai jeté un oeil rapidement, il se semble que tu te sois déja bien penché sur le sujet, je lirai plus en détail cet après-midi merci beaucoup!

[Kedash]

Je dois mal écrire quelquechose,

J'ai essayé les deux codes suivants:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function datetodatebien(stringue As String) As Date
jour = Left(stringue, 2)
mois = Right(Left(stringue, 5), 2)
an = Right(stringue, 4)
datetodatebien = jour & "/" & mois & "/" & an
End Function
Sub lui()
 
    I = 2
    While Cells(I, 1) <> ""
    Cells(I, 7) = datetodatebien(Cells(I, 3))
    I = I + 1
    Wend
End Sub

et

Code :

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

1
2
3
4
5
Sub sm()
 
Columns("C") = CDate(Replace(Columns("C"), ".", "/"))
 
End Sub

A chaque fois l'erreur "incompatibilité de type" apparait.
Dans le premier cas il s'arrête sur la ligne
datetodatebien = jour & "/" & mois & "/" & an

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim L As Long
Dim Myrange As Range
Set Myrange = Range("c:c")
For L = 2 To Myrange.Rows.Count
    If Trim("" & Myrange(L, 1)) = "" Then Exit Sub
    Myrange(L, 1) = CDate(Replace(Myrange(L, 1), ".", "/"))
Next
End Sub

[Kedash]

J'ai essayé le code que tu proposes,

Cela me renvoi la même erreur (incompatibilité de type), je mets en pj une image du test, peut-être qu'il manque des détails dans mon explition du problème

[Invité]

ta colonne C correspond bien à tes date?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim L As Long
Dim Myrange As Range
Set Myrange = Range("c:c") 'ta colonne C correspond bien à tes date?
For L = 2 To Myrange.Rows.Count
    If Trim("" & Myrange(L, 1)) = "" Then Exit Sub
    If IsDate(Replace(Trim("" & Myrange(L, 1)), ".", "/")) = True Then
        Myrange(L, 1) = CDate(Replace(Trim("" & Myrange(L, 1)), ".", "/"))
    End If
Next
End Sub

[Kedash]

Bonjour et merci pour tous ces efforts,

J'ai essayé avec ton nouveau code, cette fois pas d'érreur mais il ne se passe rien.

Par contre j'ai trouvé un code en fouinant dans les autres fichiers excel avec macro existants avec lequel cela fonctionne, pour ceux que ca intéresse le voici :

Code :

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

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

Merci encore à tous pour votre aide!