Discussion :

[yann555]

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

[Invité]

Bonjour

Une petite adaptation de ton code.

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yann555]

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