Discussion :

[darchisgod]

Bonjour,

le message d'erreur de mon titre d'affiche lorsque je lance ma macro excel suivante :

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

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.

Quelqu'un a t-il une solution ?

Merci beaucoup

[Qwazerty]

Salut
J'ai participé à quelques sujets concernant PP, fait une recherche sur le forum avec comme mot clef Powerpoint (tu peux rajouter mon pseudo pour limiter la recherche mais tu trouveras peut être ton bonheur ailleurs ).
De mémoire il était question de rajouter des valeur et de créer des tableaux.
++
Qwaz

[darchisgod]

en fait j'ai trouvé je vous poste le bout de code correspondant:

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
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:C9").Select
Selection.Copy
'POWERPOINT CODE
PPApp.ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange = "Généralités"
PPApp.ActiveWindow.View.GotoSlide 2
PPApp.ActivePresentation.Slides(2).Shapes(2).Select
PPApp.ActiveWindow.View.Paste