[Vba Excel 2010] Génération d'un pdf avec envoi d'email

Génération d'un pdf avec envoi d'email [Vba Excel 2010] - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2013 à 11:15:33    

Bonjour,
 
Voici mon environnement :
Windows 7 pro 64 bits
Office 2010 32 bits
Outlook exchange
Pdf Creator
 
Prérequis : je ne maitrise que très peu le language vba
 
Je souhaite générer à partir d'une feuille excell, un fichier pdf avec un envoi d'email. J'ai trouvé le script ci-dessous, mais un message d'erreur arrive à la ligne ".send" Le fichier pdf est toutefois généré.
 
Message d'erreur :

Code :
  1. Erreur d'exécution '-2147220960 (80040220)'
  2. La valeur de configuration "SendUsing" est non valide.


 
J'ai passé 2 jours sur plusieurs forum à chercher une solution mais en vain...
Voici le code :
 

Code :
  1. '   http://sourceforge.net/projects/pdfcreator   PDFCreator-0_9_3_GPLGhostscript.exe
  2. '   sous VBA Menu Outils | Références  Cocher PDFCreator
  3. '   sous VBA Menu Outils | Références  Cocher Microsoft CDO for Exchange xxxx Library
  5. Sub Tst_PdfCreator()
  6. Dim objMessage As CDO.Message
  7. Dim jobPDF As Object
  8. Dim sNomPDF As String
  9. Dim sCheminPDF As String
  11.     sNomPDF = "Essai.pdf"
  12.     sCheminPDF = ActiveWorkbook.Path & Application.PathSeparator
  14.     If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
  16.     Set jobPDF = CreateObject("PDFCreator.clsPDFCreator" )
  18.     With jobPDF
  19.         If .cStart("/NoProcessingAtStartup" ) = False Then
  20.             MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
  21.              Exit Sub
  22.         End If
  23.         .cOption("UseAutosave" ) = 1
  24.         .cOption("UseAutosaveDirectory" ) = 1
  25.         .cOption("AutosaveDirectory" ) = sCheminPDF
  26.         .cOption("AutosaveFilename" ) = sNomPDF
  28.         '0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
  29.         .cOption("AutosaveFormat" ) = 0
  30.         .cClearCache
  31.     End With
  33.     ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
  35.     'Fichier dans la file d'attente
  36.     Do Until jobPDF.cCountOfPrintjobs = 1
  37.         DoEvents
  38.     Loop
  39.     jobPDF.cPrinterStop = False
  41.     'Attendre que la file d'attente soit vide
  42.     Do Until jobPDF.cCountOfPrintjobs = 0
  43.         DoEvents
  44.     Loop
  45.     jobPDF.cClose
  46.     Set jobPDF = Nothing
  47.    
  48.     Set objMessage = CreateObject("CDO.Message" )
  49.     With objMessage
  50.         .Subject = "Essai"
  51.         '.From = "qsdqssdsqdsq@qdsdsdsdqs.fr"
  52.         .To = "qsdsqdqsd@qsdqsdqdqsd.fr"
  53.         .TextBody = "Texte dans le corps de message"
  54.         .AddAttachment sCheminPDF & sNomPDF
  55.         .Send
  56.     End With
  57.    
  58.     Set objMessage = Nothing
  59. End Sub


Message édité par Dolu007 le 06-06-2013 à 11:16:04

---------------
L'affaire est dans le cul de l'âne, et l'âne il braie
Reply

Marsh Posté le 06-06-2013 à 11:15:33   

Reply

Marsh Posté le 06-06-2013 à 13:16:51    

 
           Bonjour,   juste une p'tite question :
 
           Pourquoi se compliquer la vie en passant par PDFCreator alors qu'Excel depuis sa version 2007 gère les fichiers PDF ? …
 

Reply

Marsh Posté le 06-06-2013 à 13:23:45    

Je ne le savais pas tout simplement et je ne connais pas le code associé.


---------------
L'affaire est dans le cul de l'âne, et l'âne il braie
Reply

Marsh Posté le 29-06-2013 à 14:18:32    

Salut, si cela peut t'aider voir ici http://www.developpez.net/forums/d [...] dfcreator/ Il y a 3 Pages à consulter ...


Message édité par kiki29 le 29-06-2013 à 14:21:19

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed