Discussion :

[Denis_67]

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 :

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

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

[MarcelG]

Bonjour,

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

Exemple à adapter

Code :

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

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