XL 2016 lien hypertext

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MASSJIPE

XLDnaute Impliqué
Bonjour le forum
j'ai ce code mais j'ai une erreur de compilation sub ou function non définie
merci
VB:
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
 

Pièces jointes

  • Sans titre.png
    Sans titre.png
    135.5 KB · Affichages: 23
  • test.xlsm
    test.xlsm
    19 KB · Affichages: 19
Bonjour,

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

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
665
Réponses
2
Affichages
511
  • Question Question
Réponses
6
Affichages
668
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
2
Affichages
461
Retour