Problème de copie de tableau Excel dans Powerpoint avec VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
MRU08
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 30 décembre 2014
Version d'Excel : 2010 FR

Message par MRU08 » 30 décembre 2014, 17:34

Bonjour à tous,

Voilà, je suis entrain de faire une macro dans le but d'automatiser la création d'une présentation power point qui a lieu toutes les semaines.
Cette macro copie des tableaux excel (en format image) dans un power point à l'endroit souhaité.
Néanmoins, la macro me saute automatiquement la dernière colonne sur tout les slides ...

Je viens de me lancer sur excel et la macro est une résultante de copier-coller successifs... :(

Merci par avance à celles et ceux qui m’apporteront leur précieuse aide !

(Je m'excuse par avance si cette question a déjà été posée ou si je l'ai posté au mauvais endroit) :D

MRU08
 
        Dim ppApp As PowerPoint.Application
        Dim ppPres As PowerPoint.Presentation
        Dim ppShape As PowerPoint.shape
        Dim SlideNum As Integer
        Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String

        strPresPath = "C:\...."
        strNewPresPath = "C:\...."
    
        Set ppApp = CreateObject("PowerPoint.Application")
        ppApp.Visible = msoTrue
    
        Set ppPres = ppApp.Presentations.Open(strPresPath)

        Sheets("Sheet1").Activate
        Range("Tableau1").Copy

        SlideNum = 8
        ppPres.Slides(SlideNum).Select
        Set ShR = ppPres.Slides(SlideNum).Shapes.PasteSpecial(ppPasteMetafilePicture, msoFalse)
        
       With ShR
        .Top = 52
        .Left = 80
        .Height = 200 
        .Width = 800 
       End With
       
       
End Sub
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'699
Appréciations reçues : 700
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 31 décembre 2014, 09:08

Bonjour,
A tester :D
Option Explicit
Public Sub test()
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim SlideNum As Integer
Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String
Dim rng As Range

    Application.ScreenUpdating = False

    strPresPath = "C:\...."
    strNewPresPath = "C:\...."

    Set ppApp = CreateObject("PowerPoint.Application")
    Set ppPres = ppApp.Presentations.Open(strPresPath)
    ppApp.Visible = msoTrue

    Set rng = Worksheets("Sheet1").Range("Tableau1")
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    SlideNum = 8
    Set PPSlide = ppPres.Slides(SlideNum)
    ppPres.Slides(SlideNum).Select
    PPSlide.Shapes.Paste.Select
    ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    ppApp.ActiveWindow.Selection.ShapeRange.Top = 52
    
    ppApp.Activate
    Set PPSlide = Nothing
    Set ppPres = Nothing
    Set ppApp = Nothing

End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
M
MRU08
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 30 décembre 2014
Version d'Excel : 2010 FR

Message par MRU08 » 31 décembre 2014, 15:57

Merci pour ta réponse !
Je vais tester lundi et je reviens vers toi :)

MRU08
M
MRU08
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 30 décembre 2014
Version d'Excel : 2010 FR

Message par MRU08 » 5 janvier 2015, 11:56

Bonjour Jean-Eric,

Je viens de tester et j'ai deux souci maintenant :S

1) la taille du tableau ne correspond plus à ce que je souhaite

2) Etant donné que j'ai plusieurs tableau à copier sur différents slides, j'ai recopié le code en adaptant (changer le numéro de slide, le tableau à recopier et l'onglet sur lequel il se trouve), malheureusement, la macro se bloque lors de la copie du 2ème tableau ici :
    ' Collage du tableau n3 :
        SlideNum = 3
        Set ppSlide = ppPres.Slides(SlideNum)
        ppPres.Slides(SlideNum).Select
        ppSlide.Shapes.Paste.Select
Sur Set ppSlide = ppPres.Slides(SlideNum)....

Merci de ton aide :)

MRU08
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'699
Appréciations reçues : 700
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 5 janvier 2015, 12:15

Bonjour,
Que veux-tu que je fasse?
Même avec des fichiers joints, je ne suis pas certain de pouvoir t'aider plus.
Il y a certainement un forum traitant de PowerPoint et VBA.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message