Préambule
Proposer du texte par défaut
Récupérer le nom de l'utilisateur
Récupérer la date système et la formater
Créer une liste déroulante
Définir l'ordre de remplissage de la boîte de dialogue

Télécharger fichier exemple

Suggérer des réponses à l'utilisateur

Récupérer la date système et la formater

L'une des valeurs les plus intéressantes à récupérer et à proposer à l'utilisateur est sans conteste la date du jour, appelée date système.

Sa syntaxe est des plus simples : Date.
Il convient de distinguer deux types de dates :

1. la date telle qu'elle apparaît dans la boîte de dialogue, sous sa forme courte (ex : "9/10/03" ou "09/10/03"), l'objectif étant d'accéler au maximum la saisie de l'utilisateur ;

2. la date telle qu'elle sera insérée dans notre lettre (ex : 9 octobre 2003)

Le format d'une date est défini à l'aide de l'instruction Format(madate, "d/mm/yy") où :

1. Au niveau de notre boîte de dialogue, l'instruction finale s'écrira donc comme suit :

Private Sub UserForm_Initialize()
datel=format(Date,"dd/mm/yy")
signataire=application.username
ville = "Paris"
End Sub

2. L'insertion de la date dans le corps de la lettre intervient après avoir cliqué sur le bouton "Valider". Nous allons donc modifier légèrement notre code initial :

Private Sub ok_Click()
Selection.GoTo , , , "date"
Selection.InsertAfter format(datel,"d mmmm yyyy")
(en d'autres termes, applique le format "d mmmm yyyy" au contenu de la zone datel)
Selection.GoTo , , , "adresse"
Selection.InsertAfter societe & Chr(10) & contact & Chr(10) & rue1 & Chr(10) & rue2 & Chr(10) & cp & " " & ville
Selection.GoTo , , , "vosref"
Selection.InsertAfter vosref
Selection.GoTo , , , "nosref"
Selection.InsertAfter nosref
Selection.GoTo , , , "objet"
Selection.InsertAfter objet
Selection.GoTo , , , "pj"
Selection.InsertAfter pj
Selection.GoTo , , , "salutation1"
Selection.InsertAfter salutation
Selection.GoTo , , , "salutation2"
Selection.InsertAfter salutation
Selection.GoTo , , , "signataire"
Selection.InsertAfter signataire
Selection.GoTo , , , "titre"
Selection.InsertAfter titre
Selection.GoTo , , , "debut"
Unload Me
End Sub

Haut

Niveau

Pré-requis :

• Avoir suivi la leçon 3

UserForm_Initialize() :
placez dans cette procédure
tout le code
relatif au pré-remplissage
de votre UserForm

Application.UserName :
permet de récupérer la valeur de la zone "Nom" du menu "Outils", "Options", onglet "Utilisateur"

Date :
permet de récupérer la date du jour (date système)

Format(date,"d/mm/yy")
permet de formater la date système
d = jour
m = mois
y = année