Bonjour,
Je suis en train d'écrire une macro qui permet de convertir une chaine des fichers Excel en pdf et imprimer ces docs pdf avant de les fermer, ainsi de suite.
voici les codes que j'ai écris:
Problèmes:
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
16
17 Sub PDF() Dim x As Variant 'Convertir les fichers en pdf Workbooks.Open Filename:="X:\EcoWin\Macro-International\Grands pays\Brazil.xls" Application.ActivePrinter = "Acrobat Distiller sur Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Acrobat Distiller sur Ne00: PrToFileName:=TRUE", Collate:=True 'Imprimer les fichers pdf x = Shell("C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe X:\EcoWin\Macro-International\Brazil.pdf") Application.ActivePrinter = _ "\\eufrhqimp1wp.fr.insurance.corp\HPFO177 sur Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "\\eufrhqimp1wp.fr.insurance.corp\HPFO177 sur Ne02:", Collate:=True End Sub
1. J'ai enregistré le code pour la conversion en pdf, mais chaque fois il me demande le chemin où je veux le garder,pour une chaine de fichers,c'est trop embettant.alors, comment est-ce que je peux lui dire de les enregistrer toujours dans un même dossier(par exemple: C:\My Documents\PDF Dossiers)
2. J'aimerais imprimer les fichers pdf, puisque ce ne sont plus dans Excel, comment puis-je écrire en code VBA?
Merci beaucoup
Partager