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.
Partager