AIDE pour macro Envoi mail automatique par excel

**ZenJP** · 23/01/2014, 11h06

Bonjour

Voici ce que je cherche.

Imaginons dans Excel 2010 un document A dans lequel il y aurait (entre autres) les colonnes suivantes (1 enregistrement par ligne)
Adresse Mail + Envoi à faire
et une seule cellule indiquant le nom (ou le lien) d'un AUTRE document excel à envoyer, document B

Je voudrais en cliquant sur un bouton situé dans le même document excel (A) que le document excel référencé (B) soit converti en pdf puis envoyé par Outlook en PJ à toutes les adresses mails du document A à condition que la zone "Envoi à faire" comporte un O ou OUI.

Le must serait que je puisse modifier l'objet et l'en-tête du message à envoyer sur ce document A également (cellules ?) avant d'appuyer sur le bouton.

Merci d'avance aux passionnés

Je cherche vraiment une solution automatique (Bouton Macro), et pas des solutions style publipostage etc..

Bonne journée à tous

**defluc** · 23/01/2014, 14h13

Hello,

Pour ne pas partir d'une page blanche, montres nous ce que tu as déjà programmé et dis-nous sur quoi tu coince.

**ZenJP** · 23/01/2014, 14h38

Ben en fait je pars d'une page blanche..

Je suis vraiment candide sur ce plan là , mais je pense qu'on peut partir de çà pour la partie mail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub SendMail_Outlook()
 
       Dim ol As New Outlook.Application
       Dim olmail As MailItem
       Dim CurrFile As String
       Set ol = New Outlook.Application
       Set olmail = ol.CreateItem(olMailItem)
       With olmail
          .To = Range("a1").Value
          .Subject = Range("b1").Value
          .Body = "Contenu " & Range("c1").Value
          .Attachments.Add "C:\Users\JP\Documents\test.xlsx"
          .Display
 
       End With
    End Sub

avec a1 à remplacer par ma liste de mails (exemple a3:a20)
et le document en PJ qui doit être le lien contenu dans une cellule (exemple d1)

Pour la partie conversion en pdf j'ai vu çà (surtout que j'ai pdf creator) mais il y a peut-être plus simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    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