Tester des adresses de sites

Question

Bonjour
Comment inscrire en bloc des adresses de sites Internet d’une longue liste Excel dans le dossier des Favoris donc en créant pour chaque un raccourci ?
Le propos est de pouvoir les vérifier ensuite assez régulièrement et automatiquement avec AM Dead Link.
Merci
28/03/16 ***@***

cs_Le Pivert · Answer

Bonjour,

Je te propose en vba de mettre toutes ta liste de sites en liens hypertextes, comme ceci:

Faire Alt F11 pour accéder à l'éditeur. Inserer un UserForm, mettre un CommandButton, double cliquez dessus et mettre ce code:

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
 Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
Worksheets("Feuil1").Columns("A:A").AutoFit 'a adapter Feuille 1
End Sub
Sub For_X_to_Next_Ligne()
    Set FL1 = Worksheets("Feuil1") 'a adapter Feuille 1
    NoCol = 1 'lecture de la colonne 1 a adapter colonne A
    For NoLig = 1 To Range("A65536").End(xlUp).Row
        Var = FL1.Cells(NoLig, NoCol)
        FL1.Cells(NoLig, NoCol).Select
       ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Var, TextToDisplay:= _
        Var
    Next
    Set FL1 = Nothing
End Sub


Ensuite faire F5 pour compiler

Faire une copie de ton classeur avant

Tester des adresses de sites

1 réponse

Discussions similaires

Newsletters