Bonjour,
depuis plusieurs heures je cherche désespéramment à élaborer une macro afin de faire des liens automatiques.
J'arrive au résultat suivant :
Sub hyperlien()
Dim E As Range
For Each E In Range([A2], [A8000].End(xlUp))
ActiveSheet.Hyperlinks.Add E, "e;E:Charlene BOISSEL1 - Ressource documentaires1-2- Phase 1� - Liens hypertextes"e; & E.Value & "e;.dwg"e;
Next E
End Sub
Le seul problème c'est que j'ai des fichiers format DWG mais aussi des fichiers formats PDF. J'ai essayé de dupliquer la fonction en remplaçant DWG par PDF mais en vain.
De plus, certain fichier ne doivent plus exister dans mes documents mais la mise en forme lien hypertexte s'applique quand même avec le message d'erreur suivant : "e;Impossible d'ouvrir le fichier spécifié"e;. Est-il possible que faire en sorte que la mise en forme ne s'applique pas quand la macro ne trouve pas le fichier ?
Merci par avance de vos réponses car là je suis au fond du gouffre et n'arrive plus à avancer
