Pascal 77 a dit:
EDIT : bien sur, je posterais ici une version expurgée (chemins et noms de fichiers modifiés, confidentialité oblige) de la macro pour que tous ceux que ça intéresse en profitent
Con promis, chose due, comme disait Coluche. Voici le code de la macro salvatrice (qui traite en fait deux colonnes de liens cassés) :
Sub RetabLiens()
'
' Macro créee le 14/06/2005 par Pascal PEDRO
'
chemin = "file://localhost/dossier1/dossier2/dossier3/dossierdisparu/"
For ligne = 2 To 219 'Ça commence à 2, et ça finit au n° de la dernière ligne à traiter
fichier = Range("D" & ligne).Value ' On traite la colonne D
If fichier <> "" Then
lien = chemin & fichier
Range("D" & ligne).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lien
End If
fichier = Range("I" & ligne).Value 'On traite la colonne I (sans supplément de tarif)
If fichier <> "" Then
lien = chemin & fichier
Range("I" & ligne).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lien
End If
Next ligne
End Sub
vBulletin re reproduit pas les indentations, désolé pour la lisibilité. "ligne", "chemin", "fichier" et "lien" sont des variables, et ce qui est précédé d'une apostrophe (') est du commentaire.