Re : Pb saisi format de Date...
Bonjour eriiic,
Je dois avouer que je ne sais plus car il semble que ça ne fonctionne pas. je me demande si ce n'est pas l'ordi d'ici.... Bon en gros voici ce que j'ai écris comme code pour la macro et il ne semble pas écrire le bon format, il écrit mais pas le bon et il semble ne pas changer lorsqu'on va dans le Panneau de configuration pour changer le format linguistique. Je me demande s'il ne faut pas définir la variable fdate, je crois que c'est ça le Pb. Voici le code
Sub Format_Date()
'0 = M-J-A, 1 = J-M-A, 2 = A-M-J
fdate = Application.International(xlDateOrder)
If fdtate = 0 Then Sheets("Feuil1").Range("F6").Value = "(MM-JJ-AA, MM-DD-YY)"
If fdtate = 1 Then Sheets("Feuil1").Range("F6").Value = "(JJ-MM-AA, DD-MM-YY)"
If fdtate = 2 Then Sheets("Feuil1").Range("F6").Value = "(AA-MM-JJ, YY-MM-DD)"
End Sub
est-ce qu'il me faut définir fdate As String ou quelque chose du genre pour que le code soit conforme car fdate est une variable si je ne me trompe pas....
Merci à l'avance
Neo