Bonjour,

Je travaille actuellement sur un fichier qui regroupera plusieurs images afin de pouvoir venir piocher dedans pour des présentations.
Le fichier de travail est un fichier EXCEL.
Certains tableaux/graph dont j'ai besoin sont dispo sur un powerpoint, par conséquent j'ai actuellement le code suivant

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
Sub MAJ_graph_TTA()
 
'*********************************************
'Ouverture de POWERPOINT
'*********************************************
 
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
 
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open("lien vers fichier ppt")
 
[C'est à partir d'ici que çe ne va plus ^^]
'***************************************************
' Copie des images du fichier powerpoint dans fichier de travail excel
'***************************************************
 
'je veux aller dans la slide n°201 du powerpoint, y sélectionner la seule image présente et aller la copier dans mon fichier excel
 
For Each Image In ActivePresentation.Slides(201)
Shapes.Select
Windows("Macro_transfert.xlsm").Activate
Sheets("feuil1").Select
Range("A1").Select
ActiveSheet.Pictures.Paste.Select
 
End sub
Je vous remercie d'avance pour votre précieuse aide! (vous m'avez déjà permis de bien apprendre VBA, mais je bloque encore sur la logique des codes)

Margot