Msg = MsgBox("Vous êtes sur d'avoir besoin d'aide ???:", _
vbYesNo, "Attention !")
If Msg = 6 Then _
ThisWorkbook.FollowHyperlink "C:\MonDocument.doc#NomSignet"
msg = MsgBox("Vous êtes sur d'avoir besoin d'aide ???:", vbYesNo, "Attention !")
If msg = 6 Then
ThisWorkbook.FollowHyperlink "H:\Documents and Settings\Jean - Marie\Mes documents\1\1Jean-Marie\Gestion Stock\Gestion de stock.doc"
End If
msg = MsgBox("Vous êtes sur d'avoir besoin d'aide ???:", vbYesNo, "Attention !")
If msg = 6 Then
ActiveDocument.FollowHyperlink Address:="H:\Documents and Settings\Jean - Marie\Mes documents\1\1Jean-Marie\Gestion Stock\Gestion de stock.doc"
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
End If