Tester des adresses de sites
banout
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 ***@***
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 ***@***
A voir également:
- Tester des adresses de sites
- Sites de telechargements - Accueil - Outils
- Flash drive tester - Télécharger - Divers Utilitaires
- Sites de vente d'occasion - Guide
- Tester les performances de son pc - Guide
- Site pour partager des photos - Guide
1 réponse
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:
Ensuite faire F5 pour compiler
Faire une copie de ton classeur avant
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
