[VBA-E] Format date SAP vers Excel

Bonjour,

Je suis en train de faire une macro, une des fonction est de changer le format date de SAP (sous la forme jj.mm.aaaa) vers le format date classique reconnu par excel (sous la forme jj/mm/aaaa)

J'ai donc composé ce code :
Code:

1 2 3 4 5 6 7 Sub remplacer_point() Sheets("extraction_yr12").Activate Columns("F:F").Select Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True End Sub
Le problème est que cela me donne un format de date comme cela : mm/jj/aaaa...
Quelqun saurait comment y remédier ?

Regarde dans l'aide du côté de la fonction Format ou encore du côté de la propriété NumberFormat de l'objet Range.

Peut être que la conversion marchera mieux que le replace

Code:

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

Merci beaucoup; ça marche

Bonjour,

Rectification, cela ne fonctionne pas chez moi :(

J'ai tenté une macro qui a déja fonctionné (on m'a aidé) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub test() Dim Annee As Integer, Mois As Integer, Jour As Integer Dim Cel As Range For Each Cel In Columns("D:D") If Cel Like "##.##.####" Then Annee = Right(Cel, 4) Mois = Mid(Cel, 4, 2) Jour = Left(Cel, 2) Cel = DateSerial(Annee, Mois, Jour) End If Next Cel End Sub
Mais cela bloque à :
If Cell Like "##.##.####" Then

Comment pourrais-je la réparer ?

Si toutes tes cellules sont formaté en JJ.MM.AAAA alors supprime le test du format qui te pose problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
Dim Annee As Integer, Mois As Integer, Jour As Integer
Dim Cel As Range
 
For Each Cel In Columns("D:D")
        Annee = Right(Cel, 4)
        Mois = Mid(Cel, 4, 2)
        Jour = Left(Cel, 2)
        Cel = DateSerial(Annee, Mois, Jour)
Next Cel
 
End Sub

Bonjour,

Merci pour ton aide, j'ai fait un copier coller de ta macro mais elle plante à la ligne :
Annee = Right(Cel, 4)

Comment je peux l'adapter ?

D'avance merci

Je suis plutot adepte de ce genre de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Annee As Integer, Mois As Integer, Jour As Integer
Dim i As Long
 
i = 1
Do While Range("D" & i).Value <> ""
        Annee = Right(Range("D" & i).Value, 4)
        Mois = Mid(Range("D" & i).Value, 4, 2)
        Jour = Left(Range("D" & i).Value, 2)
        Range("D" & i).Value = DateSerial(Annee, Mois, Jour)
        i = i + 1
Loop