Impression automatisée des feuilles d'un classeur
Bonjour
J'ai un classeur dont chacune des feuilles correspond à la facture d'un client pour un mois donné.
Actuellement, j'imprime en pdf chaque feuille que j'enregistre dans le dossier du client et ensuite j'envoie ce pdf par mail à chaque client.
J'aimerais savoir s'il y a un moyen d'automatiser l'une ou l'autre des étapes ou encore mieux les 2 !!!
Je suis débutante et je ne sais pas utiliser les macros ...
Je joins un classeur test qui comporte 4 feuilles mais en réalité mon classeur en contient 40 environ
Merci de votre aide
Cordialement
Pour t'avancer un peu j'ai trouver cette macro qui marche très bien :
Sub ToPdf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
End Sub
-- 03 Aoû 2011, 11:57 --
Ensuite pour imprimer qu'une seule feuille, par exemple la première tu remplace ça
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"par ça
ThisWorkbook.Sheets("ARTIEST").PrintOut copies:=1, ActivePrinter:="PDFCreator"
Merci beaucoup
c'est super même si c'est du chinois pour moi !!!
Mais je voudrais bien progresser peux tu me dire comment on utilise les macros ??
je vais aussi regarder un cours sur le web pour ca
Merci encore et à bientôt j'espère
Cordialement
Le mieux c'est que tu crées des boutons sur chacune des feuilles et tu leur attribues cette macro. Commence par ça deja
Bonsoir
Merci beaucoup pour tes precieux conseils
Je ferai les essais ce weekend et je te tiendrai au courant
Merci encore
Cordialement