Discussion :

[Speed41]

Bonjour,

Comment ouvrir depuis Excel un document Word en lecture seule

Voici ma ligne de commande utilisée ce jour

Code :

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

retshell = Shell(fichier, vbNormalFocus)

qui ne prend pas en compte le fait que le fichier doit être en lecture seule

Par avance merci

[MarcelG]

Bonjour Speed41, Bonjour le Forum,

Tu peux adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub Ouvre_Word()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("monchemin\monfichier.doc", ReadOnly:=True)
 
WordApp.WindowState = wdWindowStateMaximize
End Sub

Ne pas oublier Outils \ Références \ Microsoft Word xx.x Object Library

Tu peux aussi regarder la Faq à ce sujet.

Cordialement.

Marcel.

[Speed41]

Super meric pour ton aide