Bonjour à tous,
 
J'aurais besoin d'un coup de main.
 
Je vous explique, j'ai un fichier excel avec plusieurs sheets.
Sur chaque sheets un tableau que je veux envoyé sur un ppt existant, chaque tableau sur une slide differente.
 
Pour le premier sheet le code suivant marche bien:
 
Sub PPTsheet1()
 
    Dim strPresPath As String, strExcelFilePath As String
    Dim oPPTApp As PowerPoint.Application, oPPTFile As PowerPoint.Presentation
     
    way = "chemin.ppt"
   
 
    Set oPPTApp = CreateObject("PowerPoint.Application" )
    oPPTApp.Visible = msoTrue
    Set oPPTFile = oPPTApp.Presentations.Open(way)
     
     
     oPPTFile.Slides(8).Select
 
    Sheets("1" ).Activate
    Range("e8:h18" ).Select
    Selection.Copy
     
    oPPTApp.ActiveWindow.View.GotoSlide (8)
    oPPTApp.ActiveWindow.Panes(2).Activate
    oPPTApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject
    oPPTApp.ActiveWindow.Selection.ShapeRange.Left = 35
    oPPTApp.ActiveWindow.Selection.ShapeRange.Top = 150
 
Le probléme viens pour le suivant.
 
Comment dire a power point de selectionner le ppt qui est deja ouvert et non d'en ouvrir un nouveau?
 
Merci a vous    

Salut, peut-être ici http://www.developpez.net/forums/d [...] owerpoint/

 
Salut,
 
Merci pour ta réponse.
 
J'ai regardé les différents exemple mais sauf si je me trompe il commence tous par l'ouverture d'un ppt et non par la sélection d'un ppt déjà ouvert.