Solution : en préférant le menu contextuel au classique copier-coller.
Avec Excel 97, la manipulation des adresses Internet (et de leur nom en clair) n’est pas aisée. Par exemple, saisissez 01net dans la cellule B2. Choisissez ensuite Liens Internet du menu Insertion. Saisissez www.01net.com dans le champ Fichier ou URL. Après avoir validé avec le bouton [ok], le libellé 01net devient bleu (ou violet) et apparaît souligné, indiquant ainsi 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 désirez copier uniquement les adresses Internet dans une autre colonne ou une feuille ce calcul, les traditionnels raccourcis clavier + et + ne conviennent pas, car ils recopient non seulement l’adresse mais également le libellé. Pour parvenir à vos fins, 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électionnez la cellule de destination et optez pour Coller comme lien hypertexte du menu Edition. Si vous souhaitez récupérer les adresses Internet d’une colonne contenant un grand nombre de libellés, vous pouvez soit répéter l’opération autant de fois que nécessaire soit concevoir un programme en VBA. Pour cela, appuyez sur + afin d’afficher Visual Basic Editor. Cliquez sur 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 flèches de direction et de , vous évitant ainsi de lancer le navigateur Web. Optez pour Macro/Macros du menu Outils. Choisissez ConversionLien et validez par un clic sur [exécuter]. Les adresses Internet apparaissent dans la plage C2:C6.Listing :
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é à droite
‘Puis passe à la cellule situé immédiatement en dessous
Next
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
