Importer graphique de classeur fermé

[Pierre31]

Bonjour à toutes et tous,

En VBA, comment peut-on à partir d'un classeur ouvert importer un graphique d'un autre classeur qui est fermé ?

D'avance merci pour vos réponses.

Cordialement

Pierre

 

[tototiti2008]

Re : Importer graphique de classeur fermé

Bonjour Pierre,

à priori, avec une macro qui ouvre le classeur, copie le graphique, le colle dans le classeur actif et referme le classeur....

 

[Pierre31]

Bonjour tototiti2008,

Merci pour ta réponse.

j' ai fini par trouver la solution, la voici si dessous, je l'ai un petit peu documenté.
Je lance la macro suivante à partir d'un bouton.

Private Sub CommandButton1_Click()


Application.DisplayAlerts = False

Workbooks.Open FileName:= _
"E:\DPR\MGR\LOM\GMAO\Budget\FG2009-9-Ligne221 C645.xls" 'Le fichier ou se trouve le graphique à copier
Sheets("Global").Activate 'La feuille sur laquelleest le graphique à copier
ActiveSheet.DrawingObjects.Select 'L'objet graphique à copier
Selection.Copy

ActiveWorkbook.Close 'Fermeture du fichier source

Sheets("GraphCC").Activate 'Activation de la feuille de destination du fichier ouvert

Range("A1").Activate

ActiveSheet.Paste 'La copie du graphique

'**** Et la suite que vous souhaitez donner ..............


End Sub

Cordialement

Pierre