Récupération de graphes d'un classeur fermé [Résolu]

[usul3]

Bonjour le forum,

Je voudrais récupérer les graphes d'un Fichier excel fermé dans mon classeur actif. Je demande donc à mon programme d'ouvrir le classeur, de copier les feuilles contenant les graphes, de les coller dans des nouvelles feuilles de mon classeur actif. Jusqu'à là tout va bien, par contre lorsque je ferme le fichier excel d'origine, je perds les données des graphes ainsi que leur mise en forme.

Je conçois bien que les données des graphes sont liées au fichier d'origine mais ne peut-on pas copier une "image" des graphes, au pire des cas ?


Merci pour vos reponse.

[mercatog]

Bonjour
Il est possible de copier le graphique en tant qu'image à l'aide de méthode CopyPicture
Exemple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Chemin As String, Fichier As String
Dim Wbk As Workbook
 
Application.ScreenUpdating = False
Chemin = "C:\Users\user\Desktop\"                          'à adapter
Fichier = "EtatsRecap_2010_2011.xls"                       'à adapter
'On ouvre le fichier contenant le graphique à copier
Set Wbk = Workbooks.Open(Chemin & Fichier)
'Copy le graphique nommé Graphique 1 de Feuil1 du classeur qui vient d'être ouvert
Wbk.Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.CopyPicture
'Colle le graphique copie dans Feuil2 en tant qu'image
ThisWorkbook.Sheets("Feuil2").Paste
'On ferme le fichier
Wbk.Close False
Set Wbk = Nothing

[usul3]

Ca marche très bien. Merci bien pour le code avec les explications

[usul3]

Re bonjour,

Je reviens encore vers le forum car on me demande d'avoir des vrais graphes avec des points qui pointent quelque part au lien d'une image.
J'ai réussi a copier les 4 premiers graphes sur 20, a partir du 5eme je ne vois plus de courbes dans mes graphes.

J'ai ce message: Excel ne peut pas terminer cette tache avec les ressources disponibles. Selectionner moins de donnees ou fermez des applications.

J'ai un peu chercher et l'on me parle de niveau d'indirection... Quelqu'un pourrait il m'aider ? Svp