Exporter graphique dans nouveau classeur

[ikarim]

Bonjour,

ce que j'aimerais faire c'est exporter (en copier coller) des graphiques d'un classeur excel dans un AUTRE classeur qui existe déja.
Ce que j'arrive a faire c'est exporter ces graphes mais en fichier .gif (mais ca ne m'intéresse pas)

Merci!!!
🙂

 

[criscris11]

Re : Exporter graphique dans nouveau classeur

Bonjour Ikarim,
Chez moi pas de problème : clic droit sur le graph, copier et coller dans un autre classeur.
Reviens nous dire si ce n'est pas ça que tu cherches à faire.
Bonne journée.

 

[ikarim]

Re : Exporter graphique dans nouveau classeur

désolé j'ai oublié de dire que j'aimerais l'automatiser et donc l'avoir en VBA. 🙄

 

[criscris11]

Re : Exporter graphique dans nouveau classeur

Re,
Pourrais-tu être plus précis : est-ce toujours le même graph à copier dans le même classeur ou cela varie t'il ?

 

[ikarim]

Re : Exporter graphique dans nouveau classeur

j'aurais normalement 2 graphes dans un onglet. Et le document excel dans lequel se trouvent ces fichiers va changer régulièrement (a peut près toutes les semaines), mais ils auront la même forme (seule les valeurs changeront).

 

[criscris11]

Re : Exporter graphique dans nouveau classeur

Re,
Voici un début de code à adapter à tes besoins :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/07/2008 par LSD
'

'
    ActiveSheet.DrawingObjects.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
End Sub

Dis-nous ce que tu en penses.

 

[criscris11]

Re : Exporter graphique dans nouveau classeur

Pour l'instant, le code copie les objets dans un nouveau classeur. Reste à savoir si quand tu vas lancer la macro, est ce que le classeur de destination est déjà ouvert ou pas et où il se situe (en espérant qu'il soit toujours au même endroit).
Tiens-moi courant.

 

[ikarim]

Re : Exporter graphique dans nouveau classeur

en fait je veux que la macro soit le classeur ou je souhaite importer les graphes. est ce que je peux faire ce collage sans ouvrir le premier classeur ou se situent les graphes en question. et quelle serait la méthode?
Merci.

 

[criscris11]

Re : Exporter graphique dans nouveau classeur

Re,
Le code à est à mettre dans le classeur de destination (dans mon exemple classeur2).
Attention à mettre le bon chemin du classeur1 (toujours dans mon exemple) : j'ai travaillé à partir du bureau.
Testes et dis-moi.

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/07/2008 par LSD
'

'
    ChDir "C:\Documents and Settings\christophe\Bureau"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\christophe\Bureau\classeur1.xls"
    ActiveSheet.DrawingObjects.Select
    Selection.Copy
    Windows("classeur2.xls").Activate
    ActiveSheet.Paste
    Windows("classeur1.xls").Activate
    ActiveWindow.Close
End Sub

 

[ikarim]

Re : Exporter graphique dans nouveau classeur

merci ca marche. mais maintenant je dois récupérer le nom des graphes collés dans le nouveau classeur excel pour pouvoir les modifier.

 

[criscris11]

Re : Exporter graphique dans nouveau classeur

Re,
Je ne comprends pas très bien pourquoi tu as besoin de renommer les graphiques afin de pouvoir les modifier : pourrais-tu être un peu plus précis ?
En attendant, bonne soirée.