Discussion :

[blanquettedeveau]

Bonjour,

Je n'arrive pas à récupérer la valeur saisie dans un calendrier pour l'appliquer ensuite à un signet :

Mon DatePicker

Code :

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

1
2
3
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
ActiveDocument.Range("datedebut") = Format(DTPicker1.Value, "dd/mm/yyyy")
End Sub

Ma variable :

Code :

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

Dim datedebut As Date

J'ai cette fonction qui fonctionne très bien pour appliquer du texte (string) aux signets dans mon Word :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub RemplirSignet(signet As String, contenu As String)
' Remplit le signet xx_signet avec le texte xx sans détruire xx_signet
On Error GoTo rien
Dim Place As Long
Place = ActiveDocument.Bookmarks(signet).Range.Start
ActiveDocument.Bookmarks(signet).Range.Text = contenu
ActiveDocument.Bookmarks.Add Name:=signet, _
Range:=ActiveDocument.Range(Place, Place + Len(contenu))
rien:
End Sub

Mon appel à la fonction par exemple pour remplir le champ rédacteur :

Code :

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

RemplirSignet "redacteur_signet", redacteur

Mais là je n'arrive pas à récupérer une valeur date et l'injecter dans un signet...
J'ai essayer une autre fonction RemplirSignetDate (signet As Date, contenu As Date) mais ça marche pas...

Qu'est qu'il me manque??

Merci d'avance....

PS : voici mon UserForm en ouverture de document :