Bonjour,
Mon but est de créé un macro qui sélectionne une feuille de calcul dans un fichier excel pour l'envoyer à un fichier.pdf en passant par l'imprimante de Adobe. Je vous démontre 2 codes pas très différent et ensuite je vous explique mon problème.
1er :
--------------------------------------------------------
---------------------------------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Macro1() ' ' Macro1 Macro ' Sheets("Évolution PL").Select Application.ActivePrinter = "Adobe PDF sur Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True Application.WindowState = xlMinimized Application.WindowState = xlNormal End Sub
2e :
----------------------------------------------------
----------------------------------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub macro2() ' Sheets("Évolution PL").Select 'ActiveChart.PrintOut Copies:=1, Collate:=True, PrToFileName:="C:\Evolution PL Graph.pdf", ActivePrinter:="Adobe PDF" ' Application.ActivePrinter = "Adobe PDF sur Ne02:" ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="Adobe PDF sur Ne02:", PrToFileName:="C:\Temp\Evolution PL Graph.pdf" 'Application.WindowState = xlMinimized ' Application.WindowState = xlNormal End Sub
Voici donc le problème,
La macro nommé Macro1 fonctionne à merveille, cela me fait apparaître la fenêtre "Enregister sous" et le PDF ce créé sans problème.
J'ai une contrainte qui fait que je ne dois pas faire apparaître la fenêtre "Enregistrer sous", Mais lorsque j'utilise le code de la Macro nommé Macro2 pour lui donner un chemin pré-établi, cela crée le PDF mais lorsque j'essais de l'ouvrir je recois le message d'erreur "Adobe ne peut lire ce fichier car le format est corompu".
Je possède Excel 2002 SP3 et Adobe Acrobate 6 Standart
Je n'arive pas a faire fonctionner les PDF générés automatiquement et pourtant la seule différence entre les 2 codes c'est que dans l'un le chemin est donné. J'ai les droits d'écritures (et administrateur) de mon poste.
Si quelqu'un a une idée autre que le suicide faite moi signe
Partager