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