envoi d'un tableau excel par mail

O

OLIVIER

Guest
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
 
C

Chris

Guest
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.

@+
 
O

OLIVIER

Guest
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
 
M

michel

Guest
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 .

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

Remarque
Il faut cliquer une deuxieme fois sur le lien , si un mesage d'erreur s'affiche


Bonne soiree
MichelXld
 
M

michel

Guest
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
 

Discussions similaires