Comment supprimer plusieur hyperliens et leurs cibles?
Bergee
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Il y a-t-il quelquen qui saurait comment supprimer plusieurs hyperliens et leurs cible de façon rapide et efficace?
J'aurais environs 500 liens qui pointent chacun vers des cibles situées dans 2 répertoires différent.
Merci.
Il y a-t-il quelquen qui saurait comment supprimer plusieurs hyperliens et leurs cible de façon rapide et efficace?
J'aurais environs 500 liens qui pointent chacun vers des cibles situées dans 2 répertoires différent.
Merci.
A voir également:
- Supprimer hyperlien indesign
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
5 réponses
Merci gbinforme, désolé, les hyperliens sont dans un tableau Excel volumineux ou chaque ligne possèdent parfois 2 hyperliens dans 2 cellules différentes. Je dois supprimer plusieurs lignes et supprimer les cibles présente dans 2 folders différents admettons appelés À et B.
J'ai un délai très court afin de réaliser le mandat et faire le tout manuellement serait impensable.
Merci
J'ai un délai très court afin de réaliser le mandat et faire le tout manuellement serait impensable.
Merci
Bonjour,
Pour excel, avec 2010 ou plus, tu sélectionnes ta colonne concernée et clic droit "supprimer les liens hypertext"
Pour excel, avec 2010 ou plus, tu sélectionnes ta colonne concernée et clic droit "supprimer les liens hypertext"
Le fait est que j'ai seulement quelques lignes à supprimer avec sur chacune 1 ou 2 cellules avec des liens hypertextes.
Cette action supprimera également les cibles dans les dossiers en question ?
Cette action supprimera également les cibles dans les dossiers en question ?
Bonjour,
pour les besoins du travail a effectuer j'ai déposé le document Excel dans un dossier nommé nouveau dossier. dans le folder nouveau dossier j'y ai mis 2 folders qui se nomment A et B.
les hyperliens sont dans les colonnes D et E. Les hyperliens de la colonne D pointent vers les fichiers dans le folder A et ceux de la colonne E vers le folder B.
J'ai les pleins droits sur les folders (droits de modification et suppression).
Les fichiers cibles sont des PDF pu des Word.
Je ne m'y connaît pas dans les macro. Mais je sais comment l'ajouter dans Excel et comment l’exécuter.
Je sais aussi comment faire un copy paste dans le module de la macro pour ensuite l'enregistrer.
Merci à l'avance, vous êtes mon dernier espoir.
pour les besoins du travail a effectuer j'ai déposé le document Excel dans un dossier nommé nouveau dossier. dans le folder nouveau dossier j'y ai mis 2 folders qui se nomment A et B.
les hyperliens sont dans les colonnes D et E. Les hyperliens de la colonne D pointent vers les fichiers dans le folder A et ceux de la colonne E vers le folder B.
J'ai les pleins droits sur les folders (droits de modification et suppression).
Les fichiers cibles sont des PDF pu des Word.
Je ne m'y connaît pas dans les macro. Mais je sais comment l'ajouter dans Excel et comment l’exécuter.
Je sais aussi comment faire un copy paste dans le module de la macro pour ensuite l'enregistrer.
Merci à l'avance, vous êtes mon dernier espoir.
pourrais-je choisir les ligne que je voudrais supprimer avant d'exécutera macro?
Tu n'avais pas précisé que tu voulais en garder. Dans ce cas avec ce nouveau code, tu sélectionnes ta plage avant de lancer la macro qui ne supprime que ce qui est sélectionné.
Tu peux d'ailleurs ne sélectionner qu'une cellule.
Tu n'avais pas précisé que tu voulais en garder. Dans ce cas avec ce nouveau code, tu sélectionnes ta plage avant de lancer la macro qui ne supprime que ce qui est sélectionné.
Public Sub suppr_liens()
Dim cel As Range
For Each cel In Selection
If cel.Hyperlinks.Count > 0 Then
If cel.Hyperlinks(1).Address <> "" Then Kill cel.Hyperlinks(1).Address
cel.Hyperlinks(1).Delete
cel.Value = ""
End If
Next cel
End Sub
Tu peux d'ailleurs ne sélectionner qu'une cellule.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Bergee,
Ton exposé me parait très clair alors je te propose cette macro.
Attention car ensuite, il n'y a plus de traces, ni lien, ni fichier et l'on ne revient pas en arrière. C'est extrêmement destructeur mais apparemment c'est ton souhait...
Ton exposé me parait très clair alors je te propose cette macro.
Attention car ensuite, il n'y a plus de traces, ni lien, ni fichier et l'on ne revient pas en arrière. C'est extrêmement destructeur mais apparemment c'est ton souhait...
Public Sub suppr_liens()
Dim cel As Range
For Each cel In ActiveSheet.Range("D1:E" & Range("D:E").SpecialCells(xlCellTypeLastCell).Row).Cells
If cel.Hyperlinks.Count > 0 Then
Kill cel.Hyperlinks(1).Address
cel.Hyperlinks(1).Delete
cel.Value = ""
End If
Next cel
End Sub