Cher tous,
je vous sollicite car je souhaiterais imprimer un pdf à partir d'excel, mon soucis est de pouvoir choisir le dossier dans lequel la sauvegarde doit etre effectuée.
J'utilise Cute Writer pour l'impression.
Merci par avance pour votre aide!
Voila mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub pdf() Dim dat As String dat = "" & Cells(2, 6) & " Semaine # " & Cells(2, 5) 'selection de l'imprimante cute pdf writer Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True SendKeys dat, [TRUE] SendKeys "{ENTER}", [TRUE] End Sub
Partager