Discussion :

[shakapouet]

Bonjour,

Je rencontre un petit problème pour copier un tableau depuis Excel sous Powerpoint. Ma macro fonctionne parfaitement mais elle ne garde pas la mise en forme de la source, donc mon tableau est moche lorsqu'il est implanté dans le powerpoint.

Je pense que c'est un problème assez minime à résoudre mais je n'arrive pas à trouver la solution.

Voici la partie du code qui copie / colle le tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Set PPApp = GetObject(Class:="Powerpoint.Application")
    PPApp.ActiveWindow.ViewType = ppViewSlide
    PPApp.ActivePresentation.Slides(i + 1).Select
        'EXCEL CODE
        Sheets("Feuil" & i + 3).Select
        Range("A20:F31").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
    'POWERPOINT CODE
    PPApp.ActiveWindow.View.PasteSpecial

Voila si quelqu’un à une idée , je suis preneur.

Cordialement

[BlueMonkey]

Bonjour,

Essaye de remplacer la ligne 10 par PPApp.ActiveWindow.View.PasteSpecial ppPasteOLEObject

[shakapouet]

Merci bluemonkey, ça marche nickel.

Merci pour ton aide.

Cordialement