Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pb de date

pb de date

14 réponses
Avatar
Misange
Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
j
tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")



"Misange" a écrit dans le message de news:

Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta



Avatar
j
tu avais corrigé évidemment
Format(Now(), "yyyy mm dd")
(vba parle english isn't it)

"" a écrit dans le message de news:
eG#

tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")



"Misange" a écrit dans le message de news:

Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta







Avatar
Michel Gaboly
Bonsoir,

Plutôt

Cells(NewEnreg, 6) = Format(Now, "dddd-mm-yy")

Il faut utiliser l'initiale des mots en anglais ;-))


tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")

"Misange" a écrit dans le message de news:

Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


Avatar
j
et si tu tiens à tes tirets,
Format(Now(), "'yyyy-mm-dd")
ou
Format(Now(), " yyyy-mm-dd")


"" a écrit dans le message de news:

tu avais corrigé évidemment
Format(Now(), "yyyy mm dd")
(vba parle english isn't it)

"" a écrit dans le message de news:
eG#

tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")



"Misange" a écrit dans le message de news:

Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que
celle



ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta











Avatar
Michel Gaboly
Re,

Moi aussi, je me plante ;-((

Now() et pas Now


Bonsoir,

Plutôt

Cells(NewEnreg, 6) = Format(Now, "dddd-mm-yy")

Il faut utiliser l'initiale des mots en anglais ;-))


tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")

"Misange" a écrit dans le message de news:

Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
Misange
sauf erreur de ma part, en faisant cela, cela reste une date non ?
La feuille contenant ces données est ensuite exportée en format texte et
la date doit impérativement être exportée comme 2003-29-11

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


wrote:
et si tu tiens à tes tirets,
Format(Now(), "'yyyy-mm-dd")
ou
Format(Now(), " yyyy-mm-dd")


"" a écrit dans le message de news:


tu avais corrigé évidemment
Format(Now(), "yyyy mm dd")
(vba parle english isn't it)

"" a écrit dans le message de news:
eG#

tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")



"Misange" a écrit dans le message de news:


Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que




celle

ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta














Avatar
j
j'ai mis un ' ou un espace devant
mais tu peux aussi formater la cellule en texte
Cells(7).NumberFormat = "@"
Cells(7) = Format(Now(), "yyyy-mm-dd")


"Misange" a écrit dans le message de news:
#S#
sauf erreur de ma part, en faisant cela, cela reste une date non ?
La feuille contenant ces données est ensuite exportée en format texte et
la date doit impérativement être exportée comme 2003-29-11

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


wrote:
et si tu tiens à tes tirets,
Format(Now(), "'yyyy-mm-dd")
ou
Format(Now(), " yyyy-mm-dd")


"" a écrit dans le message de news:


tu avais corrigé évidemment
Format(Now(), "yyyy mm dd")
(vba parle english isn't it)

"" a écrit dans le message de news:
eG#

tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")



"Misange" a écrit dans le message de news:


Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que




celle

ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

















Avatar
Misange
ok, vu :-)
merci Jacques

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


wrote:
j'ai mis un ' ou un espace devant
mais tu peux aussi formater la cellule en texte
Cells(7).NumberFormat = "@"
Cells(7) = Format(Now(), "yyyy-mm-dd")


"Misange" a écrit dans le message de news:
#S#

sauf erreur de ma part, en faisant cela, cela reste une date non ?
La feuille contenant ces données est ensuite exportée en format texte et
la date doit impérativement être exportée comme 2003-29-11

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


wrote:

et si tu tiens à tes tirets,
Format(Now(), "'yyyy-mm-dd")
ou
Format(Now(), " yyyy-mm-dd")


"" a écrit dans le message de news:



tu avais corrigé évidemment
Format(Now(), "yyyy mm dd")
(vba parle english isn't it)

"" a écrit dans le message de news:
eG#


tu dois trouver ça sur disciplus
quelque chose comme
Cells(NewEnreg, 6) = format(now(), "aaaa-mm-jj")



"Misange" a écrit dans le message de news:



Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que




celle


ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


















Avatar
Denis Michon
Bonjour Misange,

Je n'ai peut être pas compris la question mais pour obtenir une date ayant ce format 2003-11-30, nonobstant le "séparateur de
date" du panneau de configuration, il suffit d'insérer dans le format le caractère "Anti-slash" devant le caractère "-" pour
"forcer" l'affichage de ce dernier.

En deuxième lieu, il faut se rappeler qu'un format affiché dans une cellule est une propriété de la cellule et qu'il est
préférable de formater la cellule plutôt que d'utiliser la fonction format parce qu'en plus de formater la variable il faudra
de toute façon formater la cellule sinon la cellule appliquera le format par défaut défini des dates à moins que de demander
un format "texte" de la cellule (limitant la possibilité d'effectuer des calculs). Voici un exemple :

'En b1, la cellule affichera le format défini par défaut pour une date... pas nécessairement les "-" si ce séparateur des
éléments d'une date n'est pas utilisé ou défini dans le panneau de configuration.

Range("B1") = Format(Now(), "'yyyy-mm-dd")

La cellule B2 et B3 afficheront la même chose... sauf que pour obtenir le résultat en B3 , il ne sera pas nécessaire
d'utiliser la fonction "Format".

Range("B2").NumberFormat = "yyyy-mm-dd"
Range("B2") = Format(Now(), "yyyy-mm-dd")


Range("B3").NumberFormat = "yyyy-mm-dd"
Range("B3") = Now()


Salutations!



"Misange" a écrit dans le message de news:
Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Avatar
Misange
Bonsoir Denis
Merci de ces explications détaillées. PAs le courage de rouvrir excel ce
soir mais je regarde cela demain, c'est un truc qui m'a toujours énervé...
Dans le mêmegenre comment faire pour taper 12-3 dans une cellule sans
qu'excel pense immédiatement que je lui donne une date ? et me
transforme ma saisie ? A part mettre '12-3...

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Denis Michon wrote:
Bonjour Misange,

Je n'ai peut être pas compris la question mais pour obtenir une date ayant ce format 2003-11-30, nonobstant le "séparateur de
date" du panneau de configuration, il suffit d'insérer dans le format le caractère "Anti-slash" devant le caractère "-" pour
"forcer" l'affichage de ce dernier.

En deuxième lieu, il faut se rappeler qu'un format affiché dans une cellule est une propriété de la cellule et qu'il est
préférable de formater la cellule plutôt que d'utiliser la fonction format parce qu'en plus de formater la variable il faudra
de toute façon formater la cellule sinon la cellule appliquera le format par défaut défini des dates à moins que de demander
un format "texte" de la cellule (limitant la possibilité d'effectuer des calculs). Voici un exemple :

'En b1, la cellule affichera le format défini par défaut pour une date... pas nécessairement les "-" si ce séparateur des
éléments d'une date n'est pas utilisé ou défini dans le panneau de configuration.

Range("B1") = Format(Now(), "'yyyy-mm-dd")

La cellule B2 et B3 afficheront la même chose... sauf que pour obtenir le résultat en B3 , il ne sera pas nécessaire
d'utiliser la fonction "Format".

Range("B2").NumberFormat = "yyyy-mm-dd"
Range("B2") = Format(Now(), "yyyy-mm-dd")


Range("B3").NumberFormat = "yyyy-mm-dd"
Range("B3") = Now()


Salutations!



"Misange" a écrit dans le message de news:
Coucou,
par VBA, je veux ajouter dans une cellule la date du jour mais que celle
ci soit écrite en dur, en texte (surtout pas sous forme d'une date
excel) et sous la forme 2003-29-11.
Cells(NewEnreg, 6).Formula = "=text(now(), ""aaaa-mm-jj"")"

me donne ce que je veux, sauf qu'évidemment ça se met à jour à chaque
ouverture du classeur ce que je ne veux pas.
A part faire un copier/ coller spécial valeur sur cette cellule après
l'avoir remplie...
merci


1 2