Discussion :

[adelion7015]

Bonjour,

C'est la 2eme fois que je traite de ce sujet, du fait que je change d'endroit et bizarrement, ca ne marche jamais au premier coup.

Avant, en cliquant sur un bouton j'arrivais a ouvrir des fichiers PDF, j'utilisais le chemin suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub visudoc_Click()
ShellExecute 0, "open", "P:\Budget_DB\sce_contrats\Visa_budget\" & Me.Id_affaire & ".pdf", vbNullString, vbNullString, 1
End Sub

En ayant le module suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Declare PtrSafe 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

Le problème c'est que quand je clique, rien ne se passe.

Une petite aide s'il vous plait.

Merci.

Salutations

[EricDgn]

A tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub visudoc_Click()
    Application.FollowHyperlink "P:\Budget_DB\sce_contrats\Visa_budget\" & Me.Id_affaire & ".pdf"
End Sub

[adelion7015]

Ca marche, je vous remercie infiniment.

Je vous remercie infiniment.

Salutations.