ouvrir un fichier .pdf

[Fixxup]

Bonjour à tous !

J'ai un petit problème tout bete : j'ai créé un formulaire qui me permet de faire des recherches sur un fichier excel que j'utilise quotidiennement (jusqu'à la tout va bien). ensuite, j'ai voulu rajouter un bouton qui me permette d'ouvrir 'Mes Documents', afin d'ouvrir le documents pdf qui m'interesse(Tout va bien encore).

Sauf que quand je doubleclik sur le fichier .pdf, cela me l'ouvre sous Excel et non sous adobe readeur

Voici ma macro :

Private Sub Ouvrir_Click()

FileToOpen = Application.GetOpenFilename
If Not IsNull(FileToOpen) Then
Application.Workbooks.Open FileToOpen
End If

End Sub

Pourriez vous m'aider ???

Merci d'avance. Fixxup

 

[Guest]

Re : ouvrir un fichier .pdf

bonjour FixUp,

voici une solution:

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

 
Private Sub Ouvrir_Click()
    Dim fileToOpen
    fileToOpen = Application.GetOpenFilename
    If Not IsNull(fileToOpen) Then
      ShellExecute 0, "open", fileToOpen, "", "", 0
    End If
End Sub

Cela ouvrira le fichier Pdf avec le programe associé

A bientôt

 

[Fixxup]

Re : ouvrir un fichier .pdf

Merci bien ca marche impec !!! Tu as sauvé mon formulaire paix a ton ame