Ouvrir un word avec un bouton

Bonjour la communauté,

Je travaille sur un excel, et j'ai un bouton qui ouvre un fichier word. Voici le code ci-joint

Sub Bouton1_Cliquer()

Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
wordapp.Documents.Open "C:\Users\mma\Desktop\test.docx"

End Sub

Je veux en plus, si c'est possible, que le fichier Word soit active lorsqu'on l’ouvre, genre qu'il soit en premier plan et aussi que le fichier Word soit ouvert en lecture seul, pas de possibilité de modifier le Word.

Je sais pas si des commandes existent pour ce fait, c'est pourquoi je demande votre aide

Je remercie d'avance toutes les personnes qui prendrons le temps pour repondre à ma question.

Bien à vous.

Rebonjour,

Pour la partie de la lecture seule, je contourne le problème en ouvrant un document PDF

Par contre je me demande toujours si la lecture en premier plan et faisable.

Bien à vous

Bonjour,

une proposition :

[code]Sub Bouton1_Cliquer()

Dim oDoc as object

Set wordapp = CreateObject("word.Application")

wordapp.Visible = True

set oDoc = wordapp.Documents.Open ("C:\Users\mma\Desktop\test.docx",,True)

oDoc.Activate

/code]

Bonjour,

Parfait, ça marche nickel

Bien à vous