Discussion :

[-Hamadryade-]

Bonjour à tous,

J'arrive au terme du développement d'un petit logiciel de gestion de cabinet médical et je viens vers vous pour une aide sur l'utilisation de l'API ShellExecute.

Le formulaire concerné dispose d'une liste déroulante alimentée par la base de données patient. La sélection du patient entraîne l'affichage de son nom et de son prénom dans 2 TextBox et active un bouton.
Au clic sur ce bouton, j'aimerais ouvrir un fichier .pdf de rapport lié au patient.

Voilà mon code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
#If Win64 Then 'La machine utilisée tourne en 64 bits
   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
#Else
   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
#End If
 
Private Sub CmdOuv_Click()
   Dim chemin, nom, prenom As String
   nom = LCase(NomTextBox.Value) 'De même pour prenom
   chemin = "C:\BLABLA\" & nom & "_" & prenom & ".pdf"
   OuvrirShellExecute (chemin)
End Sub
 
Public Function OuvrirShellExecute(strFichier)
   ShellExecute 0, "open", strFichier, vbNullString, vbNullString, 1
End Function

Et l'erreur générée au clic sur le bouton :
"Des constantes, chaînes de longueur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membres Public de modules d'objet."

Quelqu'un saurait-il m'éclairer ?

Merci d'avance,

[-Hamadryade-]

Problème résolu !

La déclaration de la fonction est à mettre dans un module. Et il y avait une petite erreur dans l'appel de la fonction.

Dans le module :

Code :

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

1
2
3
4
5
6
7
8
9
#If Win64 Then 'La machine utilisée tourne en 64 bits
   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
#Else
   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
#End If
 
Public Function OuvrirShellExecute(strFichier, Chemin_fichier)
   ShellExecute 0, "open", strFichier, vbNullString, Chemin_fichier, 1
End Function

Dans le VBA du formulaire :

Code :

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

1
2
3
4
5
6
7
Private Sub CmdOuv_Click()
   Dim chemin, nom, prenom As String
   nom = LCase(NomTextBox.Value) 'De même pour prenom
   chemin = "C:\BLABLA\" & nom & "_" & prenom & ".pdf"
   rep = "C:\BLABLA\"
   OuvrirShellExecute chemin,rep
End Sub