Shape (unknown member) : Invalid request

Version imprimable

Bonjour,

le message d'erreur de mon titre d'affiche lorsque je lance ma macro excel suivante :
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 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

06/07/2011, 22h46
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

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

Code:

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