Mettre un DTPicker à la date du jour

Bonjour à tous,

J'utilise souvent le DTPicker dans mes feuilles excel,mais celui-ci n'affiche jamais la date du jour.

Quelle formule dois-je écrire dans le code ?

Voici le code actuel

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

DTPicker2 = DateNow

End Sub

Merci de m'aider encore une fois,

Papy Pierrot

bonjour,

j'utilise DTPicker et voilà ce que j'ai comme ligne de code :

Me.DTPicker1 = Date

à mettre à jour avec ton code, et j'ai bien la date du jour

Francky

Bonjour Francky,

Merci de me répondre si vite

Dois-je supprimer tout le reste du code et ne laisser que : Me.DTPicker1 = Date ?

Merci de ta gentillesse

Papy Pierrot

bon, je ne suis pas un pro voir moins qu'un amateur dans le domaine du VBA,

voilà je suis aller voir le code de mon USF pour le DTPocker, donc je trouve :

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

car j'en ai plusieurs...

sinon après dans mon code d'USF :

Private Sub UserForm_Initialize()
     Me.DTPicker1 = Date
     Me.DTPicker2 = Date

et d'autre car j'en ai 4...

pas sur que je réponde bien à ta question

Francky

Cher Francky,

C'est parfait, il me manquait le code dans l'initialize.

Je vais appliquer ce code à tous les classeurs qui utilisent un DTPicker.

Un tout grand merci pour ta gentillesse et ton savoir.

Je t"embrasse très amicalement.

Papy Pierrot de Belgique

Bonsoir, Francky,

Je voudrais une dernière fois te remercier pour ton aide qui m'a été très précieuse;

je ne pensais pas avoir une réponse si rapide mais aussi très efficace.Les habitués du forum ont de la chance d'avoir des gars comme toi,serviable à souhait et vraiment très doué.

Merci encore mille fois et à charge de revanche.

Très affectueusement,

Papy Pierrot