Date au format américain

Bonjour,

Je cherche à enregistrer un classeur au moyen d'une date (contenue dans une variable) au format américain.

Code:

---

1 2	Public date_cal As Date date_cal = Sheets("extract°_calendrier").Range("B1")

---

'me renvoie la (bonne) date : 08/10/2020

Code:

---

MakeUSDate = Year(date_cal) & "." & Month(date_cal) & "." & Day(date_cal)

---

'me renvoie : "2020.10.8"

Je souhaite que les mois et jours s'affichent avec 2 chiffres, alors j'ai modifié comme suit :

Code:

---

MakeUSDate = Year(date_cal) & "." & Format(Month(date_cal), "mm") & "." & Format(Day(date_cal), "dd")

---

Le résultat est : "2020.01.07" !! D'où viennent ce "01" et ce "07" ?

Comment convertir ma date initiale (08/10/2020) en 2020.10.08 (sans guillemets dans ma variable) ?

En vous remerciant par avance pour votre aide,

Cordialement,

PS : j'ai consulté ce lien, sans doute une référence incontournable en la matière (bravo au rédacteur !) sans avoir pu y trouver la réponse à ma question :
https://didier-gonard.developpez.com...-excel-et-vba/

PS : j'avais aussi tenté ceci qui me paraissait plus simple mais qui me renvoyait une erreur :

Code:

---

1 2	date_cal = Sheets("extract°_calendrier").Format(Range("B1"), "yyy mm dd")

---

Cordialement,
jpma75

Salut.

Utilise ce qui suit

Code:

---

format(VariableDate,"yyyy.mm.dd")

---

Citation:

---

Envoyé par jpma75

[...]

Code:

---

MakeUSDate = Year(date_cal) & "." & Format(Month(date_cal), "mm") & "." & Format(Day(date_cal), "dd")

---

Le résultat est : "2020.01.07" !! D'où viennent ce "01" et ce "07" ?[...]

---

Il faut savoir que les dates sont des nombres. Donc, lorsque tu manipules une date, tu manipules des nombres.

Lorsque tu utilises ton code, par exemple Format(Month(date_cal), "mm"), tu récupères d'abord le mois de ta date (qui va donc varier de 1 à 12) puis tu le transforme avec Format, qui reçoit donc une valeur comprise entre 1 et 12, et tu demandes de récupérer les chiffres du mois ( => "mm") de cette valeur. Donc, Format considère que tu lui as passé une date, comprise entre le 31/12/1899 et le 11/01/1900 => Si le mois de ta date initiale est 1, ton code renverra 12 (car tu testeras le 31/12/1899) et s'il ce mois est >1, le mois renvoyé par ton code est donc forcément janvier => 01.

Pièce jointe 581675

Idem pour le jour.

CQFD ;)


PS 1: Si tu voulais utiliser ton code, tu devrais avoir Format(Month(date_cal), "00")... ;)

PS 2: Pour VBA, la date 1 est le 31/12/1899... il y a donc un décalage entre VBA et Excel pour les dates comprises entre le 01/01/1900 et le 28/02/1900 (Excel considère que 1900 est bissextile et "invente" un 29/02/1900...^^). Tout rentre dans l'ordre à partir du 01/03/1900

Bonjour Pierre,

Merci pour cette réponse détaillée.

Bon dimanche,
jp

Oups,

Dans ma formule initiale (qui ne me semble pas très éloignée de ta proposition), qu'est-ce qui clochait ? L'emplacement de Format ?

Code:

---

date_cal = Sheets("extract°_calendrier").Format(Range("B1"), "yyyy.mm.dd")

---

cdt

La fonction Format n'est pas mise au bon endroit.

Voici comment il faut écrire la ligne

Code:

---

date_cal = Format(Sheets("extract_calendrier").Range("B1"), "yyyy.mm.dd")

---

Re,

J'avais déjà fait cette modif mais ça me renvoie (toujours)

Citation:

---

"Erreur d'exécution '9': L'indice n'appartient pas à la sélection"

---

Quelque chose m'échappe.

jp

A mon avis, c'est le nom de ta feuille qui n'est pas bon. Dans le code que tu as donné au message #5, il y a un peut-être un ° qui traîne. Car l'erreur que tu mentionnes ne peut provenir à mon avis que du fait qu'il ne trouve pas ta feuille.

Ceci fonctionne :

Code:

---

date_cal = Sheets("extract°_calendrier").Range("B1")

---

Et cela génère une erreur :

Code:

---

date_cal = Format(Sheets("extract°_calendrier").Range("B1"), "yyyy.mm.dd")

---

Chez moi, ton code fonctionne avec une feuille nommée Extract°_Calendrier. Le message d'erreur que tu cites m'intrigue car "L'indice n'appartient pas à la sélection" ne peut provenir, dans le cas de ton code et sauf erreur, que du fait que la feuille n'est pas trouvée dans la collection des feuilles.

As-tu plusieurs classeurs ouverts? utilises-tu les lignes dans le même contexte? Pour t'en assurer, crée une procédure et places-y les deux lignes de code à la suite puis exécute pour voir ce qui se passe.

Peux-tu donner le code "autour" des lignes qui posent problème, et notamment la ligne de déclaration de ta variable date_cal?

Code:

---

1 2 3

Stop date_cal = Sheets("extract°_calendrier").Range("B1") 'ok date_cal = Format(Sheets("extract°_calendrier").Range("B1"), "yyyy.mm.dd") 'pierre mais erreur !

---

La première ligne affiche la date
La seconde l'erreur type 13

Un seul classeur ouvert

Ma variable est définie dans un module standard :

Code:

---

Public date_cal As Date

---

Ok. L'erreur 13, c'est normal (je croyais que c'était toujours l'erreur 9).

Ta variable Date_Cal est une date => tu ne peux pas lui passer du texte qui ne pourra pas être interprété en date! Or, la transformation par Format, notamment ici avec des . comme séparateurs, ne permet pas la reconversion en date. Du reste, tu perdrais le bénéfice de Format, évidemment.

Déclare Date_Cal comme ceci: Public date_cal As String

Bonjour le fil,

Pourquoi une variable publique ????? :koi:
Dans ce cas, une variable locale (niveau procédure) me semble bien plus appropriée ....

Merci ! C'est parfait !

J'avais déjà fait ce changement de string (oups, pour cette association :?) qui avait échoué sachant qu'à ce moment-là, le problème était encore dans la formule...

Merci encore,
Bon dimanche,
jp