Fonction Workbooks.Open problème de date

Question

Bonjour, 

voila j'ai un petit probl&#232;me avec la fonction Workbooks.open lorsque je l'applique &#224; un classeur excel qui contient des dates. Quand j'ouvre un classeur via cette fonction les dates se mettent en anglais, je m'explique par exemple la date du 03 f&#233;vrier 2005, en fran&#231;ais 03/02/2005 se transforme en 02/03/2005 ce qui ne se produit pas si j'ouvre le classeur excel normalement en faisant fichier, ouvrir etc.

Comment pourrais-je sp&#233;cifier le type de langue? si cela viens bien de &#231;a.

Je suis sous office 2000 et je d&#233;vellope sous Microsoft Visual Basic 6.0

Merci d'avance

Tom.

cs_bouf · Answer

Salut,
Je ne vois aucune raison pour qu'il te modifie une date. Si ta date est &#233;crite dans une feuille et en "dur" il ne peut la changer. Si c'est en programmation VBA, c'est sur que tout ce que tu feras devra et est en anglais comme les dates, les fonction : si devient if....
si tu veux ecrire dans ton prog des date alors il faut les ecrire en anglais du type :
if Vardate = #03/14/2005# then...

Cliff le bouffeur

valtrase · Answer

Salut,
Essayes en mettant local &#224; true
Workbooks.Open "Monfichier",local:=True
Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

energizer956956 · Answer

Euh non valtrase quand je rajoute local:=True &#231;a me met une erreur "Argument nomm&#233; introuvable" apprament je n'est pas l'option local avec la fonction open.

Oui je sais bien bouf que &#231;a a l'air bizard ce que je dis mais il ne change pas la date il change simplement l'affichage de la date il affiche la date avec un format en anglais alors que dans les propri&#233;t&#233;s de la cellule je lui est bien sp&#233;cifi&#233; date au format jj/mm/aa.

Tom

valtrase · Answer

Re,
Tu dois peut-&#234;tre passer par un appel complet
Application.Workbooks.Open "Monfichier", local:=True

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Fonction Workbooks.Open problème de date

4 réponses

Discussions similaires