Lien Hypertexte vers word

  • Initiateur de la discussion Initiateur de la discussion TDKey
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

TDKey

XLDnaute Nouveau
Bonjour à tous, Bonjour le Forum,
Voila dans le cadre d'un projet pour mon bac je doit relier un fichier word à mon fichier excel.

voila comment ca se présente:
- Mon dossier excel comporte 6 pages représentant chacune des tableaux comptables
- La présentation de mon projet est expliqué sur word

Et j'aimerais que dans ma page word en cliquant sur un lien hypertexte on puisse rejoindre non seulement mon fichier excel mais une page précise!🙄

Dans un second temps j'aimerais également que dans ma dernière page de mon fichier excel, je puisse renvoyer (grâce à des liens hypertexte) a un signet d'une page word.


voila j'espert avoir respecter les règles du forums et avoir été assez clair pour que vous puissiez m'apporter l'aide dont j'ai besoin.
 
Re : Lien Hypertexte vers word

Bonsoir,
J'ai privilégié l'emploi de labels plutôt que des liens hypertextes :
Ne pas oublier d'activer les références
- Microsoft Excel XXX Object Library dans Word
- Microsoft Word XXX Object Library dans Excel
et d'activer les macros dans Word

Dans ton doc Word, insères un label avec le nom de ton fichier excel, sans l'extension (Propriété/Caption), puis insères ce code:

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("C:\le chemin d'accès à ton fichier\" & Label1 & ".xls")
Sheets("la feuille que tu veux activer").Activate
End Sub


Dans ta feuille Excel, insères un label avec le nom de ton fichier excel, sans l'extension (Propriété/Caption), puis insères ce code:

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Le chemin d'accès à ton fichier\" & Label1 & ".doc")
ActiveDocument.Bookmarks("Le nom de ton signet").Select
End Sub


En double clickant sur les labels, tu ouvriras les fichiers respectifs.
Tu peux bien sûr affecter ces macros à d'autres contrôles.

A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour