Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

Voici deux petits exemples rapides :

Dans les 2 cas créer plusieurs signets nommé Astuce1, Astuce2 etc ...contenant le texte de chaque astuce.

Pour les 2 exemples prévoir une procédure 'AutoExec' afin que l'astuce vienne automatiquement au démarrage de Word. Sauver le document comme modèle global placé dans le répertoire de démarrage.

 

Sub AutoExec()
  macro écrite par Philippe Tulliez
  Astuce ' pour solution 2
  'ufAstuceDuJour.Show ' Pour solution 1
End Sub



Solution 1 avec un UserForm

Un UserForm avec un textbox nommé tbAstuces


Private Sub UserForm_Initialize()
With tbAstuces
.MultiLine = True
End With
MyValue = Int((2 * Rnd) + 1)
tbAstuces = ActiveDocument.Bookmarks(MyValue).Range
End Sub



Solution 2 avec MsgBox (dans un module)

Sub Astuce()
  MyValue = Int((2 * Rnd) + 1)
  MsgBox Prompt:=ActiveDocument.Bookmarks(MyValue).Range,
Title:="Astuce du jour"
End Sub 

 

Statistiques

Aujourd'hui432
Hier2693
Cette semaine3125
Ce mois21205
Total depuis 200410756613

28
visiteurs actuellement en ligne