Je cherche le moyen sous excel pour faire un bouton qui me permettrait d'envoyer un feuillet via Outlook.
Mon but étant que l'utilisateur se place sur le feuillet "Legal Matrix" et qu'il clique sur le bouton "Send Mail". Ceci m'ouvrirai Outlook 2003, créerai un nouveau mail et attacherai seulement le feuillet "Legal Matrix". Le mail serait envoyer à "nom.prénom@societé.com" et aurais pour objet "Legal Matrix Check List"
Pourriez vous m'expliquer comment réaliser cette macro ? je n'ai pas de grandes connaissances en VB alors soyez clément, évitez moi des codes de 2000 lignes que je n'arriverais pas à comprendre Faites au plus simple pour m'aider (si vous voulez m'aider bien sûr ) , ça vous fera gagner du temps
Je pense que le plus simple serait que le bouton créé un fichier excel avec uniquement la copie de la feuille... Le fichier en question (LegalMatrix.xls, par exemple) serait alors envoyé par mail avec ce genre de code :
Sub EnvoiMail()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
With MonMessage
.to = "nom1.prénom1@societé.com;nom2.prénom2@societé.com"
.cc = "nom3.prénom3@societé.com"
.bcc = "nom4.prénom4@societé.com"
.Attachments.Add "c:\LegalMatrix.xls"
.Subject = "Legal Matrix Check List"
End With
Corps = "Dear Sir,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Please find attached the up-to-date version of LegalMatrix.xls"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Best regards."
MonMessage.Body = Corps
MonMessage.Send
Set MonOutlook = Nothing
End Sub
C'est du VBA, pas du VB...
"c:\...\LegalMatrix.xls" doit être remplacé par le chemin du fichier précédemment créé...
EDIT : Ci dessous le code pour l'évènement click de CommandButton1 (nom de bouton par défaut)
Même remarque que ci-dessus concernant "C:\...\LegalMatrix.xls"... Remplacer aussi "classeur2.xls" par le nom du fichier initial (celui à partir duquel est exécuté le code)...
Dans le fichier créé, le bouton est supprimé dynamiquement afin que le destinataire n'ait que le contenu de la feuille...
Ne pas oublier également de rajouter la référence "Microsoft Outlook 11.0 Object Library"...
VB ?
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.