jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 2016
-
28 avril 2008 à 11:57
jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 2016
-
29 avril 2008 à 22:07
Bonjour à tous,
Voila, en aide à mon appli, je souhaite ouvrir un PDF, jusque là, ça va, j'utilise:
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
'-------------------
Dim Fichier As String, Chemin As String
Chemin = "app.patch\Help"
Fichier = "app.patch\Help\nom du PDF.pdf"
ShellExecute MDIMain.hWnd, "open", Fichier, vbNullString, Chemin, 3
'-------------------
Mais ce fichier PDF peut varier selon la version et sa mise à jour:
Procédure utilisateur LTManager V1.0_AB.pdf
ou
Procédure utilisateur LTManager V1.0_AC.pdf.....
J'ai essayer : Fichier = "app.patch\Help\*.pdf"
Bien que ce PDF soit le seul fichier.pdf du dossier HELP, ça ne fonctionne pas!
Quelqu'un aurait-in une idée pour que l'appli ouvre le fichier quelques soit son nom?
Merci
A voir également:
Ouverture d'un PDF avec un nom de fichier pouvant varier...
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 29 avril 2008 à 09:50
Mort de rire !!!!!!!
je manipule des "PATCH" à longueur de journée et n'ai absolument pas percuté sur la faute d'orthographe.
en effet depuis le début jimy neutron tu as la faute et moi je l'ai reprise allègrement
par contre ça ça marche lol
a moins d'une autre faute d'orthographe
public sub cherchePdf()
fichier= Dir( app.path &"\Help" & *.*, vbDirectory) Do While fichier<> ""
If ucase(right(fichier,3) ) = "PDF" then exit sub
fichier = dir
loop
[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE
jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 29 avril 2008 à 19:56
En effet PCPT il ya une faute d'ortographe, mais uniquement sur le post,pas reproduite dans mon appli.
Bon, je vais essayer ce que vous prposé, et je vous tiens au courant.
Merci à vous deux...
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 29 avril 2008 à 21:00
la faute était anectodique ^^
le problème est que c'est DANS la chaîne
++
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 29 avril 2008 à 22:07
Ho oui, que d'étourderies..on passe quelques fois à coté de boulettes énormes!
Bon, du coup j'ai essayé cela, et ça marche. Je n'est pas encore regarder l'utilité de "vbHidden".
Private Sub Help_Click()
Dim Fichier As String, Chemin As String
Chemin = App.path & "\Help"
Fichier = Dir(Chemin & "*.pdf", vbDirectory)
ShellExecute MDIMain.hWnd, "open", Fichier, vbNullString, Chemin, 3
End Sub
Voila, une fois de plus, merci PCPT...à toi aussi Pile-Poil