Piloter Microsoft Word 2002

Bonsoir François,

Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpszOp As String, _
ByVal lpszFile As String, _
ByVal lpszParams As String, _
ByVal lpszDir As String, _
ByVal FsShowCmd As Long) As Long

Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Sub OuvrirWord()
ShellExecute FindWindow(vbNullString, 0), _
"open", "C:Dossier 1Dossier 2MonDocument.doc", _
vbNullString, vbNullString, 1
End Sub

Hervé.

"François Ranwez" <francois.ranwez@skynet.be> a écrit dans le message de
news: %23AJqYnU6FHA.3804@TK2MSFTNGP14.phx.gbl...

Comment à partir de VB, plus précisément avec VBA dans Excel 2002.

Pour ouvrir word et un fichier DOC bien précis ?

Merci de me donner une piste ou m'éclairer !

fanfan283

Dans : news:%23AJqYnU6FHA.3804@TK2MSFTNGP14.phx.gbl,
François Ranwez disait :

Comment à partir de VB, plus précisément avec VBA dans Excel 2002.

Pour ouvrir word et un fichier DOC bien précis ?

Merci de me donner une piste ou m'éclairer !

Bonsoir,

Je suppose que tu veux travailler sur le document Word en question après
l'avoir ouvert.

8<-----------------------------
Dim oDoc As Word.Document
Set oDoc = GetObject("...Chemin d'accès complet...test.doc",
"Word.Document")
Dim oWord As Word.Application
Set oWord = oDoc.Application
oDoc.Application.Visible = True 'afficher le document
8<-----------------------------

Ne pas oublier à la fin
8<-------------------
oDoc.Save
oWord.Quit
8<-------------------

Il faut ajouter une référence à Microsoft Word Object Library dans
Outils - Références.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT