Une façon d’utiliser les données d’Internet dans une feuille de calcul Excel consiste à les copier à partir d’une page Web, puis à les coller dans la feuille de calcul. Par exemple, vous pouvez sélectionner un tableau de données sur une page Web, appuyer sur Ctrl + C pour le copier dans le Presse-papiers, sélectionner une cellule dans Excel, puis appuyer sur Ctrl + V. Excel fait de son mieux pour analyser les données et les placer dans les cellules appropriées, comme dans le tableau d’origine.

Le problème est que vous obtiendrez souvent plus que les données de la table. S’il y avait d’autres objets dans les données que vous avez copiées à partir du Web, ces objets seront également collés dans la feuille de calcul. Il n’est pas rare de se retrouver avec toutes sortes de petits graphiques dans la feuille de calcul. Si ces graphiques étaient à l’origine des liens hypertexte, vous souhaiterez peut-être extraire le lien hypertexte, puis supprimer le graphique. Cela rendrait les données de la feuille de calcul beaucoup plus utilisables.

Pour ce faire, utilisez une macro. Une fois que vous avez collé les informations Web dans la feuille de calcul, exécutez la macro suivante.

Sub ConvertHLShapes()

Dim shp As Shape     Dim sTemp As String

For Each shp In ActiveSheet.Shapes         sTemp = ""

On Error Resume Next 'go to next shape if no hyperlink         sTemp = shp.Hyperlink.Address         On Error GoTo 0         If sTemp <> "" Then             shp.TopLeftCell.Value = sTemp             shp.Delete         End If     Next End Sub

Cette macro parcourt chacune des formes de la feuille de calcul. Il vérifie ensuite si la forme a un lien hypertexte associé. Si tel est le cas, l’adresse de ce lien hypertexte (dans la variable sTemp) est placée dans la cellule dans le coin supérieur gauche de l’emplacement de la forme. La macro supprime toutes les formes qui ont des liens hypertexte; vous pouvez le forcer à supprimer toutes les formes de la feuille de calcul en déplaçant simplement la ligne shp.Delete vers l’extérieur de la structure If …​ End If.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3578) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Extracting_URLs_from_Hyperlinked_Images [Extraction d’URL à partir d’images hyperlien].