Discussion :

[latthieu]

Bonjour tout le monde,

Après plusieurs recherche je me résous à poster ici.

Voila, je cherche à copier automatiquement un tableau excel dans un powerpoint. Le problème c'est que ce tableau doit pouvoir être modifiable par quelqu'un qui ouvre le powerpoint, mais modifiable juste en tableau simple.

J'arrive, en jouant sur les options du Shapes.PasteSpecial à cpier mon tableau soit en image (et donc non modifiable) soit en tableau lié (qui ouvre l'excel quand on souhaite le modifier).

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
'Sélection des données du premier tableau
Sheets("Données préremplies (A)" ).Select
Range("B4:H20" ).Select
Selection.Copy
'Ouverture du ppt et sélection du slide 4
Set objApp = CreateObject("PowerPoint.Application" )
With objApp
    .Activate
    .Presentations.Open Filename:="\\\\plouf.ppt", ReadOnly:=msoFalse
    .ActivePresentation.Slides(4).Select
    .ActivePresentation.Slides(4).Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
End With

Quelqu'un a une idée ? Merci d'avance !

[Invité]

Bonjour

Quelqu'un a une idée ? Merci d'avance !

Oui si j'ai compris ce que tu veux.

Il faudrait recréer ton tableau de A à Z par programmation et remplir les cellules de celui-ci à partir de tes données.

Tu trouveras un exemple de création dans la FAQ PowerPoint : http://powerpoint.developpez.com/faq...F#creertableau

Un tableau est composé de lignes (Row), colonnes (Column) et cellules (Cells).

Philippe

[latthieu]

Merci Phillippe pour ta réponse.

J'avais déjà fais un truc de ce style là, où je reconstruisais le tableau avec les données (peut-être il y a plus simple...):

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
'Sélection des données du premier tableau
Sheets("Données préremplies (A)").Select
Set rngCopy = Range("B4:H20")
 
Set objApp = CreateObject("PowerPoint.Application" )
With objApp
    .Activate
    .Presentations.Open Filename:="\\\\plouf.ppt", ReadOnly:=msoFalse
    .ActivePresentation.Slides(4).Select
    With .ActivePresentation.Slides(4).Shapes.AddTable(rngCopy.Rows.Count, rngCopy.Columns.Count, 2, 100)' 
For lngRow = 1 To rngCopy.Rows.Count
For lngCol = 1 To rngCopy.Columns.Count
rngCopy.Cells(lngRow, lngCol).Copy
.Table.Cell(lngRow, lngCol).Shape.TextFrame.TextRange.Characters.Paste
Next
Next
End With

Mais cela ne gardait pas du tout la mise en page, écrivait gros etc... Bon, je peux la refaire, mais je trouve que cela alourdit inutilement mon code.


En fait, le truc c'est que j'y arrive très bien "à la mano" de façon très simple:

- Sélection du tableau à copier dans l'excel, copier...
- Ouverture du .ppt, sélection du slide 4
- clic droit, Options de collage, je choisis le deuxième, "Conserver la mise en forme source (S)", et paf.

Le tableau que j'ai, a exactement les mêmes données que mon tableau original, mais je peux les modifier dans le powerpoint.

Si tu penses qu'il n'y a pas d'autres solutions que de tout recoder, je le ferai, mais je trouve cela étonnant car c'est simple de le faire à la main.

Au lieu de passer par cette solution qui me semble difficile à mettre en place, est-ce que vous pensez qu'il est possible de copier en objet dans le powerpoint, puis au sein du powerpoint, copier juste le tableau ?

Merci encore pour vos réponses éclairés !!

[latthieu]

Bon, j'ai finalement réussi, je poste donc ma solution pour que cela serve aux 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
 
Sub myPaste() 
 
'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("Données préremplies (A)").Select 
Range("B4:H20").Select 
Selection.Copy 
 
'POWERPOINT CODE 
PPApp.ActiveWindow.View.Paste
End Sub

[darchisgod]

Bonjour,

ton code m'intéresse beaucoup sauf que quand je le lance, une erreur s'affiche et je ne comprends pas à quoi ceci est du :

"Slide (unknown member) : invalid request. the view does not support selection"

Quelqu'un pourrait-il m'aider?