Bonjour,
Je cherche a envoyer un Email directement d'excel, j ai trouve presque tout ce dont j ai besoin dans cette discussion:
https://www.excel-downloads.com/threads/envoi-dun-tableau-excel-par-mail.27531/
J utilise notment cette partie du code pour creer le corp du message:
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 & ""
Ma question est la suivante:
Dans mon fichier Excel de depart j ai des liens hypertext dans certaines cellules et il semble que cette methode ne gere pas cela. Y a t il un bout de code a rajouter pour que lors de la copie les liens soient pris en compte?
Merci pour votre aide
Regards
Alexandre Bessy
Je cherche a envoyer un Email directement d'excel, j ai trouve presque tout ce dont j ai besoin dans cette discussion:
https://www.excel-downloads.com/threads/envoi-dun-tableau-excel-par-mail.27531/
J utilise notment cette partie du code pour creer le corp du message:
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 & ""
Ma question est la suivante:
Dans mon fichier Excel de depart j ai des liens hypertext dans certaines cellules et il semble que cette methode ne gere pas cela. Y a t il un bout de code a rajouter pour que lors de la copie les liens soient pris en compte?
Merci pour votre aide
Regards
Alexandre Bessy
