Affichage d'un Word ou d'un PDF à partir d'un bouton (de commande ?) sous Access
dfarnier
Messages postés
1
Date d'inscription
lundi 29 octobre 2007
Statut
Membre
Dernière intervention
20 mars 2009
-
20 mars 2009 à 10:31
falstuff Messages postés 40 Date d'inscription jeudi 23 septembre 2004 Statut Membre Dernière intervention 26 avril 2012 - 21 mars 2009 à 00:14
falstuff Messages postés 40 Date d'inscription jeudi 23 septembre 2004 Statut Membre Dernière intervention 26 avril 2012 - 21 mars 2009 à 00:14
A voir également:
- Affichage d'un Word ou d'un PDF à partir d'un bouton (de commande ?) sous Access
- Commande make linux - Conseils pratiques -C / C++ / C++.NET
- Programmer un afficheur lcd avec pic 16f877 pdf - Forum C++ & C++ .NET
- 'Mvn' n’est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes. - Forum C
- C# pdf - Forum C# / .NET
- Code vba access pour rechercher un enregistrement - Forum Visual Basic
2 réponses
NHenry
Messages postés
15114
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 mai 2024
159
20 mars 2009 à 22:14
20 mars 2009 à 22:14
Bonjour,
Code sous Access, donc c'est du VBA ? Si oui, pourquoi posté en .NET ?
En VBA :
Regardes l'API ShellExecute, je pense que c'est ce que tu demande.
http://nhen0039.chez-alice.fr/index.php
Code sous Access, donc c'est du VBA ? Si oui, pourquoi posté en .NET ?
En VBA :
Regardes l'API ShellExecute, je pense que c'est ce que tu demande.
http://nhen0039.chez-alice.fr/index.php
falstuff
Messages postés
40
Date d'inscription
jeudi 23 septembre 2004
Statut
Membre
Dernière intervention
26 avril 2012
2
21 mars 2009 à 00:14
21 mars 2009 à 00:14
Bonjour,
Ci joint le code que j'utilise pour ouvrir n'importe quel type de fichier (PDF, Word, ect...). du moment ou un logiciel adéquat est installé sur le poste.
Dans Access, crée un module et coller le code ci dessous :
Public Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, _
ByVal lpDirectory As String, _
ByVal lpResult As String) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const SYNCHRONIZE = &H100000
Public Const INFINITE = &HFFFFFFFF
Public Function OuvrirFichier(Fichier As String, Optional attenteFermeture As Boolean = False) As Boolean
Dim fileappli As String * 250
Dim result As Integer
Dim temp As String
Dim fichAOuvrir As String
Dim i As Integer
Dim pid As Double
Dim phnd As Long
'On Error GoTo OuvrirFichier_Error
temp = Dir$(Fichier) 'recherche si le fichier existe
If temp <> "" Then
' Le fichier existe
' Recherche l'exécutable associé
result = FindExecutable(Fichier, vbNullString, fileappli)
If result > 32 Then
' Association trouvée
i = InStr(1, fileappli, Chr(0), vbBinaryCompare) - 1
If fileappli = "C:\WINDOWS\System32\shimgvw.dll" Then
fichAOuvrir = "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Fichier
Else
fichAOuvrir = """" & Left$(fileappli, i) & """ """ & Fichier & """"""
'fichAOuvrir = """" & Left$(fileappli, i) & """ " & fichier
End If
Else
' Aucune association de trouvée
OuvrirFichier = False
Exit Function
End If
Else
' Le fichier n'existe pas
OuvrirFichier = False
Exit Function
End If
'MsgBox fichAOuvrir
' Ouverture du fichier
pid = Shell("" & fichAOuvrir & "", vbMaximizedFocus)
If pid <> 0 Then
' Si attente fermeture demandé, on suspend le process jusqu'à que le logiciel soit fermé.
If attenteFermeture = True Then
phnd = OpenProcess(SYNCHRONIZE, 0, pid)
If phnd <> 0 Then
Call WaitForSingleObject(phnd, INFINITE)
Call CloseHandle(phnd)
End If
End If
OuvrirFichier = True
Else
OuvrirFichier = False
End If
End Function
----------------------------------------------------------------------
Pour l'utilisation de ce code, il suffit plus que sur clic d'un bouton dans un formulaire (ou autre evenement) de lancer la fonction suivant :
Private Sub CmdOuvrirCNR_Click()
Call OuvrirFichier("G:\Produits\descriptifs\TonFichier.pdf", False)
end sub
Bonne programmation
@++
Ci joint le code que j'utilise pour ouvrir n'importe quel type de fichier (PDF, Word, ect...). du moment ou un logiciel adéquat est installé sur le poste.
Dans Access, crée un module et coller le code ci dessous :
Public Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, _
ByVal lpDirectory As String, _
ByVal lpResult As String) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const SYNCHRONIZE = &H100000
Public Const INFINITE = &HFFFFFFFF
Public Function OuvrirFichier(Fichier As String, Optional attenteFermeture As Boolean = False) As Boolean
Dim fileappli As String * 250
Dim result As Integer
Dim temp As String
Dim fichAOuvrir As String
Dim i As Integer
Dim pid As Double
Dim phnd As Long
'On Error GoTo OuvrirFichier_Error
temp = Dir$(Fichier) 'recherche si le fichier existe
If temp <> "" Then
' Le fichier existe
' Recherche l'exécutable associé
result = FindExecutable(Fichier, vbNullString, fileappli)
If result > 32 Then
' Association trouvée
i = InStr(1, fileappli, Chr(0), vbBinaryCompare) - 1
If fileappli = "C:\WINDOWS\System32\shimgvw.dll" Then
fichAOuvrir = "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Fichier
Else
fichAOuvrir = """" & Left$(fileappli, i) & """ """ & Fichier & """"""
'fichAOuvrir = """" & Left$(fileappli, i) & """ " & fichier
End If
Else
' Aucune association de trouvée
OuvrirFichier = False
Exit Function
End If
Else
' Le fichier n'existe pas
OuvrirFichier = False
Exit Function
End If
'MsgBox fichAOuvrir
' Ouverture du fichier
pid = Shell("" & fichAOuvrir & "", vbMaximizedFocus)
If pid <> 0 Then
' Si attente fermeture demandé, on suspend le process jusqu'à que le logiciel soit fermé.
If attenteFermeture = True Then
phnd = OpenProcess(SYNCHRONIZE, 0, pid)
If phnd <> 0 Then
Call WaitForSingleObject(phnd, INFINITE)
Call CloseHandle(phnd)
End If
End If
OuvrirFichier = True
Else
OuvrirFichier = False
End If
End Function
----------------------------------------------------------------------
Pour l'utilisation de ce code, il suffit plus que sur clic d'un bouton dans un formulaire (ou autre evenement) de lancer la fonction suivant :
Private Sub CmdOuvrirCNR_Click()
Call OuvrirFichier("G:\Produits\descriptifs\TonFichier.pdf", False)
end sub
Bonne programmation
@++
