polska_diane
XLDnaute Nouveau
Bonjour,
J'insère dans userform (via un commandbutton2 pour parcourir les fichiers) un lien vers un fichier sur mon pc dont le nom apparaît dans le textbox9.
Cependant quand je valide le userform (commanbutton3), le lien se colle dans la bonne cellule mais pas en lien actif (non cliquable) comment je peux faire?
Merci d'avance pour votre aide.
J'insère dans userform (via un commandbutton2 pour parcourir les fichiers) un lien vers un fichier sur mon pc dont le nom apparaît dans le textbox9.
Cependant quand je valide le userform (commanbutton3), le lien se colle dans la bonne cellule mais pas en lien actif (non cliquable) comment je peux faire?
Merci d'avance pour votre aide.
VB:
Private Sub CommandButton2_Click()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
UserForm1.TextBox9.Text = .SelectedItems(1)
End With
End Sub
Private Sub CommandButton3_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
Application.ScreenUpdating = False
With Worksheets("Suivi")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Sheets("Suivi").Cells(derligne, r) = Ctrl
Next
Sheets("Suivi").Cells(derligne, 1) = Val(TextBox1)
End With
Application.ScreenUpdating = True
Unload Me
End Sub