Discussion :

[sethipremier]

Bonjour, voilà je dois finaliser un dossier mais je me heurte à un problème.*
Je dois imprimer en format papier et format .pdf une feuille d'un fichier excel.
Le souci c'est que pour l'impression papier tout va bien, mais pour la version .pdf (j'utilise PdfCreator) toutes les boites de dialogues telles que "nommer le fichier" "enregitrer sous" etc etc je ne voudrais pas qu'elles apparaisssent, que tout soit transparent pour l'operateur.
Je vous joint mon bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Rem Impression des feuilles de contrôle 1 et 2
    Worksheets("IMP").Select
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
 
    Application.ActivePrinter = "Epson Stylus COLOR 850 sur LPT1:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
    "Epson Stylus COLOR 850 sur LPT1:", Collate:=True

Ce qui serait encore plus transparent c'est que le nom du fichier en format .pdf ait comme nom la valeur de cette textbox

Code :

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

Feuil1.TextBox2.Value = ""

Merci à vous tous pour votre aide et votre attention

[ouskel'n'or]

Déjà, si tu désignes PDFCreator comme imprimante par défaut, tu n'est pas obligé de le rappeler

Code :

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

1
2
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Pour les messages il faudrait pouvoir tester mais essaie déjà

Code :

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

Application.DisplayAlerts = False

à placer avant le code ci-dessus.
Tu peux tester

[sethipremier]

Déjà, si tu désignes PDFCreator comme imprimante par défaut, tu n'est pas obligé de le rappeler

Code :

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

1
2
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Bah c'est rien de toute façon c'est l'imprimante qu'est par défaut

Pour les messages il faudrait pouvoir tester mais essaie déjà

Code :

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

Application.DisplayAlerts = False

à placer avant le code ci-dessus.
Tu peux tester

Bah ça ne fonctionne pas comme je voudrais, je ne veux pas que l'opérateur fasse les actions de nommer et de placer le fichier crée où il veut, j'aimerais que tout se fasse "par dessous". Je ne sais pas si j'arrive bien à me faire comprendre ...

[dadavyvy]

Et avec ce post :
http://www.developpez.net/forums/sho...d.php?t=211931?

D'ailleurs une autre personne travaille actuellement sur du word vers PDFcreator : http://www.developpez.net/forums/sho...d.php?t=319415

[e040098k]

Si cela peut t'aider je viens de finir ce code :

http://www.developpez.net/forums/sho...80#post1978680

Voila bon développement !

[sethipremier]

C'est sympa pour votre aide, mais tout ceci est pour Word si je comprend bien. Mais pour Excel, quelles sont les modifications à apporter? Je débute encore en VBA sur excel

[e040098k]

Tu peut utiliser ma source pour des fichiers excel !

Il suffit d'oter le filtre ".DOC" de la boite de dialogue Dialog1 !

et tu pourra exporter des xls ou des ppt !

[sethipremier]

Tu peut utiliser ma source pour des fichiers excel !

Il suffit d'oter le filtre ".DOC" de la boite de dialogue Dialog1 !

et tu pourra exporter des xls ou des ppt !

Ok je vais essayer! Merci