VBA - Excel vers PowerPoint

Bonjour à tous,

J'ai réussi à faire un fichier Excel grâce à plusieurs sujets lancés sur le forum.

Maintenant, je souhaiterais automatiser certaines taches.

J'ai repris les codes de :

http://excel.developpez.com/faq/?page=Powerpoint

Afin de : reprendre un graphique et l'insérer dans une présentation PowerPoint, et j'ai repris une deuxième partie de code, afin de copier un tableau et l'insérer dans la même présentation.

La première partie fonctionne, mais dès que je rajoute le deuxième code (ligne 46 à 57), cela bug sur :

Code:

---

.Slides(2).Shapes.Paste

---

Quelle partie dois-je revoir ?

Et l'objectif final du code et là où je souhaite votre aide, serait d'utiliser la liste déroulante se trouvant dans l'onglet "Récapitulatif", dans la cellule A2, afin de faire défiler ligne par ligne, et créer un fichier PowerPoint pour chaque ligne.

Est-ce réalisable ?

Le fichier est attaché, et compressé, car je n'ai pas pu uploader le fichier .xlsm

Merci pour votre aide sur ce sujet épineux à mes yeux.

J'ai revu le code de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'copie la plage de cellules dans la feuille Excel active Recap.Range("A4:M7").Copy 'Effectue un collage dans la 2eme diapositive .Slides(2).Shapes().PasteSpecial ppPasteEnhancedMetafile   With .Slides(2).Shapes(.Slides(2).Shapes.Count) .Name = "monTableau" 'Renomme l'objet collé .Left = 50 'position horizontale dans le slide .Top = 400 'position verticale dans le slide .Height = 300 'hauteur .Width = 600 'largeur End With

---

Ca fonctionne, mais l'image générée du tableau ne s'étend pas, et reste petite sur la présentation.

Y a-t-il moyen de parer à cela ?