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.
Cette action supprimera également les cibles dans les dossiers en question ? Absolument pas si tu veux supprimer les cibles de tes liens tu ne peux le faire qu'avec une macro mais ce n'est pas simple à tester car cela dépend de ta configuration et des droits sur les dossiers.
J'ajouterai qu'est-ce que supprimer une cible pour toi ?
- vider la cellule pointée ?
- supprimer le fichier ?
Un exemple de fichier avec qq liens type serait bienvenu.
eric
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.
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é.
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.
je ne voudrais pas abuser Gbinforme, mais serait-il possible d'y ajouter le nécessaire afin de supprimer également le contenu des lignes où les hyperliens sont présents svp?
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
