Lien

[Aline]

Bonjour,

Quel est le code pour faire le lien vers un document Word ?

Si quelqu'un peut me donner un petit coup de pouce svp car je suis débutante.

Merci à vous et bonne journée

 

[porcinet82]

Salut Aline,

Si tu veux ouvrir un fichier Word, tu peux utiliser un code de ce genre :

Sub Ouvrir_Word()
    Set wrdApp = CreateObject('Word.Application')
    On Error GoTo line1
    Set wrdDoc = wrdApp.Documents.Open('C:\\Ton_fichier.doc')
    wrdApp.Visible = True
    Exit Sub
line1:
    MsgBox 'Le fichier 'Ton_fichier' est introuvable !', vbOKOnly + vbExclamation, 'Attention'
    MsgBox 'Veuillez placer le fichier dans le répertoire 'C:\\'', vbOKOnly + vbExclamation, 'Attention'
End Sub

@+

 

[Aline]

Merci beaucoup porcinet82, c'est exactement ce qu'il me fallait. Je te souhaite une bonne journée. A une prochaine fois peut-être...

 

[porcinet82]

re,

Bonne journée a toi aussi et au plaisir...

@+

 

[_Thierry]

Bonjour Aline, Porcinet, le Forum

Juste une petite précision complémentaire, on peut éviter également de créer une instance à un Objet Word, en passant simplement par un Hyperlink, ce qui évitera dans le cas où l'on déclare les Variables Objects d'avoir des problèmes entre les différentes versions d'Office.

Const PathDoc As String = 'C:\\\\\\\\Documents and Settings\\\\\\\\Administrator\\\\\\\\Mes documents\\\\\\\\XLD_Memo.doc'

Sub OpenWordDocument()

ThisWorkbook.FollowHyperlink PathDoc


End Sub

Je viens de tester ceci sur Office 2007, ça passe toujours mais bonsoir les alertes de sécurité ! (on va s'amuser !)

Bonne Journée
[ol]@+Thierry[/ol]