Graphique sans la valeur 0 puis envoi par mail au formaj JPG

Bonsoir,

Voici le projet qui se concrétise grâce à votre aide, mais j’ai encore besoin de vous.

Voici mon problème sur graphique de la longueur afin qu'il puisse aller directement de 5.3 à 5.8 et pour le 100m comme vous pouvez le voir celui-ci prend toutes les valeurs y compris des compétitions qui pour exemple ne se sont pas déroulées du coup petite courbe. (j’ai utilisé dans sélectionner la source de données

a) cellules masquées et cellules vides

b) relier les points de données par une courbe) mais comme les données d’un graphique sont la somme d’autres cellules, le problème est peut-être là !!!

Et le second problème 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

Mais je voudrai a cliquant sur B24 que le tout soit envoyer par mail au format JPG pour l’instant sur la feuille A mais il y aura par la suite 50 feuilles

Par contre je ne peux envoyer l'original il dépasse les 1.80mo donc j'ai repris l'idée avec 2 onglets + liaison de formule pour le 100m et la longueur

Voilà pour ce qui est des problèmes à surmonter pour avancer.

Merci d’avance pour votre aide

Bonne soirée

Bonjour,

remplacer les formules de cette ligne,

Feuil2!A6

par

=SI(Feuil2!A6<>0;Feuil2!A6;#N/A)

les valeurs #N/A ne sont pas pris en compte sur le graph.

re..

pour enregistrer la plage de cellule en image (dans le même répertoire avec le nom "rapport - 2018-05-28.png"

à tester,

Sub envoiPlageCellules_Excel()
fichier = ThisWorkbook.Path & "\rapport - " & Date & ".png"
ActiveSheet.Range("A1:B1").Select ' la plage de cellules à envoyer

Call 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

la formule est OKpour le graph.

par contre rien ne se produit lorsque je clic en B24 (mail modifié également dans la macro) pour envoyer effectivement il fait bien une image dans l'onglet Temp se qui est déjà pas mal mais il n'envoi rien.

Merci tout de même pour votre aide

Bonne journée

re..

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