Bonjour,
le message d'erreur de mon titre d'affiche lorsque je lance ma macro excel suivante :
j'ai l'impression que c'est parce que pour selectionner ma shape, ma view doit être active. Ce qui signifie que j'aurai besoin que ma macro change de diapo lorsque je le souhaite. J'ai vu une fonction GotoSlide mais je n'arrive pas à le faire fonctionner.
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
21
22
23
24
25
26
27
28
29
30 Sub GenererPowerpoint() 'La Presentation est ouverte et la référence à PowerPoint activée Dim PPApp As powerpoint.Application Dim oSlide As Slide Set PPApp = GetObject(Class:="Powerpoint.Application") 'EXCEL CODE Sheets("Généralités").Select Range("B1:E3").Select Selection.Copy 'POWERPOINT CODE PPApp.ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange = "Parties prenantes" PPApp.ActivePresentation.Slides(2).Shapes(2).Select PPApp.ActiveWindow.View.Paste 'EXCEL CODE Sheets("Généralités").Select Range("G1:I8").Select Selection.Copy 'POWERPOINT CODE PPApp.ActivePresentation.Slides(3).Shapes(1).TextFrame.TextRange = "Généralités" PPApp.ActivePresentation.Slides(3).Shapes(2).Select PPApp.ActiveWindow.View.Paste End Sub
Quelqu'un a t-il une solution ?
Merci beaucoup
Partager