Macro Impression de fichiers

Bonjour,

Désolé, mais l'Explorateur ouvre le fichier pour l'imprimer... Même s'il le
referme aussitôt après...
Sous Excel, vous pouvez, entre autre faire ceci :

Sub PrintDirect()
Application.ScreenUpdating = False
Workbooks.Open "C:_TestsMonClasseur.xls"
ActiveWindow.SelectedSheets.PrintOut , , 1, , , , True
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub
--
Argy
http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Je souhaiterais créer une macro qui imprime un fichier sans l'ouvrir,
l'équivalent, en fait, du clic droit / Imprimer sur un fichier dans
l'explorateur.

Quelle est la syntaxe ?

Merci d'avance de votre aide.

Philippe

Ce qui se rapproche le plus de ce que tu décris passe par la fonction API
ShellExecute :

''''''''''''
'(dans un module ordinaire)
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()
Dim fich
fich = "LecteurCheminCompletEtFichier.doc"
ShellExecute 0, "print", fich, "", "", 0
End Sub
''''''''''''

----------
Ange Ounis
----------

Bonjour à tous,

Je souhaiterais créer une macro qui imprime un fichier sans l'ouvrir,
l'équivalent, en fait, du clic droit / Imprimer sur un fichier dans
l'explorateur.

Quelle est la syntaxe ?

Merci d'avance de votre aide.

Philippe

Merci à tous.
Bonne journée.
Philippe

Bonjour à tous,

Je souhaiterais créer une macro qui imprime un fichier sans l'ouvrir,
l'équivalent, en fait, du clic droit / Imprimer sur un fichier dans
l'explorateur.

Quelle est la syntaxe ?

Merci d'avance de votre aide.

Philippe