Private Sub bt_valide_quit_Click()
'ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
'TbxPath.Text, TextToDisplay:= _
'TbxPath.Text
'objLink.Address = TbxPath.Text
' TbxPath.Text = "file:///" & TbxPath.Text
Dim derligne As Integer
If MsgBox("Confimez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
With Sheets("data")
'If TbxPath.Text <> "" Then ActiveWorkbook.FollowHyperlink TbxPath.Value, , True
derligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(derligne, 1) = TbxProjet.Value
.Cells(derligne, 2) = CbxPole.Value
.Cells(derligne, 3) = CbxAgent.Value
.Cells(derligne, 4) = TbxPath.Text
' .Hyperlinks.Add Anchor:=Selection, Address:= _
' TbxPath.Text, _
' TextToDisplay:= _
' TbxPath.Text
End With
End If
Unload UserForm1
End Sub