Copier un tableau Excel ==> Coller avec mise en forme dans PPT

Bonjour à tous,

Je met à jour tous les mois plusieurs tableaux Excel (1 seul fichier source) que je viens coller dans plusieurs PPT.

J'ai réussi à automatiser la partie "copier" "coller" que je peux partager :) pour les intéresser

Par contre j'aimerais qu'il me le colle au bon endroit = Je pense pouvoir y arriver en tatonnant .. mais avec les bonnes largeur et hauteur de colonnes et ca ... je ne sais pas trop comment partir, des idées SVP ?

En vous remerciant,

Sub myPaste()

Dim Chemin1 As String
Dim Fichier1 As String
Dim Chemin2 As String
Dim Fichier2 As String
Dim myShape As Object
Dim mySlide As Object

    Set PPApp = CreateObject("Powerpoint.Application")
    PPApp.Visible = True

    Chemin1 = "C:\Users\dducoin\Desktop\"

    Set PPPres = PPApp.Presentations.Open(Chemin1 & Dir(Chemin1 & "Présentation*.pptx"))

    Fichier1 = PPApp.ActivePresentation.FullName

PPApp.ActivePresentation.Slides(1).Select

        Fichier2 = ActiveWorkbook.Name

Workbooks(Fichier2).Worksheets("P_1FT2_Ph1&2").Range("AJ205:AM214").Select
Selection.Copy

PPApp.ActiveWindow.View.Paste

Set mySlide = PPApp.ActivePresentation.Slides(1)
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)

  myShape.Left = 250
  myShape.Top = 5

End Sub

Bonjour MisterDuc

Si je puis me permettre, utiliser VBA pour ça est une très mauvaise idée

Si vous copier vos tableaux et les coller avec liaison vous aurez le gros avantage d'avoir vos modifications Excel à jours

Ce que j'en dis

Bonne fin de journée

Merci pour ta réponse BrunoM45

Eh bien c'est peut être la bonne réponse en effet je vais essayer !

Et pour ma culture pourquoi c'est une très mauvaise idée ?