Format Date après report d'un Formulaire

Fermé
d - 6 juin 2010 à 18:16
Bonjour,
besoin de votre aide car je sèche
j'ai écrit une macro me demandant la date celle ci est reporté dans excel mais dans le format texte alors que je veux le format jjjj jj mm aaaa

sub Jour_Férié
Dim datex As Date, datex1 As Date, datex2 As Date, datex3 As Date
Set dlg = Sheets("DlgFériés")
dlg.DrawingObjects("JPa").Text = Format(date, "DD/MM/YYYY") ' par défaut
ret = dlg.Show()


Sub Report_Classeur()
Set dlg = Sheets("DlgFériés")
Range("B11").Formula = dlg.DrawingObjects("JPa").Text
Range("C11") = "paques"

A quel niveau j'aurai du marquer le format
Un grand merci

jef
A voir également: