XL 2016 lien hypertext

[MASSJIPE]

Bonjour le forum
j'ai ce code mais j'ai une erreur de compilation sub ou function non définie
merci

Private Sub CommandButton1_Click()

Dim nb As Integer 'déclare la variable nb (NomBre)
Dim chem As String 'déclare la variable chem (CHEMin d'accès)
Dim dest As Range 'déclare la variable dest(DESTination)
 
chem = "C:\Users\Jean-Paul. Masson\Documents" 'définit la variable chen (à adapter)
nb = Application.WorksheetFunction.CountA(Columns(2)) + 1 'définit la variable nb
 
If ActiveSheet.Range("B1") = "" Then 'condition : si la cellule B1 est vide
Set dest = ActiveSheet.Range("B1") 'definit la variable dest (B1)
Else 'sinon
Set dest = ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0) 'définit la variable dest (la première vide rencontrée)
End If 'fin de la condition
 
dest.Select 'sélectionne la cellule de destination
 
With Selection
.Hyperlinks.Add Anchor:=Selection, Address:=chem & "AB" & nb & ".pdf", TextToDisplay:="AB" & nb 'attribue le lien
End With
End Sub

 

[Florian53]

Bonjour,

j'ai essayé de compiler avec ce code et je n'ai pas d'erreur:

Private Sub CommandButton1_click()

Dim nb As Integer 'déclare la variable nb (NomBre)
Dim chem As String 'déclare la variable chem (CHEMin d'accès)
Dim dest As Range 'déclare la variable dest(DESTination)

chem = "C:\Users\Jean-Paul. Masson\Documents" 'définit la variable chen (à adapter)
nb = Application.WorksheetFunction.CountA(Columns(2)) + 1 'définit la variable nb

If ActiveSheet.Range("B1") = "" Then 'condition : si la cellule B1 est vide
Set dest = ActiveSheet.Range("B1") 'definit la variable dest (B1)
Else 'sinon
Set dest = ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0) 'définit la variable dest (la première vide rencontrée)
End If 'fin de la condition
dest.Select 'sélectionne la cellule de destination

With Selection
.Hyperlinks.Add Anchor:=Selection, Address:=chem & "AB" & nb & ".pdf", TextToDisplay:="AB" & nb 'attribue le lien
End With

End Sub

 

[MASSJIPE]

Re
tu as Compiler quoi j'ai vérifier les deux codes mais je ne voie pas la différence et ta réponse fonctionne

 

[Florian53]

j'ai supprimer les lignes vides afin de les remettre, je me suis étonné moi même