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