Récupérer des graphes dans une synthèse

[ve-]

Bonjour à tous,

dans le cadre de mon boulot, je travaille sur des suivis de contrat de service entre entités et ce, chaque mois. Je remplis donc une feuille qui élabore des graphes de détail et des graphes de synthèse. J'ai également un excel de synthèse mensuelle. Ma macro vient donc prendre les graphes de synhtèse dans chaque feuille de chaque mois pour les copier dans l'excel de synthèse.
Le problème du coup, c'est qu'elle est à rallonge pour le mois de décembre...

voici un extrait pour 1 mois , mais ceci se répète pour les 12 mois... je voulais donc savoir si on peut raccourcir tout ça...

'Copier coller les graphes de janvier
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b7").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 136
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF2").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b10").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 228
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF3").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b13").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 320
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF4").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b16").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 412
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF5").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b19").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 629
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF6").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b22").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 721
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF7").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b30").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 813
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF8").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b33").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 905
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF9").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b36").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 998
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF10").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b39").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 1214
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF11").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b42").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 1307
End With

Merci à tous de me lire et de m'aider !!
au plaisir de vous lire
Excellement vôtre !

 

[tototiti2008]

Re : Récupérer des graphes dans une synthèse

Bonjour ve-,

un essai :

Dim i as long
For i = 1 to 11
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF" & i).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b" & 4 + (i*3)).Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 44 + (i*92)
End With
next i

 

[ve-]

Re : Récupérer des graphes dans une synthèse

Merci bien tototiti2008 !
Ca marche !!
Du coup, j'imagine qu'il est possible de faire de même avec les libellés :
Là où j'ai "NCSI ValOise 01J09.xls", peut-on faire évoluer le 01J09 en 02F09 (pour février) etc. jusqu'à décembre afin de ne pas répéter ta formulation 12 fois ???

Merci d'avance

Exellement vôtre

 

[tototiti2008]

Re : Récupérer des graphes dans une synthèse

Re,

Oui, ça doit être jouable.
si je comprend bien, c'est toujours la 1ère lettre du nom du mois pour tous les fichiers ? et je suppose que l'on copie le graph de janvier à février, puis de février à mars... etc... ou bien toujours à partir de janvier ?

 

[ve-]

Re : Récupérer des graphes dans une synthèse

Les libellés de mes fichiers ont tous la même strucure et :
- janvier se déverse dans la synthèse de janvier,
- janvier+ février se déversent dans la synthèse de février,
- janvier+février+mars se déversent dans la synthèse de mars, etc. :

"NCSI Département 01J09.xls" pour janvier qui se reporte dans "NCSI Département Synthèse 01J09.xls"

"NCSI Département 01J09.xls" pour janvier +
"NCSI Département 02F09. xls" pour février qui se reportent dans "NCSI Département Synthèse 02F09.xls"

etc. Je gère donc énormament de libellés de fichiers et je démultiplie donc 12 fois ton instruction dans la synthèse de décembre...

Merci de ton attention !

 

[tototiti2008]

Re : Récupérer des graphes dans une synthèse

Re,

euh, oui..., pas sûr d'avoir tout compris

en tout cas, si tu veux le nom du fichier en fonction du numéro du mois (1 à 12), ça devrait donner quelque chose comme ça :

Dim Mois As Long
Mois = 12
MsgBox "NCSI Département " & Format(Mois, "00") & UCase(Left(Format(DateSerial(2009, Mois, 1), "MMMM"), 1)) & "09.xls"

 

[ve-]

Re : Récupérer des graphes dans une synthèse

Je crois que tu as bien compris mon besoin !
J'essaie ça et je te tiens au courant. Merci bien pour le temps que tu y as passé et l'apport énorme pour moi !!
Bon we