Ouverture Fichier Word avec VBA

C

Caillou

XLDnaute Impliqué

• 18 Avril 2014

• #2

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

 

Vote positif 0 Vote négatif

E

EddyValier

Guest

• 18 Avril 2014

• #3

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. :-/

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 18 Avril 2014

• #4

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

Code:

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

Bruno

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 18 Avril 2014

• #5

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

 

Pièces jointes

• ouverture d un fichier word .xlsm

  21.1 KB · Affichages: 41

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 18 Avril 2014

• #6

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.

 

Vote positif 0 Vote négatif

E

EddyValier

Guest

• 18 Avril 2014

• #7

Re : Ouverture Fichier Word avec VBA

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

Code:

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

 

Vote positif 0 Vote négatif