Transfert de donnée entre une feuille Excel et une présentation PowerPoint

Bonjour,

J'ai déjà réussi à créer un certain nombre de macros VBA sous Excel mais je me sens complètement perdu pour Powerpoint (je n'arrive même pas à copier une diapo d'une présentation à l'autre...).

Je souhaite pouvoir automatiser la création de diapositives reprenant des infos placées dans un tableau d'une feuille excel. J'imagine utiliser une diapo comme modèle et créer une copie de cette diapo qui sera alors insérée dans ma présentation. Cette action sera répétée à chaque nouvelle ligne du tableau Excel.
Donc le processus est plutot simple mais je n'arrive pas à entièrement le coder :
1) une boucle do qui itère le compteur de ligne tant que la cellule activedu tableau de la feuille Excel n'est pas vide. (ça ok, facile)
Par exemple, la boucle Do inspecte ligne après ligne les cellules de la Colonnes A.

2) Copier la valeur de la cellule active en colonne A comme titre de la nouvelle diapo. (comment appele-t-on le titre d'une diapo avec VBA ?)

3) Insérer les valeurs des autres colonnes dans certaines cases d'un tableau présent dans la diapo (qui est une copie du modèle).
(on doit certainement pouvoir localiser une case de tableau présent dans une diapo mais comment..?)

4) Enfin, dans la nouvelle diapo, ajouter une image qui provient d'un répertoire du réseau et qui a le même nom que la valeur de la Cellule en colonne A pour la ligne active.
(bien sûr on doit pouvoir rétrécir cette image et placer l'un de ses coins à une coordonnée précise)

Pour le moment, j'ai seulement compris comment ouvrir une présentation à partir de VBA, en cherchant un peu partout... mais n'ayant pas trouver de tutoriel spécifiquement fait pour manipuler Powerpoint avec VBA, je me résigne à faire cette tâche à la pogne... (y a un demi millier de lignes... et le tableau s'édite tous les mois...)

Si vous pouvez m'aider, je vous en serai très très très reconnaissant.

Merci par avance !

Y aurait-il une âme sensible à mon tourment ?

Merci par avance.

Bonjour

Je n'ai jamais fait de VBA powerpoint mais en fouillant dans l'explorateur d'objets et l'aide en ligne depuis la fenêtre VBE :

Titre

Code:

---

1 2	mavariable = "Bonjour" ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text = mavariable

---

Tableau

Code:

---

1 2 3 4 5 6 7 8

With ActivePresentation.Slides(2).Shapes.Placeholders For j = 2 To .Count '2 pour éliminer le titre If .Item(j).HasTable Then .Item(j).Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = "Cell 1" .Item(j).Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = "Cell 2" End If Next End With

---

Image

Code:

---

1 2 3 4 5

chemin = "J:\IMAGES\Divers\" Iimage = "08.jpg" ActivePresentation.Slides(2).Shapes.AddPicture FileName:=chemin & Iimage, _ LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ Left:=50, Top:=250, Width:=320, Height:=240

---

Je n'ai pas cherché plus loin mais cela m'étonnerait qu'il n'y ait pas ressources sur le web...

Bonjour,

je rebondis sur ce message car il correspond a un probleme que j'ai, mais la solution donnee ne marche pas chez moi.

J'ai un fichier Pwp, avec un control textbox ( ajoute par l intermediaire de la boite a outil). J'ai nomme mon textbox TB1.

Je cherche a partir de VBA Excel a remplir ce textbox mais je n y arrive pas.

Quelqu un a-t-il pu trouve une solution?

Merci beaucoup ! C'est déjà un bon début !

Il reste encore l'action "copie d'une diapo d'une présentation et collage dela diapo dans une autre présentation" et ça devrait le faire pour que je m'en sorte.