[XL-2007] Exporter des feuilles graphiques [Résolu]

[Arapaima]

Bonjour,
Je cherche dans cette macro à repérer toutes les feuilles commençant par "Graph". Je cherche à les repérer toutes (leur nombre peut varier) et à les exporter vers un nouveau classeur.
Ce classeur doit donc s'ouvrir avec le nombre de feuilles égal au nombre d'éléments graphiques trouvés ...
Ensuite j'enregistre ce nouveau classeur dans le même répertoire que mon classeur initial.
Pouvez-vous me dire ce qui ne va pas dans mon code ?
Merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub exporterGraphiques()
Dim c1                        As Workbook
Dim c2                        As Workbook
Dim sh                        As Worksheet
'Dim compt                   As integer
 
 
Workbooks.Add
Set c2 = ActiveWorkbook
Set c1 = ThisWorkbook
 
c1.Activate
 
For Each sh In Sheets
    c1.Activate
    If Left(sh.Name, 5) = "Graph" Then
 
'compt = compt + 1
sh.Activate
ActiveSheet.Copy
c2.Activate
ActiveSheet.Paste
 
   Else
     sh.Select
    'rien
    End If
 
Next
 
c2.SaveAs c1.Path & "\Résulats" & Format(Now, "yyyymmddhhnn") & ".xlsx"
c2.Close
Set c2 = Nothing
 
End Sub

[Daniel.C]

Bonjour,

Tu ne peux pas utiliser "Worksheet" pour les feuilles graphiques; ce sont des feuilles de calcul. Utilise "Chart" et "Charts" :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub exporterGraphiques()
Dim c1                        As Workbook
Dim c2                        As Workbook
Dim sh                        As Chart
'Dim compt                   As integer
 
 
Workbooks.Add
Set c2 = ActiveWorkbook
Set c1 = ThisWorkbook
 
c1.Activate
 
For Each sh In Charts
    c1.Activate
    If Left(sh.Name, 5) = "Graph" Then
 
'compt = compt + 1
sh.Activate
ActiveSheet.Copy
c2.Activate
ActiveSheet.Paste
 
   Else
     sh.Select
    'rien
    End If
 
Next
 
c2.SaveAs c1.Path & "\Résulats" & Format(Now, "yyyymmddhhnn") & ".xlsx"
c2.Close
Set c2 = Nothing
 
End Sub

[Arapaima]

Merci,

Mais il me semble que le problème vient plutot du fait que je n 'arrive pas à exporter vers un autre classeur;
Mon code reconnait les feuilles (sheet ou chart) dont le nom commence par "graph", mais ne les exporte pas.

Code :

1
2
 
sh.copy

Ne marche pas ...

Autre question: Comment appeler une feuille par son nom (Name) et non pas par son nom Name sans parenthese ... (l'équivalent de sheet.name avec (Name) )

[Daniel.C]

Le code suivant est testé sauf la partie enregistrement du classeur résultat :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub exporterGraphiques()
Dim c1                        As Workbook
Dim c2                        As Workbook
Dim sh                        As Chart
'Dim compt                   As integer
 
 
Workbooks.Add 1
Set c2 = ActiveWorkbook
Set c1 = ThisWorkbook
 
c1.Activate
 
For Each sh In Charts
    c1.Activate
    If Left(sh.Name, 5) = "Graph" Then
 
    'compt = compt + 1
    sh.Copy before:=c2.Sheets(1)
End If
 
Next
 
c2.SaveAs c1.Path & "\Résulats" & Format(Now, "yyyymmddhhnn") & ".xlsx"
c2.Close
Set c2 = Nothing
 
End Sub

[Arapaima]

Parfait, ça marche.
Merci