Impression d'un fichier PDF à partir d'excelRésolu

Question

Bonjour, 
J'utilise pour l'instant une macro qui me permet d'imprimer des ficihers .doc lorsque l'on clique sur un bouton dans Excel... 

J'aurais voulu pouvoir faire la même chose mais imprimier un fichier .pdf 

Voici la macro que j'utilise... 

Private Sub QCjournalier_Click() 
Dim App As Object 

Set App = CreateObject("WORD.Application") 
App.DisplayAlerts = False 
App.Visible = False 
Set abject = App.Documents.Add() 
App.PrintOut , , , , , , , , , , , , "nom de mon fichier.doc" 
App.Quit 
End Sub

Je ne sais pas si c'est possible... 

Mais un tout grand merci d'avance 

JérômeConfiguration: Windows XP

Un tout grand merci d'avance

c135078 · Accepted Answer

peut-être que ce n'est pas possible... à partir d'un fichier excel... 

Mais s'il y a moyen de faire ça avec un fichier HTML... je suis preneur 

Le programme que j'utilise est frontpage... 

alors soit en HTML soit en Java mais aussi bbien l'un que l'autre je n'en sui pas encore capable... 

Un tout grand merci au âmes généreuse 

Jérôme 

en résumer je cherhce la possibilité d'imprimer un fichier distant en cliquant sur un bouton (excel word ou frontpage)

Un tout grand merci d'avance

Renfield · Answer

API ShellExecute avec "Print" comme verbe

(équivalent bouton droit sur le fichier, dans l'explorateur  + click sur Imprimer)

c135078 · Answer

Sorry mais je suis loin d'être très doué en résumer que dois je faire...

j'ai mon bouton  et je fais clique droit et visualiser code...
 il m'ouvre ceci

Private Sub QCjournalier_Click() 

en sub

Que dois je faire ensuite

Un tout grand merci d'avance

Renfield · Answer

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

Private Sub QCjournalier_Click() 
    ShellExecute 0, "Print", "C:
om de mon fichier.doc", "", "", 1
en sub

c135078 · Answer

Excellent ça marche du tonner un tout grand merci

Un tout grand merci d'avance

Impression d'un fichier PDF à partir d'excel

5 réponses

Votre réponse