Ouvrir un Fichier .Doc

[Nevil]

Salut à toutes et a tous,

J'ai une question peut etre un peu bete:

Dans mon classeur XL, j'ai des boutons de commande (tout ce qui a de plkus banal), et je voudrais qu'en cliquant dessus ces boutons, le fichier .doc associé a chaque bouton s'ouvre.
En gros, je souhaiterais le meme fonctionnement qu'un lien hypertext mais sous forme de bouton de commande.
Et la, j'ai po trop d'idée ...

Je vous remercie

Nevil

 

[Staple1600]

Re : Ouvrir un Fichier .Doc

Bonjour

Essaye d'ouvrir un fichier Word en laissant tourner l'enregistreur de macro


(je suis pas sur de ce que je suis en train d'écrire la)

 

[Staple1600]

Re : Ouvrir un Fichier .Doc

C'est bien ce qui me semblait


Mais j'ai pu faire ca

Sub Macro1()
Range("B5").Select
ActiveSheet.OLEObjects.Add(ClassType:="Wordpad.Document.1", Link:=False, _
DisplayAsIcon:=False).Activate
Range("F14").Select
End Sub

 

[michel_m]

Re : Ouvrir un Fichier .Doc

Bonsoir Nevil, Staple,

Sur 1 ligne ;-)

Sub ouvrir_word()
thisWorkbook.followHyperlink "F:\documents\mondocumentWord.doc"
End Sub

 

[Staple1600]

Re : Ouvrir un Fichier .Doc

Re

Il y a aussi un exemple la, sur le WIKI du forum

Ouvrir un document Word existant à partir d'Excel


Sub ouvrirDocWordExistant()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = createObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents. _
Open("C:\mes documents\XLD.doc", readOnly:=True)
End Sub