Discussion :

[Bloodkry]

Bonjour,

je cherche depuis un moment de créer un lien hypertexte dans une cellule Excel déjà ouvert depuis un fichier Word, mais je ne trouve rien.

Ce que je cherche à faire exactement :

- trouver la cellule qui contient le nom de mon document
- Créer un lien hypertexte dans la cellule qui contient ce nom

Est ce que quelqu'un peut m'aider?
Merci d'avance

[Bloodkry]

Bonjour,

En continuant mes recherches, j'ai fini par trouver les éléments qu'il me fallait pour mon code.
Je publie donc la solution ici si d'autre on le même problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        Dim wb As Workbook          'classeur Excel dans lequel on importe les données
        Dim ws As Worksheet         'onglet Excel dans lequel on importe les données
 
        lien1 = "D:\Users\name\Travail\tino\" 'lien vers Liste
        NomFichier = "dashboard.xlsm" 'nom de la liste
        nomFi = ActiveDocument.Name 'nom du fichier avec extension
        SplitAwKN = Split(nomFi, ".")
        NomFichiers = SplitAwKN(0) 'nom du fichier sans extension
 
        Set xlApp = GetObject(, "Excel.Application")
        Set wb = xlApp.Workbooks(NomFichier)
        Set ws = wb.Worksheets(1)
 
        'recherche de la ligne
        Set k = ws.Range("F:F").Find(NomFichiers, lookat:=xlWhole)
        r = k.Row
        c = k.Column
 
        'ajout du lien hypertexte
        ws.Hyperlinks.Add Anchor:=ws.Cells(r, c), _
           Address:=lien1 & nomFi