Bonjour,

Je suis nouveau et débutant sur VBA.
J'aimerais créer une maccro qui me permette de copier coller des tableaux et des graphiques de mon excel vers Powerpoint.
J'ai trouvé divers sujet en parlant mais cela ne fonctionne pas.
Par exemple j'ai eu le type de code ci-dessous. Mais je ne le comprends pas entièrement et surtout les Powerpoint.Application etc.. Ne fonctionnent pas dans mon excel et ne sont pas reconnues comme des dim (ce problème parmis d'autres). Seul Application est reconnu.
Pourriez vous m'écrire et m'expliquer une maccro copiant simplement un graphique et quelques cellules dans un powerpoint ?
Je vous remercie pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Trsft_PowerPoint_Click()
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppShape As PowerPoint.Shape
Dim ppSlide As PowerPoint.Slide
Dim SlideNum As Integer
 
Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String
    strPresPath = "C:\...ppt"
    strNewPresPath = "C:\...ppt"
 
Set ppApp = CreateObject("PowerPoint.Application")
    ppApp.Visible = msoTrue
Set ppPres = ppApp.Presentations.Open(strPresPath)
 
    Sheets("sheet1").Activate
    Range("B2:R27").Copy
 
Set ppSlide = ppPres.Slides.Add(18, ppLayoutBlank)
    SlideNum = 18
    ppPres.Slides(SlideNum).Select
    ppPres.Slides(SlideNum).Shapes.PasteSpecial ppPasteEnhancedMetafile
    With ppPres.Slides(SlideNum).Shapes(1)
        .IncrementLeft 524#
        .IncrementTop 157.5
    End With
    ActiveWindow.LargeScroll ToRight:=1
    With ppPres.Slides(SlideNum).Shapes(1)
        .ScaleWidth 0.62, msoFalse, msoScaleFromTopLeft
        .ScaleHeight 0.62, msoFalse, msoScaleFromTopLeft
    End With
 
MsgBox "Présentation Créée", vbOKOnly + vbInformation
 
End Sub