Récupérer date DTPicker pour message Outlook

Version imprimable

20/04/2016, 19h01
ivanG

Récupérer date DTPicker pour message Outlook

Bonjour à tous,

J'ai une Userform dans lequel j'utilise DTPicker pour récupérer une date.
Jusque là tout va bien.

Ensuite je créée un mail dans lequel je souhaite récupérer la date précédemment renseigné dans DTPicker.
Malheureusement à la fin de l'exécution, ma date dans le corps du mail est 00.00.00

Lorsque je lance ma macro étape par étape, la fonction DTPicker reste constamment à 00.00.00...

Auriez-vous un idée ?
J'ai essayé de contraindre en utilisant Format(DTPicker,"dd/mm/yy"), mais aucun résultat.

Merci !

Ivan
20/04/2016, 19h37
joe.levrai

Bonjour,

peux-tu montrer la procédure afin de voir comment tu récupères la valeur, l'injecte et (surtout) si c'est sur un évènement ou une procédure appelée ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub CommandButton_Créer_Click()
Unload Me
    'Définition des objets Outlook et du message.
    Dim ObjOutlook As Object
    Dim ObjMessage As Object
 
    'Ouverture d'Outlook et création d'un message vierge
    Set ObjOutlook = CreateObject("Outlook.Application")
    Set ObjMessage = ObjOutlook.createitem(0)
 
 
    'Caractéristiques de l'e-mail
    With ObjMessage
        .To = TextBox_Desti
        .CC = TextBox_Copie
        'Affiche le nom comme objet du message
        .Subject = TextBox_Objet & " - " & ComboBox_Type
        .Body = "Bonjour," & Chr(13) & Chr(13) & "Test :" & Chr(13) _
                & "    - Date de début : " & Test & Chr(13) & "    - Date de fin : " & Format(DTPicker_DF.Value, "dd/mm/yyyy") & Chr(13) & _
                "    - Nombre de jour : " & TextBox_Nbjour & Chr(13) & "    - Commentaires : " & TextBox_Comm & Chr(13) _
                & "Merci."
        .Display
    End With
 
 
 
End Sub

21/04/2016, 09h51
cerede2000

Et surtout : c'est quoi ton DTPicker_DF ?
Il viens d'ou ?
Tu utilise un contrôle ActiveX ? C'est un USF récupérer quelque part ?

J'ai deux DTpicker dans mon UserForm:
- 1 pour la Date de Début (DD)
- 1 pour la Date de Fin (DF)

J'ai finalement réussi en utilisant à partir du code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub DTPicker_DD_Change() DateDebut = Format(DTPicker_DD.Value, "dd mmmm yyyy") End Sub Private Sub DTPicker_DF_Change() DateFin = Format(DTPicker_DF.Value, "dd mmmm yyyy") End Sub
Merci dans les cas ! :)