enregistrer format PDF

[Mic]

Bonjour à tous et merci de votre aide.
Je veux enregistrer une plage de cellule au format pdf avec PDFCreator :
Dim imprimante As String
Dim imprimante2 As String

imprimante2 = "PDFCreator sur Ne00:"

imprimante = Application.ActivePrinter
Application.ActivePrinter = imprimante2
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Application.ActivePrinter = imprimante

Ca fonctionne mais PDFCreator ouvre une fenetre pour nommer le fichier à sauvegarder, alors que je voudrais imposer le nom du fichier de sauvegarde et éviter l'ouverture de cette fenetre.
Mais je ne sais pas comment faire...
Si vous pouviez m'éclairer.

 

[@+Thierry]

Bonjour Mic,

Je n'utilise pas PDFCreator, mais au regard de ce que tu as écrit, il semble se comporter comme le PDFWriter ...

Regarde ce fil d'hier : Lien supprimé mon post du 23-10-04 18:57

Tu pourras facilement adapter, et ensuite revenir nous dire si celà fonctionne avec ce logiciel libre et gratuit.

Bon Dimanche
@+Thierry

 

[Mic]

Merci Thierry, mais

cela foncionne comme ma méthode. J'ai du retirer le ~(je me demande à quoi il sert?)
mais la boite de dialogue de PDFCreator s'ouvre toujours pour demander le nom du fichier à sauvegarder.

Bon Dimanche

Mic.

 

[@+Thierry]

Re Bonjour Mic, le Forum

Voyons un peu, le "~" équivaut à la touche [Entrée], que l'on pourrait écrire aussi {ENTER}... que l'on envoie donc avec le "SendKeys"

C'est une commande indispensable pour valider l'instruction avec le chemin/nom du Fichier dans la DialogBox ouverte de PDFCreator, ainsi que pour la fermer...

Récapitulons, sans avoir PDFCreator, donc sans tester, voici comment je m'y prendrais :

Const ThePath As String = "I:\MC_PROD\Bank\Transac\" '(exemple à adapter of course)

Dim TheFile As String
Dim imprimante As String
Dim imprimante2 As String

Imprimante2 = "PDFCreator sur Ne00:"
imprimante = Application.ActivePrinter
Application.ActivePrinter = imprimante2
TheFile = Sheets("TheFeuille").Range("A1").Value & ".Pdf"

Application.SendKeys Keys:=ThePath & TheFile + "~"
Sheets("TheFeuilleToPrint").PrintOut ActivePrinter:=Imprimante2

Application.ActivePrinter = imprimante

Si çà ne passe pas essaie donc en changeant cette ligne :
Application.SendKeys Keys:=ThePath & TheFile + {ENTER}

NB le chemin complet (ThePath) est indispensable, car le nom de fichier seul, pourrait sauvegarder ton fichier n'importe où en fonction de CurrentDir...

Bon Courage
@+Thierry

 

[Mic]

Re Thierry et remerci de m'aider
Je viens d'essayer ta méthode et toujours pareil, la fenetre PDFCreator s'ouvre toujours. J'ai retirer aussi cette ligne :
Application.SendKeys Keys:=ThePath & TheFile + (ENTER)
et ça marche de la meme façon, elle n'est donc pas prise en compte.

Bon dimanche...

 

[Mic]

re re Thierry
J'ai trouvé! Je viens de configurer PDFCreator(que je commense à utiliser)
en autosave, avec le nom de fichier, c'est tout
Tres bien ce PDFCreator

Merci, a plus...