bonjour à tous,
j'ai fait le tour des forums existants et il m'est impossible de trouver une réponse à ma question.
en effet, j'ai mis en place un système d'envoi de planning automatique par mail.
le code fonctionne très bien, cependant je me suis rendu compte que les mobiles ne pouvaient pas voir le tableau, ce qui donnait une suite de caractères sans aucun sens...
je suis donc parti dans l'optique de transformer le tableau en jpg. quelle mauvaise idée!!!!
en effet, j'ai trouver plusieurs moyen d'importer des image depuis l'ordinateur, de transformé mon tableau en image, mais impossible de trouver un moyen pour simplement coller mon presse papier dans le corps pour envoyé l'image.
je n'ai trouvé qu'un forum proposant cela en exportant puis réimportant avec une complexité qui me dépasse l'image copiée.
s'il vous plaît, dites moi qu'il existe un autre moyen
.
voici quelques "prototypes" pour que vous vous rendiez compte de mon problème:
celui ci etait la version avec tableau
Code :
- Sub envoie_mail()
- ActiveCell.Range("A1:P32" ).Select
- ActiveWorkbook.EnvelopeVisible = True
- With ActiveSheet.MailEnvelope
- .Introduction = "bonjour , ci joint le planning pour la semaine du " & Date
- .Item.To = "exemple@gmail.com"
- .Item.Subject = "planning semaine du" & Date
- .Item.Send
- End With
- End Sub
|
ici, j'ai essayer de mettre l'image dans une autre feuille pour le récupérer ensuite:
Code :
- Sub envoie_mail()
- ActiveCell.Range("A1:P32" ).Select
- Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
- Sheets("Feuil1" ).Select
- ActiveSheet.Paste
- Selection.Name = "planning"
- ActiveSheet.Shapes.Range(Array("planning" )).Select
- ActiveWorkbook.EnvelopeVisible = True
- With ActiveSheet.MailEnvelope
- .Introduction = "bonjour , ci joint le planning pour la semaine du" & Date
- .Item.To = "exemple@gmail.com"
- .Item.Subject = "le sujet"
- .Item.Send
- End With
- Selection.Delete
- End Sub
|
enfin, j'ai essayer d'exporter puis de réimporter l'image, cependant, ce code créer un diagramme en barre avec des valeurs qui me semblent à moitié aléatoires:
Code :
- Sub envoie_mail()
- Set OutApp = CreateObject("Outlook.Application" )
- Set OutMail = OutApp.CreateItem(0)
-
- Fname = ThisWorkbook.Path & "\Claims.jpg"
- ActiveCell.Range("A1:P32" ).Select
- Selection.CopyPicture xlScreen, xlBitmap
-
- Set oCht = Charts.Add
-
- With oCht
- .Paste
- .Export Filename:=Fname, Filtername:="JPG"
- End With
-
- On Error Resume Next
- With OutMail
- .To = "exemple@gmail.com"
- .Subject = "Le sujet"
- .Attachments.Add Fname
- .HTMLBody = "<html><p>Summary of Claim Status.</p>" & _
- "<img src=""cid:Claims.jpg"">"
- .Display
- .Send
- End With
-
- Kill Fname
- For Each AChart In ActiveWorkbook.Charts
- AChart.Delete
- Next
- End Sub
|
Message édité par inobody le 17-10-2019 à 08:57:33