Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Enregistrer le document sous le nom contenu en A1

3 réponses
Avatar
JBF
Bonjour,

Est-il possible d'imprimer en PDF en enregistrant le document selon le
contenu de A1.

J'imprime avec PDF creator. C'est lorsque s'ouvre la fenêtre de PDF creator
que je voudrais que le champs où l'on renseigne le nom du document s'intègre
automatiquement.

Une macro peut-elle faire ça?

Merci d'avance,

JBF

3 réponses

Avatar
Philippe.R
Bonsoir,
As tu essayé l'enregistreur de macros ?
Sur un coup comme celui ci, il devrait déjà donner un bon bout du code.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"JBF" a écrit dans le message de
news:
Bonjour,

Est-il possible d'imprimer en PDF en enregistrant le document selon le
contenu de A1.

J'imprime avec PDF creator. C'est lorsque s'ouvre la fenêtre de PDF
creator que je voudrais que le champs où l'on renseigne le nom du document
s'intègre automatiquement.

Une macro peut-elle faire ça?

Merci d'avance,

JBF



Avatar
isabelle
bonjour Jbf,

il y a un exemple ici :

http://heureuxoli.developpez.com/office/word/doc2pdf/

isabelle

JBF a écrit :
Bonjour,

Est-il possible d'imprimer en PDF en enregistrant le document selon le
contenu de A1.

J'imprime avec PDF creator. C'est lorsque s'ouvre la fenêtre de PDF creator
que je voudrais que le champs où l'on renseigne le nom du document s'intègre
automatiquement.

Une macro peut-elle faire ça?

Merci d'avance,

JBF





Avatar
isabelle
ps/ ne pas oublier d'ajouter la référence à PDFCreator

Sub testPrintPDF()
Dim oldPrinter As String
Dim stChemin As String
Dim stNom As String
Dim PDFCreator1 As New clsPDFCreator
oldPrinter = ActivePrinter
Application.ActivePrinter = "PDFCreator sur Ne00:"

If Len(ActiveWorkbook.Path) = 0 Then stChemin = "c:temp"
Else: stChemin = ActiveWorkbook.Path
End If

If Len(ActiveWorkbook.Name) = 0 Then stNom = "documentPDF.pdf"
Else: stNom = ActiveWorkbook.Name
End If

With PDFCreator1
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = stChemin
.cOption("AutosaveFilename") = stNom
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cStart
.cClearCache
End With
ActiveWorkbook.PrintOut
PDFCreator1.cClose
ActivePrinter = oldPrinter
End Sub

isabelle

isabelle a écrit :
bonjour Jbf,

il y a un exemple ici :

http://heureuxoli.developpez.com/office/word/doc2pdf/

isabelle

JBF a écrit :
Bonjour,

Est-il possible d'imprimer en PDF en enregistrant le document selon
le contenu de A1.

J'imprime avec PDF creator. C'est lorsque s'ouvre la fenêtre de PDF
creator que je voudrais que le champs où l'on renseigne le nom du
document s'intègre automatiquement.

Une macro peut-elle faire ça?

Merci d'avance,

JBF