Format de date US ou FR

Bonjour,

J'ai un petit soucis avec ma macro VBA, voilà, je demande une date à l'utilisateur, la met dans une variable.
Ensuite je m'en sers pour me caler sur la bonne ligne dans un fichier, tout ça fonctionne très bien, mais quand j'affiche la date dans une cellule elle se met au format US, alors que si je l'affiche dans une MsgBox elle est bien au format FR... 8O8O

Voici le bout de code concerné :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ' quelle date le user veut-il récupérer ? date_jour = InputBox("Quelle date voulez-vous afficher ? Merci de l'écrire au format JJ/MM/AAAA", "Question...", 0) 'msg = MsgBox(date_jour, vbInformation, Test) Workbooks("XXXX 2009.xls").Worksheets("Feuil1").Activate Range("C1").Value = date_jour ' on ouvre le fichier qui va bien et active la feuille où sont les données Workbooks.Open("XXXX 2009.xls").Worksheets("XXXX").Activate ' on cherche la date du jour correspondant For Each j In [B:B] If j Like date_jour Then num_ligne = j.Row Exit For ' pas la peine de continuer si l'on a touvé la valeur recherchée !! End If Next
Quelqu'un a-t-il une idée pour remédier à ça ??

Une petite précision dont je viens de me rendre compte, cela ne le fait qu'entre le 01 et le 12 du mois !

Exemple : je tape 10/03/2009 => il affichera 03/10/2009
par contre si je tape 17/03/2009 => il affiche bien 17/03/2009...

C'est louche... :arf:

En attendant, j'ai continué mes recherches et j'ai trouvé, c'était tout bête (comme d'habitude...), au début du code j'ai ajouté :

Code:

Dim date_jour As Date

et hop ça fonctionne impec !:mrgreen: