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 : 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
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