Private Sub CommandButton1_Click()
Dim fichier
fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If fichier <> False Then
lblPictpath = fichier
TextBox1 = Split(fichier, "\")(UBound(Split(fichier, "\")))
Else
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
Dim X&
With Sheets("Feuil1")
X = .Cells(Rows.Count, 1).End(3).Row
.Hyperlinks.Add Anchor:=.Cells(X + 1, 1), Address:=lblPictpath, TextToDisplay:=TextBox1.Text
End With
Me.Hide 'facultatif
End Sub