OVH Cloud OVH Cloud

Macro sous Word

4 réponses
Avatar
Christophe
Bonjour,
Je souhaiterais mettre un bouton sur un document word qui
lorsqu'on clique dessus ouvre un document Excel et pointe
sur une feuille de ce document Excel.

Merci de votre aide.

4 réponses

Avatar
Pascal Engelmajer
Salut,
Le plus simple est de dessiner une forme ( zone de texte ou non) et de lui
associer un lien hypertexte.
Pour choisir une feuille donnée on pourra alors utiliser une procédure à
l'ouverture du classeur.
Pour choisir la feuille depuis Word il faut passer par une procédure sur le
click d'un bouton à inserrer par exemple.

Private Sub CommandButton1_Click()
Dim exc As Object
Set exc = CreateObject("excel.application")
With exc
.Visible = True
.Workbooks.Open "c:testtest2.xls"
exc.ActiveWorkbook.Worksheets("feuil2").Select ' ou tout autre
feuille
End With
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Christophe" a écrit dans le message
de news: 257f01c3e0c9$9d298c60$
Bonjour,
Je souhaiterais mettre un bouton sur un document word qui
lorsqu'on clique dessus ouvre un document Excel et pointe
sur une feuille de ce document Excel.

Merci de votre aide.


Avatar
Circé
Bonjour Christophe,

Une macro ? Pour quoi faire ?... Un lien hypertexte devrait suffire, non
?...

Circé

Christophe wrote:
|| Bonjour,
|| Je souhaiterais mettre un bouton sur un document word qui
|| lorsqu'on clique dessus ouvre un document Excel et pointe
|| sur une feuille de ce document Excel.
||
|| Merci de votre aide.
Avatar
Circé
Bonjour,

Euh... sans vouloir trop insister, je ne comprends pas l'intérêt de la
macro...

Pascal Engelmajer wrote:
|| Salut,
|| Le plus simple est de dessiner une forme ( zone de texte ou non) et
|| de lui associer un lien hypertexte.

Oui... mais le lien hypertexte suffit... Il devra être de ce type :
c:Mes documentsmonfichier.xls#Feuil1!A1

Circé
club des AMIS
http://faq.ms.word.free.fr

|| Pour choisir une feuille donnée on pourra alors utiliser une
|| procédure à l'ouverture du classeur.
|| Pour choisir la feuille depuis Word il faut passer par une procédure
|| sur le click d'un bouton à inserrer par exemple.
||
|| Private Sub CommandButton1_Click()
|| Dim exc As Object
|| Set exc = CreateObject("excel.application")
|| With exc
|| .Visible = True
|| .Workbooks.Open "c:testtest2.xls"
|| exc.ActiveWorkbook.Worksheets("feuil2").Select ' ou tout
|| autre feuille
|| End With
|| End Sub
||
|| --
|| Amicalement.
|| Pascal
|| "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
|| Sénèque.
|| http://www.ilyapa.net/excel
|| "Christophe" a écrit dans le
|| message de news: 257f01c3e0c9$9d298c60$
||| Bonjour,
||| Je souhaiterais mettre un bouton sur un document word qui
||| lorsqu'on clique dessus ouvre un document Excel et pointe
||| sur une feuille de ce document Excel.
|||
||| Merci de votre aide.
Avatar
Pascal Engelmajer
Salut,
parce que je ne sais pas adresser l'hyperlien à la feuille "feuil2", cela
est peut-être simple ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Circé" <circé@aea.gr> a écrit dans le message de news:

Bonjour,

Euh... sans vouloir trop insister, je ne comprends pas l'intérêt de la
macro...

Pascal Engelmajer wrote:
|| Salut,
|| Le plus simple est de dessiner une forme ( zone de texte ou non) et
|| de lui associer un lien hypertexte.

Oui... mais le lien hypertexte suffit... Il devra être de ce type :
c:Mes documentsmonfichier.xls#Feuil1!A1

Circé
club des AMIS
http://faq.ms.word.free.fr

|| Pour choisir une feuille donnée on pourra alors utiliser une
|| procédure à l'ouverture du classeur.
|| Pour choisir la feuille depuis Word il faut passer par une procédure
|| sur le click d'un bouton à inserrer par exemple.
||
|| Private Sub CommandButton1_Click()
|| Dim exc As Object
|| Set exc = CreateObject("excel.application")
|| With exc
|| .Visible = True
|| .Workbooks.Open "c:testtest2.xls"
|| exc.ActiveWorkbook.Worksheets("feuil2").Select ' ou tout
|| autre feuille
|| End With
|| End Sub
||
|| --
|| Amicalement.
|| Pascal
|| "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
|| Sénèque.
|| http://www.ilyapa.net/excel
|| "Christophe" a écrit dans le
|| message de news: 257f01c3e0c9$9d298c60$
||| Bonjour,
||| Je souhaiterais mettre un bouton sur un document word qui
||| lorsqu'on clique dessus ouvre un document Excel et pointe
||| sur une feuille de ce document Excel.
|||
||| Merci de votre aide.