forma de date

Bonsoir à toutes et à tous


Dans une cellule excel j ai une date qui s'affiche sous ce format "01/01/2007"

Je souhaite la récupérer dans une variable que je nomme madate
j  ai écrit ce code

Sub essai()
Dim madate As Date
Range("B2").Select
madate = Selection.Value
madate = Selection.Value = Format(Date, "yyyy-mm-dd")madate = Selection.Value
End Sub

En plaçant le curseur sur madate lors de l'exécution le format ne change pas

Merci pour votre aide

à++++++++[8D]

Salut,

Sans trop m'avancer, car je pige grand chose au VBA, mais quand je regarde ta variable Madate is Date << Là c'est la date sytème et non celle de ta celulle.Je pense que tu ne devrai pas déclaré ta varible ainsi...

A+
Exploreur

Essaye avec ce format là, si défois cela fonctionne sous VBA :
Dim MaDate as String
Range("B2").Select
selection.value = FormatDateTime ( now, vbShortDate) ' ce format te retourne 05/02/2007
MaDate = selection.value

A+
Exploreur

Ben si justement Explorer, tu t'avnce beaucoup trop.

cette ligne Dim madate As Date, est parfaitement correcte, elle signifie simplement que madate est de type Date, nullement qu'elle contient la date système. Il ne faut pas confondre le type Date avec la fonction Date, qui elle oui, renvoie la date système.

Par contre Salade007, moi je ne comprend pas cette ligne : madate = Selection.Value = Format(Date, "yyyy-mm-dd")madate = Selection.Value
Qu'as-tu voulue faire ??????



---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Et c'est normal que ton format ne change pas, puisque ma date est de type Date, lorsque tu met le curseur dessus, le debuggeur lit une valeur de type date et donc l'interprete selon les paramètres locaux de Windows pour te l'afficher

Par contre si tu veux utiliser la fonction Format, il te faut mettre ça dans une string ou directement dans la cellule, mais pas dans madate qui elle n'a pas de format d'affichage

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Rebonjour

En fait j'écrit dans un autre tableau récuperé par un autre système d'exploitation et doit aller me positionner sur la même date mais qui est sous le format 2007-01-01

merci pour votre aide

à++++++++[8D]

REbonsoir,

En fait j ai trouve avec ce code
dim madate as string
dim madate1 as date
madate = selection.value
madate1 = Cdate(madate)

merci à tous

à++++++++[8D]

Salut Salade007,

Je sais pas si tu as résolu ton problème si oui tant mieux, si non voilà le code qui va bien, c'est très simple

Dim Madate as String
' T'es obligé de déclarer une Str afin de pouvoir forcer le format

MaDate=Format(Range("B2").value,"yyyy-mm-dd")
MsgBox(Madate) 'Affichage pour contrôle

C'est tout