Ajouter un slide dans un Powerpoint avec Vba et y insérer un graphique situé dans un doc Excel

Bonjour,

J'ai un soucis dans mon code Vba. Je travaille sur une macro Excel. Je veux ajouter un slide à un powerpoint déja existant. Le document Excel contient déja une macro me générant ce powerpoint.
J'essaye donc de trouver le code pour ajouter ce slide et y insérer un graphique se trouvant dans la feuille "Evolution" de ce document excel,
mais impossible :s..

Quelqu'un aurait-il une solution?

Thanks :)

http://www.developpez.net/forums/d15...werpoint-pptm/

Rebonjour,

Merci de m'avoir répondu mais ça ne marche toujours pas.

J'ai essayé avec 3 codes différents mais ça ne marche pas. Il y a une erreur ou alors la macro ne se lance meme pas j'ai l'impression :

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

'ThisWorkbook.Sheets("Evolution").Activate 'active la feuille Evolution 'Dim myShapeRange As PowerPoint.Shape 'Image ... 'myShapeRange.CopyPicture 'Copie de l'image 'countShapes = ppt.Presentations(fileName).Slides(i).Shapes.count 'ppt.Presentations(fileName).Slides(8).Shapes.PasteSpecial (ppPasteEnhancedMetafile) 'colle au forma spécial 'countShapes = ppt.Presentations(fileName).Slides(i).Shapes.count       '--- Ajoute un nouveau slide et le positionner en 2eme position Set Diapo = ppt.Presentations(fileName).Slides.Add(Index:=9, Layout:=ppLayoutBlank)   ThisWorkbook.Sheets("Evolution").Select ActiveSheet.Unprotect ActiveSheet.ChartObjects("Graphique 8").Activate ThisWorkbook.Sheets("Evolution").ChartObjects("Graphique 8").Copy ActiveChart.ChartArea.Copy 'Et on le colle dans la première diapositive de la présentation : ppt.Presentations(fileName).Slides(9).Shapes.Paste           ThisWorkbook.Sheets("Evolution").Unprotect ' Copie du graphique Sheets("Accueil").ChartObjects("Graphique 8").ChartArea.Copy Dim graphique As Chart Set graphique = Sheets("Evolution").ChartObjects(1).Chart Sheets("Accueil").ChartObjects(1).ChartArea.Copy graphique.ChartArea.Copy ppt.Presentations(fileName).Slides(1).Shapes.Paste

---

Merci d'avance :)

Citation:

---

Envoyé par ryryyz

J'ai essayé avec 3 codes différents mais ça ne marche pas.

---

Quelques questions dont la réponse ma semble évidente mais on ne sait jamais...
As-tu remarqué que dans le premier code tout est mis en commentaire ?
As-tu adapté ces codes aux noms des objets de ton cas (nom d'onglet, nom de graphique, indices, etc.) ?

Citation:

---

Il y a une erreur

---

Quelle erreur ? Sur quelle ligne ?

hahaha oui c'était fait exprès car je testais plusieurs bout de code.
Je pense aussi que mon code est adapté à mon sujet.

J'ai réussi à insérer un 9ème slide comme voulu avec la commande suivante: ppt.Presentations(fileName).Slides.Add 9, 1

Mais je n'arrive toujours pas à prendre un graphique contenu dans une feuille de mon document excel, pour le coller dans ce nouveau slide.

Avez-vous une idée de la solution svp? Merci :)

Citation:

---

Envoyé par ryryyz

Je pense aussi que mon code est adapté à mon sujet.

---

Quand je vois que tu as mis comme code

Code:

---

Sheets("Accueil").ChartObjects("Graphique 8").ChartArea.Copy

---

Je trouve quand même que c'est une étonnante coïncidence que tu ais le même nom d'onglet et de graphique que le demandeur vers qui j'ai proposé le lien... :weird:

j'ai bien remplacé "Accueil" par "Evolution" , mais j'ai gardé "graphique8".. Cela ne pose pas de probleme non?
Je ne sais pas quoi mettre à la place de "graphique8". C'est une courbe" sans nom "

au temps pour moi j'ai dis une sacré bétise! le nom est "graphique 2".. avez vous le code pour cela svp? Que dois je mettre après :

ppt.Presentations(fileName).Slides.Add 9, 1