Forum
|
|
|
Forum
|
09/11/2004, 15h44
|
#1 (permalink) |
|
Guest
Messages: n/a
|
envoi d'un tableau excel par mail
Bonjour a tous,
Je suis chargé par mon chef d'envoyer un tableau excel par mail... En fait , g un fichier excel comprenant 5 fiche, la 4 eme fiche compren un tableau et il faudrait l'envoyer en corps de mail... G essayé beaucoup de macros trouvé sur le site mais aucune ne marche, je possede office 2000 (en entreprise) Une ame charitable aurait elle la solution??? Merci d'avance... Olivier |
| ANNONCES | |||
|
|
|
09/11/2004, 15h53
|
#2 (permalink) |
|
Guest
Messages: n/a
|
Re: envoi d'un tableau excel par mail
Salut,
Je sais que tu peut le faire avec la version XP ou 2003, tu envoie en corp de mail le contenu de la feuille active mais sous 2000 je ne sais pas comment faire. Un copier coller sous word et tu remet le tableau word en corp de message à essayer. @+ |
|
09/11/2004, 16h17
|
#4 (permalink) |
|
Guest
Messages: n/a
|
Re: envoi d'un tableau excel par mail
Merci pour vos réponse,
Je suis sous win 2000, on dirait que les fonctionnalité sont en effet + limitées... J'ai bien essayé le copier coller du tableau dans mon message mais c le caffouilli... ;( Vous ne savez pas si une macro pourrait : - soit envoyer directement mon tableau dans un mail ou -envoyer le tableau sous word et ensuite le ficheir word se réeinsere dans un mail... (je suis difficile...  )Merci encore Olivier |
|
09/11/2004, 18h34
|
#5 (permalink) |
|
Guest
Messages: n/a
|
Re: envoi d'un tableau excel par mail
bonjour Olivier , Chris et Jeannot
l'exemple ci-dessous permet d'inserer un tableau ( plage A1:B5 ) de la feuille active , dans le corps du message d'un mail Outlook Sub PlageDeCellulesDansCorpsDuMessage() testé avec XP Send using the Pickup directory on the IIS server. adapté de : http://support.microsoft.com/default.aspx?kbid=286430 Dim iMsg As Object, iConf As Object Dim strHTML As String Dim i As Byte, j As Byte Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") strHTML = "" strHTML = strHTML & "<HEAD>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>" strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>" strHTML = strHTML & "<TABLE BORDER>" For i = 1 To 5 'nombre de lignes (exemple plage A1:B5) strHTML = strHTML & "<TR halign='middle'nowrap>" For j = 1 To 2 'nombre de colonnes strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _ & Cells(i, j) & "</FONT></TD>" Next j strHTML = strHTML & "</TR>" Next i strHTML = strHTML & "</TABLE>" strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName strHTML = strHTML & "</BODY>" strHTML = strHTML & "" With iMsg Set .Configuration = iConf .To = "bugbunny@club-internet.fr" 'renvoie une erreursi l'adresse est non valide .From = "youralias@yourdomain.com" .Subject = "Test Envoi Tableau par mail" .HTMLBody = strHTML .Send End With End Sub Sinon en suivant le lien ci dessous tu trouveras quelques exemples pour transferer des tableaux Excel vers Word et les redimensionner , ainsi qu'un chapiter sur le pilotage d'Outlook , pour envoyer les fichiers par mail . http://www.excel-downloads.com/html/...MichelXldsuite Remarque Il faut cliquer une deuxieme fois sur le lien , si un mesage d'erreur s'affiche Bonne soiree MichelXld |
|
09/11/2004, 18h49
|
#6 (permalink) |
|
Guest
Messages: n/a
|
Re: envoi d'un tableau excel par mail
Rebonsoir
Oouuppss...Je viens de m’apercevoir que certaines apostrophes « ‘ » ne sont pas très bien passées lors du copier/coller , dans le permier message…. la nouvelle version de la macro : Sub PlageDeCellulesDansCorpsDuMessage() 'testé avec XP 'Send using the Pickup directory on the IIS server. 'adapté de : http://support.microsoft.com/default.aspx?kbid=286430 Dim iMsg As Object, iConf As Object Dim strHTML As String Dim i As Byte, j As Byte Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") strHTML = "" strHTML = strHTML & "<HEAD>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>" strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>" strHTML = strHTML & "<TABLE BORDER>" For i = 1 To 5 'nombre de lignes (exemple plage A1:B5) strHTML = strHTML & "<TR halign='middle'nowrap>" For j = 1 To 2 'nombre de colonnes strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _ & Cells(i, j) & "</FONT></TD>" Next j strHTML = strHTML & "</TR>" Next i strHTML = strHTML & "</TABLE>" strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName strHTML = strHTML & "</BODY>" strHTML = strHTML & "" With iMsg Set .Configuration = iConf .To = "michelxld@yahoo.fr" 'renvoie une erreur si l'adresse est non valide '.From = "youralias@yourdomain.com" .Subject = "Test Envoi Tableau par mail" .HTMLBody = strHTML .Send End With End Sub Bonne soirée MichelXld |
| Liens sociaux |
| Outils de la discussion | |
|
|
