[PPT-2003] Pb gestion PPT depuis Excel

[popsmelove]

Bonjour,

Le but de mon script VBA (depuis Excel 2003) est d'ouvrir un ppt type (permet de faire des pres avec toujours le même format) puis de dupliquer la diapo 2 afin toujours de conserver le même format. Puis de prendre les images du fichier excel pour les intégrer à la nouvelle diapo.

Mon pb est qu'au lieu de copier l'image d'excel il me copie l'image de ma première diapo... et là je ne comprend pas

Peut-être que la méthode employée pour dupliquer ma diapo n'est pas la bonne ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub NouvellePresentation()
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
'Ouverture présentation
Set PptDoc = PptApp.Presentations.Open(FileName:="C:\Format_type.ppt")
 
With PptDoc
 
    .Slides(2).Copy
    .Slides.Paste
 
    Set Sh = .Slides(3).Shapes(1)
    Sh.TextFrame.TextRange.Text = Range("B4")
 
    Workbooks("toto.xls").Activate
    Sheets("1").Shapes("Picture 112").Copy
 
    Set Diapo = .Slides(3)
 
    Diapo.Shapes.Paste
 
 End With
 
 
'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PptDoc.SaveAs FileName:=ThisWorkbook.Path & "\" & "NouvellePresentation.ppt"
'ferme la presentation
'PptDoc.Close
'ferme powerpoint
'PptApp.Quit
 
'MsgBox "Opération terminée."
 
End Sub

Merci d'avance pour votre aide

[Philippe JOCHMANS]

Bonjour

je viens de tester ton code, il fonctionne parfaitement, j'ai bien l'image qui est sur ma feuille Excel qui est copiée sur le slide.

As-tu un message d'erreur ?

Philippe

[popsmelove]

Moi aussi ça a marché le première fois, puis après impossible, à chaque fois il me reprend l'image de la première diapo... Et non pas de message d'erreur...

Le seul moyen que j'ai trouvé est de créer une nouvelle diapo au lieu de la copier coller, et là je n'ai plus le bug.... J'ai essayé de trouver comment dupliquer une diapo mais pas de solution pour le moment

Merci