OVH Cloud OVH Cloud

Pb date

3 réponses
Avatar
Bomber
Bonjour

Je saisis une date dans une textbox avec un calendar, à ce niveau la date
s'affiche correctement, j'utilise le code suivant :
modifdate.Value = Format(Calendar1.Value, "dd/MM/YYYY")

ensuite j'inscrit la date dans mon classeur excel avec la formule suivante
Range("A" & VarselectedArticle).Value = modifdate.Value

Le problème c'est que quand la date s'inscrit dans mon classeur excel, elle
n'est plus sous la forme dd/mm/yyyy mais sous la forme mm/dd/yyyy

Auriez vous une solution??

Merci d'avance

3 réponses

Avatar
michdenis
Bonjour Bomber,

Cette ligne de code te retournera dans ta cellule le format court de date
que tu as défini dans le panneau de configuration de Windows
Range("A" & VarselectedArticle).Value Íate(modifdate.Value)

Si tu désires obtenir un autre format :

with Range("A" & VarselectedArticle)
.NumberFormat = "dd/mm/yyyy"
.value = cdate(modifdate.Value)
End With


Salutations!




"Bomber" a écrit dans le message de news:
Bonjour

Je saisis une date dans une textbox avec un calendar, à ce niveau la date
s'affiche correctement, j'utilise le code suivant :
modifdate.Value = Format(Calendar1.Value, "dd/MM/YYYY")

ensuite j'inscrit la date dans mon classeur excel avec la formule suivante
Range("A" & VarselectedArticle).Value = modifdate.Value

Le problème c'est que quand la date s'inscrit dans mon classeur excel, elle
n'est plus sous la forme dd/mm/yyyy mais sous la forme mm/dd/yyyy

Auriez vous une solution??

Merci d'avance
Avatar
michdenis
Bonjour Bomber,

Essaie cette petite macro :

Seulement assure-toi que tu n'as pas dans ton fichier, Perso.xls ou
un fichier .xla une procédure événementielle susceptible de la rendre inopérante ....!

'----------------------------
Sub test()

With Application.CommandBars("Cell")
.Enabled = True
.Reset
End With

End Sub
'----------------------------


Salutations!





"Bomber" a écrit dans le message de news:
Bonjour

Je saisis une date dans une textbox avec un calendar, à ce niveau la date
s'affiche correctement, j'utilise le code suivant :
modifdate.Value = Format(Calendar1.Value, "dd/MM/YYYY")

ensuite j'inscrit la date dans mon classeur excel avec la formule suivante
Range("A" & VarselectedArticle).Value = modifdate.Value

Le problème c'est que quand la date s'inscrit dans mon classeur excel, elle
n'est plus sous la forme dd/mm/yyyy mais sous la forme mm/dd/yyyy

Auriez vous une solution??

Merci d'avance
Avatar
michdenis
Erreur d'aiguillage ;-)