B
benjamin
Guest
bonjour j'ai essayé de faire une source qui ajoute automatiquement a toute les cellules selectionnées un lien hyper texte vers le fichier ayant pour nom le contenu de la cellule.
Sub ajoutlink()
Dim Link As Variant
Dim E As Range
On Error Resume Next
For Each E In Selection
Link = E.Value
If Not E = '' Then
With E
Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveWorkbook.Path & '\\Docs\\' & Link & '.pdf'
End With
End If
Next
End Sub
le problème c'est que avec cette source la macro ajoute bien des liens hyper texte mais vers le dernier fichier selectionné de ma plage de sélection...
ci joint l'exemple [file name=ajouthypertexte.zip size=9867]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ajouthypertexte.zip[/file]
Sub ajoutlink()
Dim Link As Variant
Dim E As Range
On Error Resume Next
For Each E In Selection
Link = E.Value
If Not E = '' Then
With E
Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveWorkbook.Path & '\\Docs\\' & Link & '.pdf'
End With
End If
Next
End Sub
le problème c'est que avec cette source la macro ajoute bien des liens hyper texte mais vers le dernier fichier selectionné de ma plage de sélection...
ci joint l'exemple [file name=ajouthypertexte.zip size=9867]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ajouthypertexte.zip[/file]