Ouverture Fichier Word avec VBA

[EddyValier]

Bonjour,

Je suis actuellement en train de créer une application VBA avec des procédures créant des tableaux, graphiques etc...J'aimerais réaliser un guide d'utilisation de l'application sur WORD.
Ainsi j'aimerais qu'on y accède grâce à un bouton "Ouvrir le Guide d'utilisation" dans l'application.
J'ai jusqu'a présent réussi à le fichier txt mais je n'arrive pas à adapter le code avec un fichier word
Ci joint un fichier test.
Merci,

Cdlt,

 

[Caillou]

Re : Ouverture Fichier Word avec VBA

Bonjour,

C'est peut etre pas la peine de creer du code pour cela. Pourquoi ne pas placer un lien hypertexte sur le bouton.

Caillou

 

[EddyValier]

Re : Ouverture Fichier Word avec VBA

Caillou,
J'y ai pensé mais le problème c'est que les utilisateurs de l'application n'ont pas toujours de connexion internet. :-/

 

[youky(BJ)]

Re : Ouverture Fichier Word avec VBA

Bonjour,
Peut être ceci, pas besoin d'internet
Remplace le ppsx par doc ou autres, et nom du fichier
Indique le chemin du fichier si dans un autre répertoire

ActiveWorkbook.FollowHyperlink ThisWorkbook.Path & "\TUTO.ppsx", , True

Bruno

 

[gilbert_RGI]

Re : Ouverture Fichier Word avec VBA

Bonjour

il n'y a pas besoin d'internet pour créer un lien hypertexte

mais bon voilà un code pour ouvrir un fichier dont le nom et le chemin sont en A1

Ps: les fichiers excel ayant des macros ont une extension XLSM

 

[Caillou]

Re : Ouverture Fichier Word avec VBA

je ne vois pas pourquoi une connexion internet est nécessaire pour suivre le lien hypertexte qui peut pointer vers un emplacement réseau ou local.

 

[EddyValier]

Re : Ouverture Fichier Word avec VBA

J'ai réussi pour ceux que cela intéresse

Private Sub CommandButton1_Click()
    Dim Word As Object
    Dim AppWord As Object

    Set Word = CreateObject("Word.Application")
    Word.Visible = True
    Set AppWord = Word.Documents.Open(ThisWorkbook.Path & "\GUIDE.docx", ReadOnly:=True)

End Sub