Discussion :

[adelion7015]

Bonjour,

j'ai trouvé sur le forum une discussion, qui répond a mes besoins, en essayant de l'adapter a mon cas, c'est a dire en creant un module et mis le code sur l'evenement click, j'ai le message suivant

j'ai pris le soins de mettre le meme nom au fichier PDF comme a la valeur du champ, mais je n'arrive pas a voir d'ou proviens le probleme.

merci

cordialement.

[Thierry_PALLIER]

Bonjour adelion7015

As-tu déclaré la fonction, en tète du module de ton formulaire ?

Code :

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

1
2
3
Private 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

Dans ton code d'utilisation,le nom du fichier dans le 3° argument, son chemin (sans le nom du fichier) dans le 5° argument.

Code :

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

1
2
3
Dim nomFich As String
    nomFich = Me.numero_devis & ".pdf"
    ShellExecute Me.hwnd, "open", nomFich, "", "C:\Desktop\blabla\image\", 1

Me.hwnd est l'identifiant de la fenetre Windows (contenant ton formulaire).
Cela m'étonnerai que ce soit 0.
Cdlt

[adelion7015]

Bonjour Thierry_PALLIER,

Désolé pour ma réponse tardive.

Je veux dire par specifique, c'est a dire, ouvrir un fichier PDF selon l'enregistrement, si la valeur du champ est a 1, ne cliquant dessus j'ouvrirais le fichier PDF 1 et ainsi de suite.

Oui j'ai en tête de module cette fonction.

merci

Cordialement.

[Thierry_PALLIER]

Bonjour.
Dans ta procédure évennementielle "Nom_Perimetres_Click()", j'imagine que c'est dans ce controle que se trouve le nom specifique du mail que tu veux ouvrir ?
Le code que je t'ai donné ,en adaptant le nom du controle et du chemin, qui est achuré sur ton dessin, il n'y a pas de raison que celà ne marche pas.

Code :

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

1
2
3
Dim nomFich As String
    nomFich = Me.Nom_Perimetre & ".pdf"
    ShellExecute Me.hwnd, "open", nomFich, "", "C:\Desktop\blabla\image\", 1

A+

[adelion7015]

Bonjour,

c'est en cliquant sur le champ Nom_Perimetres que cette action est censée ouvrir le fichier PDF affilié a la valeur du champ.

a+

[adelion7015]

Bonjour,

Je reviens sur le sujet, parce-que j'ai essayé toute les combinaisons sans succé, quelqu'un pourrait est il avoir une solution s'il vous plait ?

Cordialement.

[Jean-Philippe André]

SAlut,

sur ta capture d'écran, ce qui est mis en avant c'est la partie de ton formulaire qui n'existe pas : Me.blabla

Vérifie que tu pointes bien vers un des controles de ton formulaire.

[adelion7015]

c'est a dire que je mettrais le nom du formulaire ?

Me.frm_contrats

[Jean-Philippe André]

NOn, mais es-tu sur que Nom_Perimetres est un nom de control existant ?

[adelion7015]

Oui c'est le nom d'un champ que j'ai d'ailleur decidé de changer, maintenant c'est [N° Contrat], pensant que le probleme etait au niveau du texte.

[Jean-Philippe André]

Du coup mets à jour ton code en conséquence et reposte le nous, en nous disant si tu as toujours le même problème ou non stp.

[adelion7015]

Code :

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

1
2
3
4
5
Private Sub N°_Contrat_Click()
 
   ShellExecute 0, "open", "C:\Users\Desktop\Contrats\" & Me.N°_Contrat & ".pdf", vbNullString, vbNullString, 1
 
End Sub

et j'ai crée un module openpdf :

Code :

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

1
2
3
4
5
Option Compare Database
 
Private 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

[Jean-Philippe André]

Si tu mets la fonction en Private en dehors du module, ca ne marchera pas, il te faut la basculer en Public

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

[adelion7015]

parfait ca marche, merci beaucoup


cordialement