Macro 2003 qui ne fonctionne pas sous 2010

[steph70]

Bonjour,

j'ai un souci avec une macro qui fonctionne bien sous 2003 mais qui me donne une erreur sous 2010.

Cette macro prend la partie ou il y a un graphe sur une page et la place dans un dossier sous la forme d'une image.

la macro originale est :
]

Sub test()
Dim Plage As Range

Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
                         Title:="Sélection de zone ", Default:="$I$1:$P$46", Type:=8)

Application.ScreenUpdating = False
  Workbooks.Add
    Plage.CopyPicture
      ActiveSheet.Paste

With ActiveSheet.ChartObjects.Add(0, 0, _
                    Selection.Width, Selection.Height).Chart
    .Paste
    .Export "C:\Documents and Settings\m.morot\Bureau\site\graphreleve.JPG", "JPG"
End With

ActiveWorkbook.Close False

End Sub

et a priori mon erreur est a cette ligne la :

With ActiveSheet.ChartObjects.Add(0, 0, _
                    Selection.Width, Selection.Height).Chart

Pouvez vous m'aider svp ?

Merci d'avance
Cordialement

 

[JCGL]

Re : Macro 2003 qui ne fonctionne pas sous 2010

Bonjour à tous,

Bienvenue sur XLD

Tu sembles avoir migré de XL 2003 vers XL 2010.
N'aurais-tu pas aussi changé d'OS ?

Modifie le chemin en (à adapter...) :

C:\Users\m.morot\Desktop\site\graphreleve.JPG

A+ à tous