Discussion :

[dany007]

Bonjour à tous,

J'ai une table qui contient un champ texte ou un chemin d'accès complet à un document de référence est enregistré, exemple: C:\Mondossier\monfichier.txt

Les documents peuvent être des .pdf, .jpg, .doc, .xls ou autre, en autant que l'aplication requise pour l'ouvrir soit installée sur le PC.

Je désire lancer l'impression de ces documents à partir d'access comme on le fait avec l'explorateur windows sans avoir à spécifier l'application à utiliser.

Est-ce possible?

MERCI

[Invité]

Bonjour

Sans spécifier l'application recherche ShellExecute sur le forum, il y'a de nombreux exemples, peut-être que l'un te permettra de faire l'impression.

Starec

[dany007]

Merci mais j'avais déjà vérifié et ce n'est pas ce que je cherche à faire.
Avec ShellExecute on doit spécifier le nom de l'application.

Je veux que ce soit l'application associée par windows à l'extension du fichier qui soit lancée et je ne veut pas ouvrir l'application et demander à l'utilisateur d'imprimer le document... Je veut qu'il s'imprime automatiquement et que l'application se ferme.

Dany

[Invité]

Re

Attention, avec la fonction Shell de VB tu dois mettre l'application, avec la fonction ShellExecute, tu as juste le nom du fichier et son extension à mettre, c'est une API

Starec

[cafeine]

Hello,

il suffit de lancer ShellExecute et au lieu de demander la commande "open", il faut demander "print"

[dany007]

Merci, ça fonctionne. En effet je confondais la commande Shell avec shellexecute.
Voici le code que j'ai placé dans un module et qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
 
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
 
Sub ShellImprime(fichier as String)
        ShellExecute 0, "print", fichier, "", "", 0
End Sub

Salutations
Dany