Discussion :

[MarcoTsuki]

Bonjour,

Mon premier post pour un coup de main, je suis novice en VBA, j'essaye de faire fonctionner cette macro mais je n'y arrive pas :

Je voudrais pouvoir éditer en pdf la page correspondante "1page" et quel soit automatiquement nommé avec le nom présent dans la case "nomdevis" mais impossible !
J'arrive en supprimant la partie Nomfichier et filename a éditer la bonne page en .pdf en selectionnant l'imprimante correspondante mais il ne me propose pas le nom du fichier du coup... Une idée ?

Sub impressiondevispage1()
'
' Impression_Devis sur 1 page
'
Nomfichier = Range("nomdevis")
ActiveWorkbook.Unprotect
Worksheets("1page").Visible = True

Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("1page").PrintOut copies:=1, Filename:=Nomfichier

Worksheets("1page").Visible = False
ActiveWorkbook.Protect , structure:=True, Windows:=False

End Sub

[Philippe Tulliez]

Bonjour,
Cette instruction imprime bien le classeur au format pdf (l'imprimante active doit être une imprimante pdf)

Code :

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

Wkb.PrintOut Printtofile:=True, PrToFilename:=FullName

où la variable objet Wkb (de type Workbook) est le classeur à imprimer et la variable FullName (String) contient le nom complet du fichier à exporter (Répertoire + nom du fichier et son suffixe)

[MarcoTsuki]

Merci Philippe !

Bonne journée