lien hypertext

[damien]

bonsoir le forum
et encore merci pour ce forum

voici ma macro:

Private Sub CommandButton1_Click()
Dim text, msgbox As Variant
text = ActiveCell.Value

Cells(1, 1) = 'C:\\Documents and Settings\\ADJ OPS\\Mes documents\\IMAGES\\' & text & '.jpg'
ThisWorkbook.FollowHyperlink Sheets('Feuil1').Range('a1').Value


End Sub
mais petit probleme
si mon lien est introuvable il me renvoi un debogage
alors que je voudrai un msgbox.

merci
dam

 

[Creepy]

Bonjour le Forum, Damien,

Ton code me parait un peu bizarre donc je l'ai modifié pour que ca marche chez moi, mais le principe est là !!

Donc il suffit juste de faire un DIR sur le fichier en question et s'il existe alors on ouvre sinon message ' le fichier n'existe pas !'

Voila le code :

Private Sub CommandButton1_Click()

Dim Fichier_Exist As String
' Cide ssous ajoute un lien hypertext
Feuil1.Range('A1').Hyperlinks.Add Anchor:=Selection, Address:= _
        'D:\\Christophe\\Perso\\Fun\\diable.gif', TextToDisplay:= _
        'D:\\Christophe\\Perso\\Fun\\diable.gif'
' Ci dessous test existance fichier
If Dir(Range('a1').Value) = '' Then
    msgbox 'fichier existe pas !' ' existe pas Msgbox
Else
' Existe : Ouverture du fichier !
    ThisWorkbook.FollowHyperlink Sheets('Feuil1').Range('a1').Value
End If
End Sub

@+

Creepy

Message édité par: Creepy, à: 05/09/2005 10:53