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