Historique lien hyperLink

bonjour,

je suis entrain de m'initier sur VBA Excel ,

je suis blocké sur une macro, je ne sais pas pourquoi elle ne fonctionne pas, en fait dans le resultat je dois avoir la liste des sites visités

nom adress, date et heures

en piece jointe vous trouvez la macro

merci d'avance

B

2historique.xlsm (13.21 Ko)

voila la macro, eté sur VBA Editor;

Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim rng As Range

Dim numlig As Integer

'ajout d'une ligne à la fin de la liste des sites visités

Set rng = Range("A4").CurrentRegion

numlig = rng.Rows.Count + 4

Cells(numlig, 1) = Target.Name

Cells(numlig, 2) = Target.Address

Cells(numlig, 3) = Date

Cells(numlig, 4) = Format(Time, "hh:mm")

End Sub

Rechercher des sujets similaires à "historique lien hyperlink"