Discussion :

[sharox]

Bonjour a tous,

Je me suis enfin décider a poster sur ce forum pour mon problème, je voulais trouver sur internet la réponse mais que nenni.
Tout les codes que j'ai trouvé plante a un endroit et évidement avec mon superbe niveau je ne sais pas pourquoi -_-

Donc voici mon problème,
je voudrais imprimer un classeur(une feuille plus exactement) en fichier PDF pour ensuite l'envoyer par mail,
la partie d'envoie de mail est fait manque que la conversion, et c'est la ou je bloque.

J'ai deux imprimante PDF :
-CutePDF Writer
-Foxit Reader PDF Printer

Je bloque durement sur ce problème

Merci de votre aide futur !!

[patricktoulon]

Bonjour
c'est quoi ta version d'Excel
si c'est 2007 tu n'a qu'a installer le complément save as pdf gratuit et dispos sur Microsoft

moi j'ai aussi une imprimante virtuelle pdf bullzip et j'ai fait l'essai avec l'enregistreur de macro et ca fonctionné

[sharox]

J'utilise Excel 2003..

ha pas bête, j'avais zapé l'enregistreur de macro ^^
Merci je vais testé !

Voici le code proposé qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Application.ActivePrinter = "Foxit Reader PDF Printer sur Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Foxit Reader PDF Printer sur Ne01:", Collate:=True

Il me l'imprime en pdf , mais comment je peux choisir le nom dans mon code ?
car je dois le choisir manuellement et pour l'envoyer par mail après, je dois connaitre le nom du fichier..
et si je le rentre a la main je ne peux pas le connaitre

[kiki29]

Salut, curieux sinon avec PDFCreator voir la liste pour naviguer dans les posts ( il y en a 5 pages ... ).

[patricktoulon]

Regarde ce que ca donne chez moi

il y a 2 exemple de choix pour les pages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro3()
'code récupéré avec l'enregistreur de macro et modifié
'on choisi l'imprimante
Application.ActivePrinter = "Bullzip PDF Printer sur Ne02:"'N02 peut changer chez toi 
 
 
 
'on imprime en pdf la 1 ere page de la feuil1
ExecuteExcel4Macro "PRINT(2,1,1,1, ,,,,,,,2,""Bullzip PDF Printer sur Ne02:"",,TRUE,,FALSE)"
'on imprime les page de 1 a 3 de la feuil1
ExecuteExcel4Macro "PRINT(2,1,3,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

je ne sais pas si on peut changer les nom mais je vais chercher

[sharox]

J'ai trouvé a moitié ce que je recherche ^^

en Gros dans la méthode PrintOut, il y a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PrintToFile :=

PrintToFile Argument de type Variant facultatif. Affectez-lui la valeur True pour imprimer dans un fichier. Si vous ne spécifiez pas PrToFileName, Microsoft Excel invite l'utilisateur à entrer le nom du fichier de sortie.

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PrToFileName :=

PrToFileName Argument de type Variant facultatif. Si l'argument PrintToFile a la valeur True, cet argument spécifie le nom du fichier vers lequel vous souhaitez effectuer l'impression.

malheureusement je ne comprend pas quoi faire avec j'ai testé mais rien n'y fait !!

[patricktoulon]

Re
Bonjour
ces fonctions sont faite pour imprimer dans un fichier de type xps

[kiki29]

Salut, par exemple avec Acrobat elles génèrent un fichier Postscript.