PB Envoi de 2 feuilles Excel par Mail

Bonjour,

Dans le fichier ci joint, je voudrai adresser par mail les feuilles "hebdo" et "Annuelle" en format PDF aux destinataires inscrits sur la feuilles "Adresse".

Le bouton "Envois mail" associé à la macro "Envoi" adresse uniquement la feuilles "hebdo" au 1er destinataire de la liste.

Quelqu'un à t'il la solution ?

Par ailleurs si j'ouvre mon fichier, que j'ai créé sur un PC, sur mon Mac il génère tous de suite des informations "Erreur Automation" même si je n'est pas lancé de macro. Est ce normal et est ce lié à la macro envoi ?

Merci d'avance

À tester

Ayant moi-même souvent besoin d'aide, pas certain que ca fonctionne mais .. on peut toujours essayer

En cellule "B1" on inscrit cette formule:

=NBVAL(A2:A1000000)

'
' Envoi Macro
'

 Dim i
 Dim q As Integer
 q = Sheets("Adresses").Range("B1").Value
 For i = 0 To q
    Dim messageHTML
    On Error GoTo errorHandler
    'création du fichier PDF dans le même dossier que le fichier source
    Sheets("hebdo").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
    ActiveWorkbook.Path & "\" & "hebdo.PDF" '

   Sheets("Annuelle").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
    ActiveWorkbook.Path & "\" & "Annuelle.PDF" '

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "Fiches Hebdomadaires" 'A modifier
    objMessage.From = Range("C1")  'adresse mail de l'expéditeur n'est pas obligatoire

    objMessage.to = Range("A" & i) 'Email du destinataire doit-être correct ici

    objMessage.TextBody = Range("F3") & vbCrLf & Range("F5") & vbCrLf & Range("F7") ' A modifier
    piece_jointe = ActiveWorkbook.Path & "\" & "hebdo.PDF" ' à modifier
    piece_jointe2 = ActiveWorkbook.Path & "\" & "Annuelle.PDF"
    messageHTML = "Ceci est un message en HTML"

    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Range("D1")    'A modifier en D1 Feuiile Adresse
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Range("D3") 'A modifier en D3 Feuiile Adresse

    objMessage.Configuration.Fields.Update

    objMessage.AddAttachment (piece_jointe) 'On ajoute la piéce jointe,
    objMessage.AddAttachment (piece_jointe2)
    'il est possible d'envoyer plusieurs pièces objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
    objMessage.Send
    MsgBox "Le mail a été bien envoyé !"
    'la feuille PDF créée est est supprimée après l'envoi
    Kill ActiveWorkbook.Path & "\" & "hebdo.PDF" 'à modifier
    Kill ActiveWorkbook.Path & "\" & "Annuelle.PDF"
    'si erreur on sort de la procédure
    Exit Sub
errorHandler:
    'description de l'erreur survenue
    MsgBox Err.Description
    Application.Left = 8.5
    Application.Top = -0.5

    Next

Bonsoir crackwood01

Merci de t'être intéressé à mon problème.

J'ai fait les modifications que tu me proposais mais cela n'a rien changé;

je reçois toujours les mail uniquement sur la première adresse et uniquement le PDF de la feuille hebdo.

Merci quand même

Je cherche toujours