Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
437 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide vba excel to ppt

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide vba excel to ppt

n°2241910
izekiel06
XVA what else?
Posté le 31-10-2014 à 17:51:37  profilanswer
 

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  :jap:  :jap:

mood
Publicité
Posté le 31-10-2014 à 17:51:37  profilanswer
 

n°2241926
kiki29
Posté le 01-11-2014 à 05:29:26  profilanswer
 
n°2241957
izekiel06
XVA what else?
Posté le 01-11-2014 à 18:55:20  profilanswer
 


 
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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide vba excel to ppt

 

Sujets relatifs
[Excel VBA]Fonction Rank ignorer cellule vide et passer à la suivanteaide pour formule excel
Prévision demande Besoin d'aide VBA EXCEL[Excel] Données / convertir aide
Excel: Aide pour imprimer à partir d'une listeaide macro excel!^^
Aide pour macros ExcelBesoin d'aide pour Filtre Excel
Création d'une action en VBA Excel - Besoin d'aideAide pour Macro Excel
Plus de sujets relatifs à : aide vba excel to ppt


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR