Bonsoir,

J'ai besoin d'ouvrir des fichiers en ouvrant les exécutables associés et ce, automatiquement. J'ai créé un bouton sur mon formulaire et sur l'événement clic j'ai placé ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub BpOuvrir_Click()
 
    Dim Fichier, Repertoire As String
    Fichier = NomDoc & "." & TypeFile
    Repertoire = CheminDoc
    'If Left(Me.CheminDoc.Value, 1) = "%" Then
    '    Repertoire = VpCheminBase & "Documents\"
    'End If
    'MsgBox Repertoire & Fichier
    ShellExecute Me.hwnd, "open", Fichier, "", Repertoire, 1
 
End Sub
NomDoc contient le nom du fichier et TypeFile l'extension.
Ca fonctionne bien avec les extensions dwg mais pas avec les pdf. Pourtant, si je lance mon fichier pdf à partir de l'explorateur Windows, il s'ouvre bien.

Pourquoi les fichiers pdf ne s'ouvrent pas avec ce petit code que j'ai trouvé ici dans la FAQ ?

Merci.