faire en sorte que ma macro s'exécute automatiquement à l'ouverture du fichier word.

**nathfly** · 15/11/2021, 13h58

Bonjour à tous,

Voila je vous explique mon problème, je suis Novice en VBA et j'aimerais bien m'améliorer dans ce domaine.

Pour commencer à m'intéresser au VBA, j'ai décidé de faire une blagounette à un ami avec qui je travaille mais sans conséquence rassurez-vous.

Le but de ma macro consiste à ce que dès que mon ami ouvre le fichier Word la macro s’exécute et change son fond d'écran automatiquement.

Pour le moment j'ai fait une macro qui fonctionne mais manuellement en allant dans l'éditeur VBA et en appuyant sur le bouton "Play".

cette Macro je l'ai rédigée dans le dossier "Microsoft Word Objets" et dans le Fichier "ThisDocument"la voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function SystemParametersInfo Lib "user32" _
 Alias "SystemParametersInfoA" (ByVal uAction As Long, _
 ByVal uParam As Long, ByVal lpvParam As Any, _
 ByVal fuWinIni As Long) As Long
'--------------------------------------------------------------------------------------
Sub ChangePapierPeint(Fichier As String, Registre As Boolean)
 x = SystemParametersInfo(20, 0, Fichier, Abs(Registre))
 
End Sub
'--------------------------------------------------------------------------------------
Sub AutoExec()
ChangePapierPeint "\\lien de l'image de fond d'écran\blague\humour_007.bmp", False
End Sub

Arrivé là pas moyen de l'automatiser comme je l'ai dis en faisant en sorte que dès l'ouverture du document la macro se mette en fonctionnement automatiquement...

Bien entendu j'essaie d'abord la macro sur mon pc afin de savoir si cela fonctionne.

J'ai lu qu'il y avait une histoire de sub auto_open truc du genre mais dès que j'essaie j'ai des problèmes de compilation...

Je m'en remets à vous pour m'aider merci d'avance.

Bien cordialement et bonne journée

.

**Heureux-oli** · 15/11/2021, 18h27

Salut,

Si c'est sur l'ouverture d'un document, c'est Sub Document_Open() que tu dois utiliser.

Jette un oeil là : http://word.developpez.com/faq/?page...macroevenement

**nathfly** · 16/11/2021, 08h30

Merci de m'avoir répondu c'est bien ce que j'ai tenté de faire mais à coup sur ça me met une erreur de compilation, je comprends pas ou et comment on place ce sub document_open si ça ne fonctionne pas...

**Heureux-oli** · 16/11/2021, 11h41

Salut,

C'est dans le document qui est censé être ouvert par l'utilisateur.

J'ai mis un exemple. Le fichier affiche simplement une boîte de message avec bonjour lors de l'ouverture du document.

**nathfly** · 16/11/2021, 14h20

pas faute d'essayer plein de choses en combinant le sub document_open fourni (merci encore), et ma macro mais rien y fait ça ne fonctionne pas... Je me demande si je ne devrais pas abandonner car je passe des heures à chercher le problème sans jamais trouver la solution...