copier graphiques d'un classeur à un autre

[jojo3008]

Bonjour,

voila j ai un petit soucis: je voudrais copier tous les graphiques d un classeur contenant 31 worksheets a un autre.
j ai revérifié ma procedure plusieurs fois mais pas moyen :
runtime error '9' : subscript out of range
en me surlignant cette ligne : Workbooks("Book1").Worksheets("PFS").Select
merci beaucoup pour votre temps!

Sub copychartsPFS()
Application.Calculation = xlManual
Dim Cht As ChartObject
Dim i As Byte
For i = 1 To 31
Workbooks("PFS_simplifie_v3.2.xls").Worksheets(i).Select
    For Each Cht In ActiveSheet.ChartObjects
    Cht.copy
    Workbooks("Book1.xls").Worksheets("PFS").Select
    ActiveSheet.Paste
    Next Cht
Next i
Application.Calculation = xlAutomatic
Application.CutCopyMode = False
End Sub

 

[Guest]

Re : copier graphiques d'un classeur à un autre

Re,

Non la propriété WorkBook.Name est en lecture seule. Elle ne peut être changée qu'en enregistrant le classeur.

A+

 

[Guest]

Re : copier graphiques d'un classeur à un autre

Re,

Une solution possible. Transformer la macro de création du classeur en fonction qui renvoie une référence vers un nouveau classeur (peut importe son nom):

Function AddNewWorkbook() As Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Workbook
    Application.SheetsInNewWorkbook = 2
    Set xlBook = Workbooks.Add
    Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "Results"
    Set xlSheet = Nothing
    Set xlSheet = xlBook.Worksheets(2)
    xlSheet.Name = "PFS"
    Application.SheetsInNewWorkbook = 3
    AddNewWorkbook = xlBook
End Function

Utilisation:

Dim NouveauClasseur as WorkBook
NouveauClasseur=AddNewWorkbook()
If not NouveauClasseur is nothing then
   'J'utilise le nouveauClasseur
   Set [COLOR=blue][B]ShDest[/B][/COLOR] = NouveauClasseur.Worksheets("PFS")

end if

A+

 

[jojo3008]

Re : copier graphiques d'un classeur à un autre

merci hasco je pense faire ca

 

[tototiti2008]

Re : copier graphiques d'un classeur à un autre

Re,

il en crée 2 parce que le code demande d'en créer 2 :

    Set xlBook = Workbooks.Add
    [COLOR=red]Workbooks.Add[/COLOR]

La partie en rouge est en trop

 

[Guest]

Re : copier graphiques d'un classeur à un autre

Hello Tototiti,

Heureux celui qui a des yeux qui voient🙂🙂🙂
J'avais zappé l'instruction🙄
A+

 

[jojo3008]

Re : copier graphiques d'un classeur à un autre

grave moi aussi j avais zappé, merci bcp ! c est ca de faire 10H de VBA par jour, on fini par ne plus voir l évidence 😀

 

[tototiti2008]

Re : copier graphiques d'un classeur à un autre

Re,

Heureux celui qui a des yeux qui voient🙂🙂🙂

Pas de mérite, tu as vu la taille de mes verres sur mon avatar ? 😉

 

[jojo3008]

Re : copier graphiques d'un classeur à un autre

re à tous, ayant bien avancé dans mon travail, je vais vous donner des elements qui risqueraient eventuellement d aider ceux qui liront ce poste.
- d abord la je me suis mis dans la copie de graphique mais si on veut couper les liens source il faut copier les graphes en tant qu images.
- ne pas oublier les classiques application.calculation=xlmanual etc ... pour gain de temps de copie.
-ensuite pour ceux que ca interesse j ai fait une macro qui me classe mes graphiques dans une feuille les uns en dessous des autres (tres pratique quand yen a une 60aine)

voila bonne journee a tous