pdf et access 97

Question

bonjour,
je fais de la maintenance sur un logiciel développé sous access 97.
je voudrais ouvrir un manuel d'aide enregistré en pdf...
j'ai donc essayé ce bout de code mais je bloque car le "reader" s'ouvre bien mais avec le message : "fichier non trouvé"...(j'ai déjà vérifié l'existence du fichier)

Function Ouvrir_Aide_pdf()

  Dim MyAppID
  Dim fs
  Dim i As Integer
Set fs = Application.FileSearch
With fs
    .LookIn = "C:"
    .FileName = "C:\Program Files\MonDossier\WLHelp.pdf"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        msgbox .FoundFiles.Count & _
            " fichier(s) trouvé(s)."
        For i = 1 To .FoundFiles.Count
            msgbox .FoundFiles(i)
        Next i
    Else
        msgbox "Aucun fichier n'a été trouvé."
    End If
End With
MyAppID = Shell("C:\Program Files\Adobe\Reader8.0\Reader\AcroRd32.exe  C:\Program Files\MonDossier\WLHelp.pdf", 1)
Set fs = Nothing

End Function

avez vous une idée pour m'aider à comprendre ?
merci de votre attention.

cdulsdcma · Answer

RESOLU 
j'ai trouvé :  c'était juste que le nom de dossier devait comporter un espace, ou était trop long .?... donc en mettant :
MyAppID = Shell("C:\Program Files\Adobe\Reader8.0\Reader\AcroRd32.exe  C:\Progra~1\MonDossier\WLHelp.pdf", 1)
ça fonctionne ! youpi !

Pdf et access 97

1 réponse

Votre réponse

Discussions similaires