Domaines
RH
Juridique
Compta
Administratif/Moyens Généraux
Communication
Bureautique
Conseils aux débutants
Word
Excel
PowerPoint
Outlook
Access
Publisher

PagePlus (PAO)

Windows/système
PhotoImpact
Conception web : les bases
Applications pas à pas
Tests logiciels
Macros VBA
Leçons
Macros Word
Astuces
Orthographe
Rédaction
Organisation
Produits/services malins
Outils
Ouvrages
Modèles
Macros
Liens
Anglais
Grammaire avec AnglaisFacile
Leçon gratuite avec AnglaisFacile
Carrière
Gestion de carrière
Fiches métier
Témoignages / vécu
Offres d'emploi

Evénements métier
Echos de presse, comptes-rendus

Echanger

Forums
Chater en direct

© Nadège Guilbert
Le contenu de ce site
est régulièrement déposé auprès de la SGDL
Reproduction interdite
sans le consentement
écrit de l'auteur



Imprimer la page

Macros / VBA > Index

04-Mai-2005

 

 

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ù :

d = jour
d 3
dd 03
ddd mer.
dddd mercredi
m=mois
m 5
mm 05
mmm sept
mmmm septembre
y=année
yy 03
yyyy 2003








Exemple de codage de la date du 3 septembre 2003



 



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