Exporter cellule Excel dans un rectangle Powerpoint

Bonjour,
je souhaite exporter mes données excel dans un fichier powerpoint déjà préexistant.
L'idée est qu'il se remplisse au fur et à mesure que les cellules excel se remplissent.
J'arrive à exporter une cellule dans mon fichier mais elle se place automatiquement en haut à gauche et crée un nouveau rectangle.
Je n'arrive pas à placer le contenu de cette cellule (exemple C1 contient "oui") dans un rectangle préexistant. (le rectangle est nommé par Powerpoint "Rectangle 4")
Quelqu'un aurait-il une solution ??
je vous joins mon code en l'état.
merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub powerpointexportation()   Dim ppt As Object Dim Pres As Object Set ppt = CreateObject("PowerPoint.Application")   ppt.Visible = True Set Pres = ppt.Presentations.Open(Filename:="G:\z-Comm\YBR\base de données\bdd\fiche entreprise bdd test.ppt")   Sheets("base").Select Sheets("base").Cells(1, "c").Activate Sheets("base").Cells(1, "c").Copy   Pres.slides(1).Shapes.Paste   Pres.Save   ppt.Quit   End Sub

---

Bonjour

Une petite adaptation de ton code.

Remplace :

Code:

---

1 2 3 4 5 6

'Sheets("base").Select 'Sheets("base").Cells(1, "c").Activate 'Sheets("base").Cells(1, "c").Copy     'Pres.slides(1).Shapes.Paste

---

Par cette ligne

Code:

---

Pres.Slides(1).Shapes("Rectangle 4").TextFrame.TextRange.Text = Sheets("Base").Cells(1, 1).Value

---

La ligne écrit le texte de la cellule en A1 dans la shape nommée Rectangle 4 qui se trouve dans la première diapositive.

Le tout bien sûr à adapter à ton cas ;)

Philippe

ça marche !
vraiment merci !
cela m'enlève une belle épine du pied !