Enregistrer le document sous le nom contenu en A1

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #17886081
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" 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



isabelle
Le #17888211
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





isabelle
Le #17888661
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






Publicité
Poster une réponse
Anonyme