'DANS UN MODULE STANDARD
Public Const Lien1 As String = "http://easydoc.aplix.local/Ged/PDFTools/Preview.aspx?id=777a9450-6dd9-4ae5-9cb7-67de40193b0a&file=PLA23e.pdf"
Public Const Lien2 As String = "http://easydoc.aplix.local/Ged/PDFTools/Preview.aspx?id=76d5438b-8970-4f22-bb1c-14804dde0e2b&file=PLA34c.pdf"
Public Const Lien3 As String = "http://easydoc.aplix.local/Ged/PDFTools/Preview.aspx?id=81955fe4-3fff-4918-b263-9308c1aaeba9&file=PLA77.pdf"
'DANS LE FORMULAIRE
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub Label4_Click()
ShellExecute vbNull, "open", Lien1, vbNull, vbNull, SW_SHOWNORMAL
End Sub
Private Sub Label5_Click()
ShellExecute vbNull, "open", Lien2, vbNull, vbNull, SW_SHOWNORMAL
End Sub
Private Sub Label6_Click()
ShellExecute vbNull, "open", Lien3, vbNull, vbNull, SW_SHOWNORMAL
End Sub
Sub erreur()
MsgBox " Ce document n'existe plus ou la codification a évolué", vbInformation
End Sub