Avec Excel 97, la manipulation d’adresses Internet et de leur nom en clair n’est pas aisée. Par exemple, saisissez 01net dans la cellule B2. Cliquez ensuite sur liens Internet du menu Insertion. Saisissez www.01net.com dans le champ Fichier ou URL. Après avoir validé avec [ok], le libellé 01net devient bleu (ou violet) et apparaît souligné, indiquant la présence d’un lien Internet. Quand vous placez le pointeur de la souris sur cette objet, ce dernier se transforme en une main droite pointant l’index vers le haut. Un clic sur le lien lance le navigateur Internet installé sur votre PC.Si vous voulez copier uniquement les adresses Internet dans une autre colonne ou une feuille ce calcul, les traditionnels touches des fonctions Copier et Coller recopient également le libellé. Pour arriver à vos fins et copier l’adresse uniquement, sélectionnez la cellule contenant le lien Internet. Effectuez un clic droit. Dans le menu contextuel qui s’affiche, choisissez Lien hypertexte/Copier le lien hypertexte. Sélectionner la cellule de destination et optez pour Coller comme lien hypertexte du menu Edition. Si vous avez toute une colonne de libellés dont vous souhaitez récupérer les adresses Internet, vous pouvez soit répéter l’opération autant de fois que nécessaire soit concevoir un programme en VBA. Pour cela, ouvrez le Visual Basic Editor. Choisissez la commande Module du menu Insertion. Recopiez le listing ci-dessous dans le module. Enregistrez le programme en cliquant sur l’icône correspondante dans la barre d’outils. Dans Excel, recopiez le contenu de B2 dans les cellules B3 à B6. Sélectionnez le bloc B2:B6 à l’aide des touches de direction et de
Sub ConversionLien()
For i = 0 To Selection.Rows.Count – 1
ActiveCell.Offset(i, 1).Value = ActiveCell.Offset(i, 0).Hyperlinks.Item(1).Name
‘Affecte le lien hypertexte de la cellule sélectionnée, à la cellule située à droite
‘Puis passe à la cellule située immédiatement en dessous
Next
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
