Discussion :

[ivanG]

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

[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 ?

[ivanG]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[ivanG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !