Transmettre une feuille de calcul directement par e-mail (macro)
21 réponses
LAFORCADE
Bjrs à tous !!!
j'ai une feuille excel qui comprends des informations résultant de macros
(bon de commande) et je voudrais envoyer directement cette feuille par e-mail
à mon fournisseur.
Bjrs à tous !!! j'ai une feuille excel qui comprends des informations résultant de macros (bon de commande) et je voudrais envoyer directement cette feuille par e-mail à mon fournisseur.
On peut m'aider a réaliser cette macro ?
Merci d'avance !
Moi, j'arrive sans problèmes à envoyer des feuilles individuellemnt par macro avec cette procédure : Sub essaienvoiluc() ' ' feuilles_versdistricts Macro ' ' Touche de raccourci du clavier: Ctrl+Shift+E ' Dim Dest As String, Sujet As String Sheets("AR").Select ActiveSheet.Copy Dest = "" Sujet = "Fichier CTOL" ActiveWorkbook.SendMail Dest, Sujet, True Application.DisplayAlerts = False ActiveWorkbook.Close End Sub
Ca fonctionne très bien et je peux envoyer autant de feuilles individuelles d'un classeur de cette fçon en repétant la procédure, cependant, j'aimerais pouvoir, en plus de pouvoir mettre un message dans le corps du mail pour chacune des fzeuilles envoyée et ça je n'y suis pas encore parvenu
Le lundi 02 Juillet 2007 à 16:10 par LAFORCADE :
Bjrs à tous !!!
j'ai une feuille excel qui comprends des informations résultant de
macros
(bon de commande) et je voudrais envoyer directement cette feuille par e-mail
à mon fournisseur.
On peut m'aider a réaliser cette macro ?
Merci d'avance !
Moi, j'arrive sans problèmes à envoyer des feuilles individuellemnt par macro avec cette procédure :
Sub essaienvoiluc()
'
' feuilles_versdistricts Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+E
'
Dim Dest As String, Sujet As String
Sheets("AR").Select
ActiveSheet.Copy
Dest = "luc@crouic5webserver.com"
Sujet = "Fichier CTOL"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub
Ca fonctionne très bien et je peux envoyer autant de feuilles individuelles d'un classeur de cette fçon en repétant la procédure, cependant, j'aimerais pouvoir, en plus de pouvoir mettre un message dans le corps du mail pour chacune des fzeuilles envoyée et ça je n'y suis pas encore parvenu
Bjrs à tous !!! j'ai une feuille excel qui comprends des informations résultant de macros (bon de commande) et je voudrais envoyer directement cette feuille par e-mail à mon fournisseur.
On peut m'aider a réaliser cette macro ?
Merci d'avance !
Moi, j'arrive sans problèmes à envoyer des feuilles individuellemnt par macro avec cette procédure : Sub essaienvoiluc() ' ' feuilles_versdistricts Macro ' ' Touche de raccourci du clavier: Ctrl+Shift+E ' Dim Dest As String, Sujet As String Sheets("AR").Select ActiveSheet.Copy Dest = "" Sujet = "Fichier CTOL" ActiveWorkbook.SendMail Dest, Sujet, True Application.DisplayAlerts = False ActiveWorkbook.Close End Sub
Ca fonctionne très bien et je peux envoyer autant de feuilles individuelles d'un classeur de cette fçon en repétant la procédure, cependant, j'aimerais pouvoir, en plus de pouvoir mettre un message dans le corps du mail pour chacune des fzeuilles envoyée et ça je n'y suis pas encore parvenu
