Macro d'envoi de fichier - créer un fichier Excel répertoire

Bonjour à tous,

J'ai trouvé dans le forum ce code, mais je n'arrive pas à le faire fonctionner. J'ai essayé d'activer la référence Outlook dans VBA mais si j'ai bien Excel ou word en référence je ne vois pas Outlook. Or il semblerait que ce soit la référence qui plante.

capture d ecran 2018 10 03 a 16 19 29 capture d ecran 2018 10 03 a 16 35 34

Voici le code :

Sub SendEmail()

Dim olApp As Outlook.Application

Set olApp = CreateObject("outlook.application")

Dim olMail As Outlook.MailItem

Set olMail = olApp.CreateItem(olMailItem)

With olMail

.To = "zzz@yy.com"

.CC = "zzz@yy.com"

.Subject = " outil de déploiement" & Format(Date - 1, "dd-mm-yyyy")

.Body = "Bonjour," & _

vbLf & "Veuillez trouver ci-joint l'outil de déploiement. Merci de me le retourner complété d'ici mercredi prochain" & _

vbLf & "Cordialement,"

.Attachments.Add "X:/collectif.xlsx"

.send

End With

End Sub

Merci pour vos réponses

ps : l'objectif à terme est d'envoyer 14 fichiers avec pour chaque fichier des adresses données, je pensais créer un classeur à part avec la macro et les adresses (les classeurs à envoyer sont en xlsx donc sans macro) , mais bon ça c'est l'objectif :p

Bonjour,

Ton profil indique Excel 2003, la fenêtre (image) VBE sous Mac…

Bonne continuation.

Cdlt.

Bonjour,

Bonne remarque, cela datait un peu j'ai fait le changement. Je suis sous mac (nouveau et forcé ) et sous la version 2016 (++ office 365 donc MAJ régulière) d'excel.

Merci.

Bonjour,

Je me permets de relancer le sujet, est-ce que quelqu'un a une réponse à m'apporter sur le sujet ?

Merci d'avance

Rechercher des sujets similaires à "macro envoi fichier creer repertoire"