Lien hyper texte

Question

Bonjour, il peut m'arriver d'ouvrir un classeur comportant des liens hypertexte sur un C: mais sur un autre Pc,

J'aimerai pouvoir afficher un Message Comme quoi je peux pas ouvrir ce lien sur ce poste au lieu d'avoir un message d'erreur d'exécution

Private Sub Image4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If X < 10 Or X > Image4.Width - 10 Or Y < 10 Or Y > Image4.Height - 10 Then

ActiveSheet.Shapes.Range(Array("ZoneTexte27")).Visible = False

Else

ActiveSheet.Shapes.Range(Array("ZoneTexte27")).Visible = True

End If

End Sub

Private Sub image4_Click()

ActiveSheet.Shapes.Range(Array("ZoneTexte27")).Visible = False

Workbooks.Open ("C...............................")

End Sub

Quelqu'un a une idée?

Merci

h2so4 · Accepted Answer

Private Sub image4_Click() ActiveSheet.Shapes.Range(Array("ZoneTexte27")).Visible = False on error goto terreur Workbooks.Open ("C...............................") on error goto 0 exit sub terreur: msgbox "ce fichier n'est pas disponible sur cet ordinateur" resume next End Sub...