Envoie auto par mail en pdf

Bonsoir,

y a t'il un code pour convertir une feuille excel en pdf et l'envoyer directement par mail.

pour l'instant j'arrive a lancer l'impression mais la fenetre d'enregistrement de pdf creator s'ouvre et la je bloque, la macro devrais cliquer sur "mail" sur cette fenetre

cordialement

salut je sais pas si cela va t aider mais je connait un petit logiciel qui transforme en pdf ,il s'appele cutepdf ,une fois installer tu fait impression de ton fichier en choisisant cutpdf dans l'imprimante et tu lui donne un nom pour ton pdf et voila un fichier excel transformer en pdf.

bonjour,

malheureusement non, c sur le réseau du boulot et je suis obligé de me debrouiller avec ce qui est dessus, je n'ai pas les autorisation pour installer. donc c'est pdf creator, je n'ai pas le choix

a+

bonsoir,

vu 60 fois et pas de solution, j'en conclu que ce n'est pas possible, dommage je vais voir comment faire autrement.

cordialement

Salut le forum

Maguetlolo, un bout de code à tester !

Option Explicit
' http://www.excel-downloads.com/forum/90968-envoyer-un-pdf.html
' sous VBA Menu Outils | Références  Cocher PDFCreator
'                                      Cocher Microsoft CDO for Exchange xxxx Library

Sub Tst_PdfCreator()
Dim objMessage As CDO.Message
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String

    sNomPDF = "Essai_PdfCreator.pdf"
    sCheminPDF = ActiveWorkbook.Path & Application.PathSeparator

    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")

    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF

        '   0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cOption("AutosaveFormat") = 0

        .cClearCache
    End With

    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

    'Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False

    'Attendre que la file d'attente soit vide
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop

    Do Until Dir(sCheminPDF & sNomPDF) <> ""
        DoEvents
    Loop

    JobPDF.cClose
    Set JobPDF = Nothing

    Set objMessage = CreateObject("CDO.Message")
    With objMessage
        .Subject = "Example"
        .From = "abcd@wanadoo.fr"
        .To = "defg@wanadoo.fr"
        .TextBody = "Texte dans le corps de message"
        .AddAttachment sCheminPDF & sNomPDF
        .Send
    End With

    Set objMessage = Nothing

End Sub

Mytå

bonjour

merci pour ta reponse et désolé de n'avoir répondu avant (vacances oblige)

au premier coup d'oeil un soucis, dans les references je n'ai pas

" Microsoft CDO for Exchange xxxx Library"

cordialement

Salut le forum

Maguetlolo à tester

Chez moi, ça ne s'appelle pas

Microsoft CDO Exchange xxxx Library

mais

Microsoft CDO for Windows 2000 Library

Mytå

re

ok chez moi aussi alors, c'est coché,

maintenant cela me met un message d'erreur "initialisation pdfcreator impossible"

cordialement

Re le forum

Désolé de ne pouvoir t'aider plus car je ne possède par PDF Creator.

Attends de voir si quelqu'un d'autre le possède.

Mytå

Salut le forum,

Moi j'ai bien Microsoft CDO Exchange 2000 Library, et ça a l'air de marcher...

Mais je ne peux pas aller au bout de la procédure, car je n'ai pas encore réussi à configurer Outlook pour envoyer des mails, je ne sais que les recevoir

Du coup ça bloque à l'avant dernière instruction : objMessage.Send, après avoir crée un fichier "Essai_PdfCreator.pdf" dans le répertoire de mon classeur excel

Faudrait que quelqu'un d'autre essaye, mais te dire pourquoi ça ne marche pas chez toi dépasse mes compétences...

bonsoir, bizarre, outlook si tu peux recevoir des mails, tu doit pouvoir en envoyer, je n'ai pas configurer les deux separement moi? qu'est ce qui cloche chez toi, tu peux m'en dire un peu plus?

Salut le forum

maguetlolo a écrit :

C'est sur le réseau du boulot et je suis obligé de me debrouiller avec ce qui est dessus, je n'ai pas les autorisation pour installer. donc c'est PDF Creator, je n'ai pas le choix.

Je crois que PDF Creator doit être installé en local, et non sur le réseau, à vérifier....

Mytå

bonsoir

oui effectivement, mais ca ne change rien, je n'ai pas les autorisations et je suis obligé de faire avec ce qu'il y a.

cordialement