VBA excel : macro active outlook , insère les adresses mails et un objet

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sarah75
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 9 janvier 2019
Version d'Excel : MAC2011

Message par sarah75 » 9 janvier 2019, 22:07

Bonsoir,

J'ai besoin d'aide pour cet exercice VBA.
J'ai beaucoup cherché et mes codes ne fonctionnent pas.
Est-ce qu'une bonne âme pourrais m'aider?

Vous trouverez ci-joint mon exercice :)

bonne soirée
Projet Bonus 5ACG.xlsm
(51.26 Kio) Téléchargé 14 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 9 janvier 2019, 23:53

Bonjour,

à tester,
Sub envoi_mail_avec_objet()
Dim courriel As String, feuille As Integer, ligne As Long
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

For feuille = 1 To Sheets.Count
 With Sheets(feuille)
  For ligne = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If .Cells(ligne, 3) <> "" Then
        courriel = .Cells(ligne, 3)
        
       'Monmessage
        With OutMail
            .To = courriel
            .CC = ""
            .BCC = "sarah.m.bouselham@gmail.com"
            .Subject = "Bilan annŽe 2017" 'Objet du mail
            .Body = "Hello!"
'            .Attachments.Add (chemin & "\" & fichier)
            .Display
'            .Send
      End With
    End If
  Next ligne
 End With
Next feuille

Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Vive ces nouvelles saisons qui nous colorent.
isabelle
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 10 janvier 2019, 01:45

re,

j'ai ajouté les commentaires à la macro,
sarah75-Projet Bonus 5ACG.xlsm
(81.83 Kio) Téléchargé 13 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
s
sarah75
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 9 janvier 2019
Version d'Excel : MAC2011

Message par sarah75 » 12 janvier 2019, 13:03

Bonjour,

Je te remercie pour ton aide :)
Malheureusement, un message d'erreur apparait toujours au même endroit
Sub envoi_mail_avec_objet()
Dim courriel As String, feuille As Integer, ligne As Long
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application") <= CETTE LIGNE PRESENTE UN MESSAGE D ERREUR : "un composant active x ne peut pas créer l'objet 429 "
Set OutMail = OutApp.CreateItem(0)

For feuille = 1 To Sheets.Count
With Sheets(feuille)
For ligne = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(ligne, 3) <> "" Then
courriel = .Cells(ligne, 3)

'Monmessage
With OutMail
.To = courriel
.CC = ""
.BCC = "XYZ@gmail.com"
.Subject = "Bilan année 2017" 'Objet du mail
'.Body = "Hello!"
' .Attachments.Add (chemin & "\" & fichier)
.Display
' .Send
End With
End If


Si tu peux m'aider encore un peu stp !

MERCI BEAUCOUP!
Avatar du membre
Alex777f
Membre habitué
Membre habitué
Messages : 73
Appréciation reçue : 1
Inscrit le : 1 janvier 2019
Version d'Excel : 2010

Message par Alex777f » 13 janvier 2019, 13:30

Bonjour Sarah, Isabelle, le forum
Confère premier commentaire du code de Isabelle ''activer la reference outlook''.
VBE => Outils => Reference et activer la reference microsoft outlook library.
Après ca ca devrait etre bon
s
sarah75
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 9 janvier 2019
Version d'Excel : MAC2011

Message par sarah75 » 13 janvier 2019, 15:59

Bonjour,

Merci beaucoup!!!!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message