Discussion :

[alex07977]

Bonjour,

Mon employeur me demande de coder via VBA un programme permettant de copier un tableau excel et de l'inserer automatiquement dans une diapo Powerpoint.
Je n'arrive pas a trouver le moyen permettant de remplacer la photo dans le powerpoint (sinon ils vont se retrouver avec 200 images par slides copiees les unes par dessus les autres)
Par ailleurs, afin d'avoir 2 tableaux sur une meme slide ppt, il me demande d'inserer un userform permettant de choisir combien de tableau on veut sur chaque slide.
Je ne vous cache pas que je commence tout juste le VBA et donc que je galere un peu.
Je vous met le debut de code qui fonctionne mais qui n'est pas fameux je vus l'accorde.

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
Private Sub Convertir_Click()
 
 
'La Presentation est ouverte et la référence à PowerPoint activée
 
Dim ppApp As PowerPoint.Application
Set ppApp = GetObject(Class:="Powerpoint.Application")
ppApp.ActiveWindow.ViewType = ppViewSlide
ppApp.ActivePresentation.Slides(4).Select
 
'EXCEL CODE
 
Sheets("Frue_1_2").Select
Range("B10:L34").Select
Selection.Copy
 
'POWERPOINT CODE
 
ppApp.ActiveWindow.View.PasteSpecial ppPasteMetafilePicture
 
End Sub

En esperant que vous allez m'eclairer un peu.
Bonne journee

[unparia]

Bonjour
Lorsque l'on travaille en liaison tardive (c'est ce que tu fais), les constantes de l'un des deux applis ne sont pas connues de l'autre et doivent donc être remplacées par leur valeur effective.