Bonjour,

Tout d'abord j'espère être dans la bonne section du forum.
Je suis sur un post professionel Xp, avec Virtual Basic 6.3 et j'essaie d'envoyer des graphes d'excel directement sur une présentation power point.
Et je coince sur le copier coller de l'un à l'autre.
Voici mon code

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
 
Public Sub ExportPpt(i As Integer)
Dim ppApp As PowerPoint.Application
Dim objPres As PowerPoint.Presentation
Dim objSlide As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim j%
 
If i = 2 Then
    'Au premier i (i=2 pour moi) je crée mon présentation et mes pages
    Set ppApp = CreateObject("PowerPoint.Application")
    ppApp.Visible = True
    ' Create a new PowerPoint presentation.
    Set objPres = ppApp.Presentations.Add
    For j = 1 To 10
    Set objSlide = objPres.Slides.Add(j, ppLayoutBlank)
    Next j
    objPres.SaveAs Filename:=Workbooks(i).Path & "\" & Workbooks(1).Worksheets(1).Cells(2, 1).Value
End If
 
'Je copie mon graphe excel...
Excel.Application.Workbooks(i).ActiveChart.ChartArea.Copy
'Et je le colle dans ma 2e slide...
If i = 2 Then
    MsgBox (2) 'La pour le test
objPres.Slides(2).Shapes.Paste
End If
'Ou dans ma 3e pour le graphe suivant
If i = 3 Then
    MsgBox (3)
objPres.Slides(3).Shapes.Paste
End If
End Sub

Mon problème : Ca marche pour le premier i, mais pour le second "passage", j'ai ça :

Erreur d'execution '91' Variable objet ou variable de bloc with non définie.

Quelqu'un aurait il une idée pour m'aider ?

Merci beaucoup !