Bonjour,
J'utilise un fichier Excel pour générer des rapports, en utilisant un template Word contenant moults signets.
J'utilise également ce fichier pour générer des annexes sous format Excel, chacune contenu plusieurs onglets.
L'ensemble des documents (rapports et annexes) est référencé en fonction du numéro du service auquel il est destiné :
- SERVICE 002 - Rapport
- SERVICE 002 - Annexe 1
- SERVICE 002 - Annexe 2
Mon client me demande, à chaque fois que le rapport fait mention à un renvoi vers une annexe, d'y ajouter le lien relatif vers l'onglet correspondant. L'idée étant que le client, lorsqu'il reçoit tous les documents, les place dans le même répertoire et puisse ainsi arriver, depuis le rapport, vers l'annexe considérée.
Pour l'instant :
1-je sais insérer du texte à l'endroit d'un signet Word :
docWord.Bookmarks("Annexe_M1_1").Range.Text = ThisWorkbook.Sheets("TDB").Range("H4").Value
2-je sais créer des liens hypertexte dans une cellule Excel :
1 2 3
| Libellé = Sheets("CHRONO").Cells(i, 12).Text
Chemin = Application.VLookup(Sheets("CHRONO").Cells(i, 12), Sheets("Liens").Range("B1:C" & NbRef), 2, False)
Sheets("CHRONO").Cells(i, 12).Hyperlinks.Add Anchor:=Cells(i, 12), Address:=Chemin, TextToDisplay:=Libellé |
3-je sais qu'on peut renvoyer vers un onglet en ajoutant, après le nom du fichier Excel, le suffixe "#[Nom de l'onglet]"
Mais j'avoue que je n'arrive pas à voir comment combiner les trois ensemble, malgré mes recherches sur le net.
Est-ce faisable ? L'un d'entre vous pourrait-il m'apporter une aide précieuse.
D'avance, merci.
Partager