Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ouvrir un fichier Word depuis Excel

Ouvrir un fichier Word depuis Excel

2 réponses
Avatar
Lilian Genevet
Bonsoir à tous,

Je n'arrive pas à trouver la solution pour ouvrir un fichier Word (en
lançant Word) depuis un bouton dans un fichier Excel.

J'arrive bien à ouvrir Word (avec la macro ci-dessous) mais je n'arrive pas
à adresser le fichier que je veux ouvrir...
Sub Actupap()
Dim MyAppID, ReturnValue
MyAppID = Shell("C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\WINWORD.EXE", 1)
AppActivate MyAppID ' Active Microsoft Word.
End Sub

Merci de votre aide

--
Lilian Genevet
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-François Aubert
Salut Lilian,

Sub yy()
Fichier = "D:Mes documentsTravailmonDocuWord.doc"
ActiveWorkbook.FollowHyperlink Fichier

End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Lilian Genevet" a écrit dans le message de
news:%
Bonsoir à tous,

Je n'arrive pas à trouver la solution pour ouvrir un fichier Word (en
lançant Word) depuis un bouton dans un fichier Excel.

J'arrive bien à ouvrir Word (avec la macro ci-dessous) mais je n'arrive pas
à adresser le fichier que je veux ouvrir...
Sub Actupap()
Dim MyAppID, ReturnValue
MyAppID = Shell("C:PROGRAM FILESMICROSOFT OFFICEOFFICEWINWORD.EXE", 1)
AppActivate MyAppID ' Active Microsoft Word.
End Sub

Merci de votre aide

--
Lilian Genevet




Avatar
AV
J'arrive bien à ouvrir Word (avec la macro ci-dessous) mais je n'arrive pas
à adresser le fichier que je veux ouvrir...


Rajoute le chemin d'accès après l'exe :
MyAppID = Shell ("C:Program FilesMicrosoft OfficeOfficeWinword.exe
C:Temptest.doc", 1)

AV