Bonjour,

Tout d'abord un grand merci, j'ai tendance a poser pas mal de question, et vous avez toujours des réponses a m'apporter.



Une macro va récupérer dans un fichier excel, une date dont le format est le suivant JJ.MM.AAA.
Je mets en forme pour remplacer les points par des slashs JJ/MM/AAAA
Lorsque le jour de la date est comprise entre le 1er et le 9 du mois, ma mise en forme inverse le jour et le mois ce qui me donne MM/JJ/AAAA, par contre si le jour est entre le 10 et le 31 pas de souci.
Ex : 04.09.2007 devient 09/04/2007



Voici donc 2 scripts pour essayer de détourner le pb, mais qui ne l’ont finalement pas résolus
Exemple avec dans la cellule chell (« A1 ») 04.09.2007

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
‘ici Je fais un simple remplace . par /
Sub test ()
Dim chell as range
Set chell = Range("a1")
chell. Replace what:=".", Replacement:="/" 
end sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 ‘ici je récupère uniquement le JJ MM et AAAA sans les points 
Sub essai () 
Dim boite As String
Dim chell as range
Set chell = Range("a1")
 
    boite = chell
    boite = Left(boite, 2) & "/" & Left(Right(boite, 7), 2) & "/" & Right(boite, 4)
    chell = boite ‘ le format c’est inversé
End sub
Je vais essayé une autre variante, mais j'ai peu d'espoir.

Encore pour votre aide