Format date (francais) après remplacement . par /

Bonjour,

Je récupère quotidiennement d'une application externe un message html avec une date genre 06.07.2016 (le 6 juillet)

Je copie les données dans une feuille de suivi excel par copier/coller valeur et ensuite applique une macro de remplacement des . par des /

Code:

---

1 2 3 4

Range(Maplage).Replace What:=".", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Or du 1er au 12 du mois la date se met automatiquement en format anglais. 07/06/2016.
/après le 12 l'année n'ayant pas plus de 12 mois, le format repasse en francais et j'ai bien le 13/07/2016.

Les cellules sont en format date *14/03/2001 et paramètre régionaux France

Puis-je forcer la date sans passer par le découpage de string ?

merci pour vos conseils
Denis

Bonjour,

Personnellement, plutôt que jouer sur les paramètres, j'aime autant décomposer la valeur.

Exemple à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Public Sub essai_date()   Dim tabdate As Variant Dim ladate As Date   tabdate = Split(Worksheets("Feuil1").[A1], ".") ladate = DateSerial(tabdate(2), tabdate(1), tabdate(0)) Debug.Print ladate   End Sub

---