Discussion :

[Frogman21]

Bonjour,

Je débute le VSTO Excel depuis le language VB.NET. Je dipose d'un fichier excel qui se compose comme suit :
3 Feuilles excel. Celle qui m'intéresse s'appelle "liste" et j'aimerais récupérer le lien derrière une image situé dans la cellule E13 de cette feuilles excel "liste".

Voici mon code actuel :

Code :

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

1
2
3
Dim workbook As Excel.Workbook = Globals.ThisWorkbook.Application.ActiveWorkbook
Dim worksheet As Worksheet = CType(workbook.Worksheets(2), Worksheet)
Dim cell As Range = worksheet.Range("E13")

Lorsque je fais fais cell.Hyperlinks.count, j'obtiens 0. Et pourtant dans mon fichier excel j'ai bien une image avec un lien hypertexte associé à cette image.

Dans l'espoir de pouvoir obtenir un peu d'aide, je vous remercie par avance.

[MABROUKI]

bonjour Frogman21

cell.Hyperlinks.count donne zero simplement parce Range.Hyperlinks.Count compte les Hyperliens associes a une ou plage Range pas à un Picture.

Les images posees sur une feuille se trouvent dans ce cas dans Worksheet.Shapes y compris eventuellement les Boutons et toutes sortes de controles.
Il faut retrouver ton picture d'abord ,ensuite l'hyperlien associe.
Exemple code dans un Workbook ExcelVSTO

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
' dans l'exemple il y sur la feuille 1
' -un bouton 
' -un image avec un 1er hyperlien
'- un range quelconque avec un 2eme hyperlien
Public Class Feuil1
    Private Sub Feuil1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
 
    End Sub
 
    Private Sub Feuil1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wkSheet2 As Excel.Worksheet = Application.Worksheets(2)
        Dim wkSheet3 As Excel.Worksheet = Application.Worksheets(3)
        Dim workRange As Excel.Range = Nothing
 
 
        'Affiche dans  wkSheet3 le total des Hyperliens de 
        'la Feuille 1 ce qui donne 2 
        wkSheet3.Cells(1, 1) = "Tot HyperLiens Feuille1:" & Me.Hyperlinks.Count
        'Le detail des Hyperliens 
        For col As Integer = 1 To Me.Hyperlinks.Count
            wkSheet3.Cells(1, col + 1) = "Hyperlien N° : " & col & " Adress Cellule :" & Me.Hyperlinks.Item(col).SubAddress
        Next
 
 
        'les images,shapes dessines,les boutons (control ActiveX) sont 
        'references dans la collection Shapes de la feuille par type
        'Pour retrouver un hyperlien associe à une image il faut
        'retrouver un type image d'abord.
 
        'Affiche dans wkSheet3 le total des images et index
        wkSheet3.Cells(2, 1) = "Tot Images & Controles Feuille1:" & Me.Shapes.Count
 
        'Retrouve l'image (unique ici) dans   wkSheet 
        Dim monHyperlien As Excel.Hyperlink = Nothing
        For col As Integer = 1 To Me.Shapes.Count
            Dim shp As Excel.Shape = Me.Shapes.Item(col)
            'si c'est une image
            If shp.Type = Microsoft.Office.Core.MsoShapeType.msoPicture Then
                wkSheet3.Cells(3, col + 1) = "Hyperlien Image N° : " & col.ToString & " Adress Cellule :" & shp.Hyperlink.SubAddress
                'recupere le lien
                MessageBox.Show("adresse Excel du lien :" & shp.Hyperlink.SubAddress)
                monHyperlien = shp.Hyperlink
            End If
        Next
        'Simule le "click" sur Hyperlien image 
        monHyperlien.Follow(NewWindow:=True)
 
        'Adjust for better display
        workRange = wkSheet3.Range(wkSheet3.Cells(1, 1), wkSheet3.Cells(10, 10))
        workRange.EntireColumn.AutoFit()
    End Sub
End Class

bon code....