Discussion :

[AbsolutAlex]

Bonjour,

Je récupère des dates d'un export de BDD dans un tableau à 2 dimensions. Jusqu'ici tout va bien.
Ensuite, via la formule ci-dessous j'intègre ces mêmes dates dans un fichier de suivi :

Code :

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

Range(T0 & a) = TableauNouveauSite(CodeSite, 2)

Formule assez simple. Mais lorsqu'une date du style "12/06/2018" est présente dans mon TableauNouveauSite, la date retranscrite sur la cellule du fichier de suivi est "06/12/2018". Assez problématique...

J'ai beau forcer le format de la cellule avec le bon format de date, rien n'y fait.
Mon TableauNouveauSite est un tableau de String et il ne peut en être autrement :/

Je suis preneur de toute solution, merci d'avance !

Bonne soirée.
Alex

[Jean-Philippe André]

Salut,

les problèmes de dates sont fréquemment abordés ici

Pour commencer, quand je lis

Code :

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

"12/06/2018"

pour moi ca restera toujours une chaine de caractères

que t'affiche la ligne suivante

Code :

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

Debug.Print TableauNouveauSite(CodeSite, 2)

et la ligne

Code :

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

Debut.Print Cdbl(TableauNouveauSite(CodeSite, 2))

[AbsolutAlex]

Bonjour,

Merci pour la réponse.
Pour répondre à ta question le code :

Code :

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

Debug.Print TableauNouveauSite(CodeSite, 2)

Me renvoi la date au bon format.

Et le code :

Code :

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

Debut.Print Cdbl(TableauNouveauSite(CodeSite, 2))

Me renvoi une erreur d’incompatibilité.

Mais cette fonction Cdbl m'a fait penser à la fonction Cdate. Et en utilisant le code :

Code :

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

Range(T0 & a) = Cdate(TableauNouveauSite(CodeSite, 2))

ça fonctionne !

Merci de ton aide !