envoie fichier par mail av une macro

SINED34 · 26 Octobre 2010

Bonjour toutes et tous
j'ai quelques difficultées a comprendre les"macros"dans Excel
le but recherché est de copier la feuille active et de l'envoyer a un destinataire.
l'exemple ci-dessous que j'ai recupéré ne fonctionne pas !!!!
si quelqu'un sait pourquoi et saurait me l'expliquer je serais ravi.

Sub envoiMailEtFeuilleActive()
'
'
'
ActiveSheet.Copy ' crée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="denis.menard@interieur.gouv.fr" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub

merci pour votre soutient
denis

gilbert_RGI · 26 Octobre 2010

Re : envoie fichier par mail av une macro

SINED34 à dit:
Bonjour toutes et tous
j'ai quelques difficultées a comprendre les"macros"dans Excel
le but recherché est de copier la feuille active et de l'envoyer a un destinataire.
l'exemple ci-dessous que j'ai recupéré ne fonctionne pas !!!!
si quelqu'un sait pourquoi et saurait me l'expliquer je serais ravi.

Sub envoiMailEtFeuilleActive()
'
'
'
ActiveSheet.Copy ' crée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="denis.menard@interieur.gouv.fr" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub

merci pour votre soutient
denis

Bonjour

ce code fonctionne parfaitement
il faut le mettre dans un module standard et lancer la macro à partir de la feuille que l'on veux envoyer par ALT + F8 par exemple ou mettre un bouton ou autre .....

Davidc57 · 26 Octobre 2010

Re : envoie fichier par mail av une macro

Salut,

Peut-être as-tu oublié d'activer la Reference Outlook dans VBA ...

Tools / Reference et sélectionne "Microsoft Outlook 11.0 Object Library".
Le 11.0 dépend de ta version ca peut donc êter 10.0 etc ... enfin coche en un et tu verras bien.

A+
David

gilbert_RGI · 26 Octobre 2010

Re : envoie fichier par mail av une macro

Davidc57 à dit:
Salut,

Peut-être as-tu oublié d'activer la Reference Outlook dans VBA ...

Tools / Reference et sélectionne "Microsoft Outlook 11.0 Object Library".
Le 11.0 dépend de ta version ca peut donc êter 10.0 etc ... enfin coche en un et tu verras bien.

A+
David

il n'y a pas besoin de cette référence !!!!!

car en employant SendMail
Cette méthode envoie le classeur en utilisant le système de messagerie installé.

Davidc57 · 26 Octobre 2010

Re : envoie fichier par mail av une macro

Merci gilbert_RGI pour cette précision.

SINED34 · 26 Octobre 2010

Re : envoie fichier par mail av une macro

merci pour vos info mais je ne recois pas le message
pour simplifier j ai mi un dossier joint

gilbert_RGI · 26 Octobre 2010

Re : envoie fichier par mail av une macro

alors il n'est pas arrivé le classeur ????

moi j'ai eu l'accusé de reception hi....

hypo78 · 13 Janvier 2011

Re : envoie fichier par mail av une macro

Bonjour à tous,
le code fonctionne, par contre le mail reste dans la boite d'envoi d'Outlook, ce qui oblige à ouvrir Outlook pour que son départ soit effectif.
Vous auriez une solution pour que l'on est pas à ouvrir Outlook?
Merci d'avance

hypo78 · 13 Janvier 2011

Re : envoie fichier par mail av une macro

Re,
c'est ok, j'y arrive en rajoutant la ligne : Shell "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"
Dernière question, comment ajouter le contenu d'une case dans le corps du message?

Sub envoiMailEtFeuilleActive()
'
'
'
ActiveSheet.Copy ' crée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="xxxx@gmail.com", Subject:="Main courante Flashover" 'envoi Mail
MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
Shell "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"
End Sub

Merci d'avance

envoie fichier par mail av une macro

SINED34

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

Davidc57

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Davidc57

XLDnaute Occasionnel

SINED34

XLDnaute Nouveau

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

hypo78

XLDnaute Impliqué

hypo78

XLDnaute Impliqué

Discussions similaires