Discussion :

[Marneus22]

Bonjour,

Voilà mon objectif :

Sélectionner un tableau sous excel (ensemble de cellules avec couleur...) le copier, et le coller sous Powerpoint tout en :
1) gardant la mise en forme excel
2) mais sans liaison...
3) Modifiable sous PowerPoint

Un copier coller de "base" en conservant la mise en forme source...

Voilà ce que j'ai réalisé jusqu'à présent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open(Filename:="C:\...\presentation.pptx ")
 
 
   selection.Copy
 
   PptDoc.Slides(4).Shapes.Paste
End Sub

Ce code ne fonctionneant pas (je ne comprends pas pourquoi d'ailleurs), j'en ai essayé un autre :

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
Sub Adding()
'
' Adding Macro
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open(Filename:="C:\...\presentation.pptx ")
 
 
   selection.Copy
 
 
 
PptDoc.Slides(4).Shapes.PasteSpecial ppPasteOLEObject, link:=msoFalse
 
 
End Sub

Mais là, le tableau reste lié au document Excel...

Je sens que je touche au but, mais un manque de connaissances notable me bloque sur ma progression.

Merci à vous pour votre aide.

[Marneus22]

Je viens de trouver la réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
PptDoc.Slides(XX).Select
 
PptApp.ActiveWindow.View.Paste