XL 2016 problème hyperlinks et range

[godumathis]

Bonjour,

J'ai commencé un formulaire me permettant d'aller chercher le lien d'une photo, de choisir la cellule ou mettre le lien et ensuite de le placer dans cette cellule.
Aucun soucis concernant les deux premières étapes cependant, je rencontre un problème lors de la dernière (Cliquer sur le bouton valider pour insérer le lien dans la cellule sélectionnée).
Voici le code pour que j'ai utilisé :

Private Sub btnselectionner_Click()

Fichier = Application.GetOpenFilename()
TextBox1.Value = Fichier

End Sub

Private Sub btnselectionner2_Click()

Dim xcell As Range, zone
  Set Plage = Nothing: TextBox1 = ""
  On Error Resume Next
  Set Plage = Application.InputBox("Sélectionner la plage où insérer l'image ? :", Type:=8)
  On Error GoTo 0
  If Not Plage Is Nothing Then
    For Each xcell In Plage
      If xcell.MergeCells Then Set Plage = Union(Plage, xcell.MergeArea)
    Next xcell
    S = Plage.Parent.Parent.Name & vbLf & vbLf
    S = S & Plage.Parent.Name & vbLf & vbLf
    S = S & Plage.Address(0, 0)
    TextBox2 = zone
  End If

End Sub

Private Sub btnajouter_Click()

 ActiveSheet.Hyperlinks.Add Anchor:=Range("zone"), _
        Address:=Fichier, _
        TextToDisplay:=Fichier

End Sub

Le soucis vient de la fonction range dans la dernière partie ...

Je vous remercie par avance pour votre aide

Mathis GODU

 

[fanch55]

Bonjour,

S = Plage.Parent.Parent.Name & vbLf & vbLf
S = S & Plage.Parent.Name & vbLf & vbLf
S = S & Plage.Address(0, 0)

La variable S sert à quoi ?

ActiveSheet.Hyperlinks.Add Anchor:=Range("zone"), _
Address:=Fichier,_
TextToDisplay:=Fichier

Le nom Zone fait référence à quoi ?

 

[godumathis]

Bonjour,

Excusez-moi, je vous joint tout de suite le fichier correspondant (Je m'excuse, il est assez gros). Ce formulaire s'appelle : frminsererlien

J'ai eu ces lignes sur un forum tiers et, si j'ai bien compris, 'Fichier' correspond au nom que l'on a donné au lien recherché au préalable et 'S' correspond à la plage sélectionnée avec la souris.