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