c135078
Messages postés48Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 5 mai 2009
-
17 avril 2008 à 15:23
c135078
Messages postés48Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 5 mai 2009
-
18 avril 2008 à 09:56
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
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202172 18 avril 2008 à 09:42
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:\nom de mon fichier.doc", "", "", 1
en sub
Vous n’avez pas trouvé la réponse que vous recherchez ?