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
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