Envoi par mail au formaj JPG ou PDF
Bonsoir,
j’ai utilisé une macro
Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:AG53").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour , veuillez trouver ci-dessous le tableau au format JPG. Cordialement" 'le texte
.Item.To = Range("B24").Value 'l'adresse
.Item.Subject = ""
.Item.Send
End With
End Sub
Je voudrai a cliquant sur B24 que le tout soit envoyer par mail au format JPGou PDF pour l’instant sur la feuille A mais il y aura par la suite 50 feuilles alors effectivement je cli et la boite mail s'ouvre mais rien
sabV m'a donné une astuce pour faire une image mais je n’arrive pas à combiner les 2
Voilà pour ce qui est des problèmes à surmonter pour avancer.
Merci d’avance pour votre aide
Bonne soirée
Bonjour,
avez vous essayer tous le code ?
pour appeler la macro envoiPlageCellules_Excel
vous pourriez mettre sur la page code le l'onglet "Feuil1"
la macro suivante,
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$24" Then envoiPlageCellules_Excel
End Sub
et le code suivant sur la même page ou dans un module,
Sub envoiPlageCellules_Excel()
fichier = ThisWorkbook.Path & "\rapport - " & Date & ".png"
ActiveSheet.Range("A1:B1").Select ' la plage de cellules à envoyer
Call Export_Shape ' appelle la macro Export_Shape
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour , veuillez trouver ci-attaché le tableau au format PNG. Cordialement" 'le texte
.Item.To = Range("B24").Value 'l'adresse
.Item.Subject = ""
For cp = .Item.Attachments.Count To 1 Step -1
.Item.Attachments(cp).Delete
Next cp
.Item.Attachments.Add (fichier)
.Item.Send
End With
Kill fichier
End Sub
Sub Export_Shape()
'enregistrer shape et graph en image
Set sh = ActiveSheet
Application.ScreenUpdating = False
ActiveSheet.Range("A1:AG53").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
' ce graph est utiliser comme réceptacle de l'image
Sheets("temp").ChartObjects("Graphique 1").Activate
ActiveChart.Paste
With Sheets("temp").ChartObjects(1).Chart
.Export Filename:=ThisWorkbook.Path & "\rapport - " & Date & ".png", filtername:="png"
End With
ActiveChart.Pictures(1).Delete
sh.Select
ActiveSheet.Range("A1:B1").Select
Application.ScreenUpdating = True
End Sub
bonjour
merci pour votre aide, mais cela ne fonctionne pas ou du moins je n'y parviens pas.
pas grave merci encore
bonne journée à vous