Je ne peux malheureusement pas inclure de fichier puisque c'est pour le travail ...
En fait j'ai une feuille excel de la sorte :
http://www.google.fr/imgres?imgurl=https%3A%2F%2Faz623152.vo.msecnd.net%2Flibrary%2Fimages%2Fsupport%2Fkbgraphics%2Fpublic%2Ffr%2Fpctalk%2F954219%2F00_01.png&imgrefurl=https%3A%2F%2Fsupport.microsoft.com%2Fkb%2F954219%2Ffr&h=350&w=420&tbnid=fO2fhjD1K7b5KM%3A&zoom=1&docid=37kbr-sQ1pD4lM&ei=4KRZVZvzOYKuUdTRgdAJ&tbm=isch&iact=rc&uact=3&dur=404&page=4&start=54&ndsp=19&ved=0CPABEK0DMEM
Et je voudrais selectionner le graphique uniquement, et pas les données du dessus.
Pour ce faire, j'ai le code suivant mais il imprime les données, je ne les voudrais pas :
ActiveSheet.ChartObjects("Graphique 3").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "titre"
End With
With ActiveChart.Parent
.Height = 400
.Width = 600
.Top = 100
.Left = 150
End With
Dim sNomF As String
sNomF = "Chemin"
If isEmpty(ActiveSheet.UsedRange Then Exit Else
Application.ScreenUpdating = False
Sheets("TABLEAU").Range("J2").Select
ActiveSheet.ExportAsFixedFormat:=xlTypePDF, Filename:=sNomF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.ScreenUpdatinf = True
Merci de votre aide