Sub Visualiser(sFicToOpen)
Dim sPath As String, sPathFic As String, Rep As Long, TxtRep As String
' Définir le répertoire source
'sPath = "C:\Users\Italo4ever\Desktop\test\"
sPath = ThisWorkbook.Path & "\"
' Ajouter l'extension du fichier au nom
sFicToOpen = sFicToOpen & ".pdf"
' Concaténer l'ensemble entre guillemets
sPathFic = Chr(34) & sPath & sFicToOpen & Chr(34)
' Lancer l'ouverture du fichier avec l'application associée
Rep = ShellExecute(0, "open", sPathFic, "", "", 5)
TxtRep = ""
Select Case Rep
Case 0
TxtRep = "0 Le système manque de mémoire ou de ressources, l'exécutable est corrompu ou.réallocations non valides."
Case 2
TxtRep = "2 Fichier non trouvé."
Case 3
TxtRep = "3 Chemin non trouvé."
Case 5
TxtRep = "5 Une tentative a été faite pour se lier dynamiquement à une tache, ou il y a eu une erreur de partage ou de protection réseau."
Case 6
TxtRep = "6 La librairie requiert des segments de données séparés pour chaque tâche."
Case 8
TxtRep = "8 Il n 'y a pas assez de mémoire disponible pour lancer l'application."
Case 10
TxtRep = "10 Version de Windows incorrecte."
Case 11
TxtRep = "11 Le fichier executable n'est pas correct, il se peut que ce ne soit pas une application Windows, ou qu'il y ait une erreur dans le fichier .EXE"
Case 12
TxtRep = "12 L 'application a été conçue pour un autre système d'exploitation."
Case 13
TxtRep = "13 L 'application a été conçue pour MS-DOS 4.0."
Case 14
TxtRep = "14 Le type de fichier executable est inconnu."
Case 15
TxtRep = "15 Tentative de chargement d'une application en mode réel."
Case 16
TxtRep = "16 Tentative de charger une seconde instance d'un fichier exécutable contenant plusieurs segments de données qui ne sont pas marqués en lecture seule."
Case 19
TxtRep = "19 Tentative de charger un fichier exécutable compressé, le fichier doit être décompressé avant d'être chargé."
Case 20
TxtRep = "20 Fichier de librairie liée dynamiquement (DLL) incorrect, une des DLLs requise pour exécuter cette application est corrompue."
Case 21
TxtRep = "21 L 'application requiert les extensions Microsoft Windows 32-bit."
Case 31
TxtRep = "31 Il n 'y a pas d'association le le type de fichier spécifié, ou il n'y a pas d'association pour l'action choisie pour le type de fichier choisi."
End Select
If Len(TxtRep) > 0 Then
MsgBox "Erreur : " & TxtRep, vbInformation, "OUPS ..."
End If
End Sub