Discussion :

[padada4]

Salut,

J'ai un problème très particulier que je n'arrive pas à résoudre et c'est un vrai casse-tête pour moi

Je dispose d'une feuille excel composée de 16 graphiques (tous nommés), et je cherche à exporter tous ces graphiques vers un power point via un code VBA.

le problème: les exports marchent une fois sur deux. Et ce n'est pas forcément sur le même graphique que le problème a lieu. Un coup j'aurai un power point avec tous mes graphiques un autre j'en aurai seulement 2 ou 3.
C'est plus précisément, l’exécution de cette ligne qui pose problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects("sexe").Copy

où "sexe" est le nom du graphique. L'erreur affichée lors de l'execution du code est : "erreur d'execution 1004. erreur definie par l'application ou par l'objet". Si j'exécute le code pas à pas, il me faut cliquer avec la souris sur n'importe quelle cellule de la feuille pour que ça marche.

PS : mon problème est aussi décrit ici : http://www.mrexcel.com/forum/excel-q...owerpoint.html Malheureusement, pas de solution trouvée

Voici le code en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub ModifierPresentationExistante()
Dim date_jour As String
 
 
date_jour = InputBox("Nom du fichier")
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\Users\document\excel\presentation.pptx")
 
 Worksheets("Resultat").Activate
 
With PptDoc
    'Sexe
    Worksheets("Resultat").Activate
    ActiveSheet.ChartObjects("sexe").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(2).Shapes.PasteSpecial ppPasteMetafilePicture
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)
        '.Name = "monTableau" 'Renomme l'objet collé
        .Left = 85 'position horizontale dans le slide
        .Top = 235 'position verticale dans le slide
        .Height = 225 'hauteur
        .Width = 650 'largeur
    End With
 
    'age
    Worksheets("Resultat").Activate
    ActiveSheet.ChartObjects("age").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(3).Shapes.PasteSpecial ppPasteMetafilePicture
 
    With .Slides(3).Shapes(.Slides(3).Shapes.Count)
        '.Name = "monTableau" 'Renomme l'objet collé
        .Left = 325 'position horizontale dans le slide
        .Top = 220 'position verticale dans le slide
        .Height = 300 'hauteur
        .Width = 400 'largeur
    End With
 
End With
PptDoc.SaveAs Filename:="C:\Users\document\excel\presentation_" & date_jour & ".pptx"
 
 
'PptDoc.Close
'PptApp.Quit
 
End Sub

[eric4459]

Bonjour,
Je n'ai pas étudié ton code de A à Z ni essayé de le tester, mais il y a quelques chose qui m'a sauté aux yeux.
Tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With PptDoc
    'Sexe
    Worksheets("Resultat").Activate
    ActiveSheet.ChartObjects("sexe").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(10).Shapes.PasteSpecial ppPasteMetafilePicture
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 'age
    Worksheets("Resultat").Activate
    ActiveSheet.ChartObjects("age").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(17).Shapes.PasteSpecial ppPasteMetafilePicture
 
    With .Slides(17).Shapes(.Slides(17).Shapes.Count)

On voit que dans le second cas tu fais référence au même Slide, le 17, pourquoi ne le fais-tu pas dans le premier cas?
Si tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.Slides(10).Shapes.PasteSpecial ppPasteMetafilePicture
 
    With .Slides(10).Shapes(.Slides(10).Shapes.Count)

Est-ce que cela résout ton problème?

Eric

[padada4]

Non non, petite erreur de copier-coller
je rectifie

[Gado2600]

Bonjour,

J'ai déjà rencontré ce type de problème et pour le "résoudre", j'ai bricolé un truc qui consiste à mettre la nouvelle image dans une variable lors du coller.
Si tu n'as pas réussi à la coller, tu relances la partie copier-coller.
En gros, avec un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
i = 0
tant que i<3
'Ais-je copier-coller ?
'Oui : i = 3
Non : i = i +1
Fin tant que

J'ai été tranquille avec ça.

Cordialement,

[padada4]

Merci.

J'ai eu du mal à comprendre mais la c'est bon. Je vais le tester demain.

[clementmarcotte]

Bonjour,

Salut,

J'ai un problème très particulier que je n'arrive pas à résoudre et c'est un vrai casse-tête pour moi

C'est plus précisément, l’exécution de cette ligne qui pose problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects("sexe").Copy

où "sexe" est le nom du graphique.

Je pense que tu devrais revoir ton code, parce que l'impression que j'en tire, c'est que VBA se mêle dans ses pinceaux.

En prenant une section de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ModifierPresentationExistante()
 
With PptDoc
    'Sexe
    Worksheets("Resultat").Activate
    ActiveSheet.ChartObjects("sexe").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(2).Shapes.PasteSpecial ppPasteMetafilePicture
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)
        '.Name = "monTableau" 'Renomme l'objet collé
        .Left = 85 'position horizontale dans le slide
        .Top = 235 'position verticale dans le slide
        .Height = 225 'hauteur
        .Width = 650 'largeur
    End With
 
  End Sub

Tu commences ton bloc With en disant que tu utilises un Objet PowerPoint, puis tu lui mets dans les pattes, deux lignes portant sur un objet Excel. Je ne suis pas surpris que cela plante. Je n'ai pas de classeur avec une feuille pleine de graphiques sous la main, mais à première vue, et dans les très grandes lignes, ton code devrait ressembler à ce modèle. En passant, tu n'a pas besoin d'activer la feuille pour jouer dedans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
sub GraphiquesVersPowerPoint()
   Set PptApp = CreateObject("Powerpoint.Application")
   PptApp.Visible = True
   Set PptDoc = PptApp.Presentations.Open("C:\Users\document\excel\presentation.pptx")
 
   for each Ungraphique in Sheets("Feuil1").chartobjects
      'Au pire, si tu n'as pas besoin de tous les graphiques de la feuille
      'tu peux lui faire itérer un tableau de noms
      'ou juste vérifier le nom avant de copier
      ungraphique.copy
      'ou
      'ungraphique.copypicture
      'pour avoir une image
      With PptDoc
       'Effectue un collage dans la 2eme diapositive
          .Slides(2).Shapes.PasteSpecial ppPasteMetafilePicture
 
          With .Slides(2).Shapes(.Slides(2).Shapes.Count)
                '.Name = "monTableau" 'Renomme l'objet collé
                .Left = 85 'position horizontale dans le slide
                .Top = 235 'position verticale dans le slide
                .Height = 225 'hauteur
                .Width = 650 'largeur
         End With
     end with
   next
end sub

[kiki29]

Salut, à consulter