bonjour,
on m'a donné une source pour ajouter des liens hypertexte, avec pour lien le contenu de la cellule selectionner. Mais le pb c'est que j'arrive pas a le faire fonctionner.
Si qqun peut m'aider ca m'arrangerais
Code :
- Sub ajoutlink()
- Dim Link As Variant
- Dim E As Range
- Dim Addr As String
- Addr = ThisWorkbook.Path
- With Sheets("Feuil1" )
- .Activate
- .Hyperlinks.Delete 'on efface les liens existants
- On Error Resume Next
- For Each E In .Range("C1:C100" )
- Link = E.Value
- If Not E = "" Then 'pas de vérification de l'existance du fichier erreur _
- si non existant
- With E
- .Hyperlinks.Add Anchor:=E, Address:= _
- Addr & "\" & Trim(Link) & ".pdf"
- End With
- End If
- Next
- End With
- End Sub
- Private Function FichierOk(F As String) As String
- 'Teste fichier xls
- FichierOk = F & ".xls"
- If Dir(FichierOk) <> "" Then Exit Function
- 'Teste fichier doc
- FichierOk = F & ".doc"
- If Dir(FichierOk) <> "" Then Exit Function
- FichierOk = F & ".pdf"
- If Dir(FichierOk) <> "" Then Exit Function
- 'Renvoie rien si ni xls, ni doc,ni pdf
- FichierOk = ""
- End Function
|
je remercie d'avance celui ou celle qui peut m'aider 
