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...

Voici le bout de code concerné :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ??