pb avec macro "ajout lien hypertexte"

pb avec macro "ajout lien hypertexte" - VB/VBA/VBS - Programmation

Marsh Posté le 16-05-2006 à 10:52:37    

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 :
  1. Sub ajoutlink()
  2. Dim Link As Variant
  3. Dim E As Range
  4. Dim Addr As String
  5. Addr = ThisWorkbook.Path
  6. With Sheets("Feuil1" )
  7.      .Activate
  8.     .Hyperlinks.Delete 'on efface les liens existants
  9. On Error Resume Next
  10. For Each E In .Range("C1:C100" )
  11. Link = E.Value
  12. If Not E = "" Then 'pas de vérification de l'existance du fichier erreur _
  13. si non existant
  14.   With E
  15.    .Hyperlinks.Add Anchor:=E, Address:= _
  16.           Addr & "\" & Trim(Link) & ".pdf"
  17.   End With
  18. End If
  19. Next
  20. End With
  21. End Sub
  23. Private Function FichierOk(F As String) As String
  24. 'Teste fichier xls
  25. FichierOk = F & ".xls"
  26. If Dir(FichierOk) <> "" Then Exit Function
  27. 'Teste fichier doc
  28. FichierOk = F & ".doc"
  29. If Dir(FichierOk) <> "" Then Exit Function
  30. FichierOk = F & ".pdf"
  31. If Dir(FichierOk) <> "" Then Exit Function
  32. 'Renvoie rien si ni xls, ni doc,ni pdf
  33. FichierOk = ""
  34. End Function


je remercie d'avance celui ou celle qui peut m'aider :)

Reply

Marsh Posté le 16-05-2006 à 10:52:37   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed