M
Mic
Guest
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.
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.