automatisation de tache ds excel

[Sebione]

Bonjour à tous,

n’étant pas un expert de Excel je me permet de vous solliciter afin de savoir si une possibilité de résoudre mon problème existe.

voilà, je voudrais automatiser des actions .

Dans mon fichier il y a un menu déroulent dans lequel on choisi uen adresse email. je clic sur le lien et la fenêtre Outlook jusque là c'est ok. Ce que je voudrais c'est que le fichier sur le lequel je suis en train de travailler ce mette en pièce jointe dans le mail automatiquement, est-ce possible?

merci et bonne journée.

 

[Hieu]

Salut,

quelque chose comme ça ?

Sub UseOutlook()
 Dim MonOutlook As Object
 Dim MonMessage As Object
 Set MonOutlook = CreateObject("Outlook.Application")
 Set MonMessage = MonOutlook.createitem(0)
 fichier = thisWorkbook.FullName ' ici
 MonMessage.to = "titi@gmail.com"
 ' MonMessage.cc =
 ' MonMessage.bcc =
 MonMessage.Subject = "perso"
  MonMessage.Attachments.Add fichier
  MonMessage.body = "Je vous envoie un message idiot."
  MonMessage.send
 Set MonOutlook = Nothing
End Sub

 

[Sebione]

Salut,

quelque chose comme ça ?

Sub UseOutlook()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
fichier = thisWorkbook.FullName ' ici
MonMessage.to = "titi@gmail.com"
' MonMessage.cc =
' MonMessage.bcc =
MonMessage.Subject = "perso"
  MonMessage.Attachments.Add fichier
  MonMessage.body = "Je vous envoie un message idiot."
  MonMessage.send
Set MonOutlook = Nothing
End Sub

Salut,

merci pour ce code, je l'ai affecté à un bouton et cela fonctionne, maintenant j'ai mis une liste déroulante avec le choix de diverse adresse comment je fais pour que l'adresse vienne selon le choix?

merci bcp.

 

[Hieu]

Salut, je ne maitrise pas les listes déroulantes ;

Je l'aurai fait comme ça :

Sub Envoyer()
Dim MonOutlook As Object
 Dim MonMessage As Object
 Set MonOutlook = CreateObject("Outlook.Application")
 Set MonMessage = MonOutlook.createitem(0)
 fichier = ThisWorkbook.FullName ' ici
MonMessage.to = Range("o2").Value
 ' MonMessage.cc =
' MonMessage.bcc =
MonMessage.Subject = "perso"
  MonMessage.Attachments.Add fichier
  MonMessage.body = "Je vous envoie un message idiot."
  MonMessage.send
 Set MonOutlook = Nothing
End Sub

avec une liste deroulante dans o2