Bonjour à tous,
voici un code que j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TheFullPath As String
Dim doc As String
If ActiveCell.Column >= 2 Then Exit Sub
If ActiveCell.Row = 1 Then Exit Sub
If ActiveCell.Value = "" Then Exit Sub
doc = ActiveCell.Value
TheFullPath = "C:\Documents and Settings\Planète Bloc\Mes documents\factures\" & doc & ".pdf"
ThisWorkbook.FollowHyperlink TheFullPath, NewWindow:=True
End Sub
J'aimerais maintenant faire en sorte que lorsque l'on clique sur un numero de ligne, il ne se passe rien !
Comment faire ?
Merci de votre aide
Nicko
voici un code que j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TheFullPath As String
Dim doc As String
If ActiveCell.Column >= 2 Then Exit Sub
If ActiveCell.Row = 1 Then Exit Sub
If ActiveCell.Value = "" Then Exit Sub
doc = ActiveCell.Value
TheFullPath = "C:\Documents and Settings\Planète Bloc\Mes documents\factures\" & doc & ".pdf"
ThisWorkbook.FollowHyperlink TheFullPath, NewWindow:=True
End Sub
J'aimerais maintenant faire en sorte que lorsque l'on clique sur un numero de ligne, il ne se passe rien !
Comment faire ?
Merci de votre aide
Nicko