exporter fichier xls dans un powerpoint

[copayo]

Bonjour à tous,

Comment peut on générer une présentation powerpoint identique au fichier excel :

autant de slide que de feuille
dans le meme ordre
zone d'impression desfeuilles uniquement

J'ai récupéré des codes mais j'ai des pb de reconnaissance des ces codes types slides.add etc...

merci par avance de votre contribution

Message édité par: copayo, à: 19/01/2006 16:00

 

[MichelXld]

bonsoir

cet exemple créée une nouvelle présentation qui contient le meme nombre de Slides qu'il y a de feuilles dans le classeur , et dans le meme ordre d'ndex que les onglets


Dim Ppa As PowerPoint.Application
Dim Ppp As PowerPoint.Presentation
Dim leSlide As Slide
Dim i As Byte

Set Ppa = New PowerPoint.Application
Ppa.Visible = True
Set Ppp = Ppa.Presentations.Add

For i = 1 To Sheets.Count
Set leSlide = Ppp.Slides.Add(Index:=i, Layout:=ppLayoutBlank)
'
'la suite de la procedure
'
Set leSlide = Nothing
Next i


par contre je n'ai pas compris ta phrase : ' zone d'impression desfeuilles uniquement '


bonne soirée
MichelXld

 

[copayo]

Bonjour michel,

j'esperais tomber sur toi car j'avais vu pas mal de tes travaux relatifs à powerpoint.

ce que je voudrais faire c copier la zone d'impression de chacune de mes feuilles dans un slides powerpoint avec une liaison.

la petite subtilité c que j'ai des feuilles 'graph aussi'

MErci par avance de ton aide

 

[MichelXld]

rebonjour Copayo

dans ce cas tu peux tester cette adaptation (testé avec Office XP) . il te restera à personnaliser la mise en page


Sub exportFeuillesClasseur_powerPoint_V02()
Dim Ppa As PowerPoint.Application
Dim Ppp As PowerPoint.Presentation
Dim leSlide As Slide
Dim i As Byte
Dim C As Chart

Set Ppa = New PowerPoint.Application
Ppa.Visible = True
Set Ppp = Ppa.Presentations.Add

For i = 1 To Sheets.Count
Set leSlide = Ppp.Slides.Add(Index:=i, Layout:=ppLayoutBlank)

On Error Resume Next
Set C = Sheets(i)

If Not C Is Nothing Then
C.ChartArea.Copy
leSlide.Shapes.Paste
Else
Sheets(i).UsedRange.Copy
leSlide.Shapes.PasteSpecial ppPasteOLEObject
End If

On Error GoTo 0

Set C = Nothing
Application.CutCopyMode = False
Set leSlide = Nothing
Next i
End Sub



bonne journée
MichelXld

 

[copayo]

Re michel,

Merci beaucoup pour ton aide mais ...

ca bug des la première ligne

erreur de compilation sur :
Dim Ppa As PowerPoint.Application


g pourtant active microsoft office 10 library

C bizarre que ca marche pas chez moi ??,

 

[MichelXld]

rebonjour

ce n'est pas 'Microsoft Office 10 library' qui doit etre activé mais 'Microsoft Powerpoint 10.0 Object Library'


bon week end
MichelXld

 

[copayo]

Bonjour Michel,

je reviens apres un bon week end de repos.

Effectivement j'avais pas activé la bonne référence.

Par contre la macro marche bien mais g 2 soucis :

Le graphique n'apparait pas
Le tableau n'est pas coller avec liaison (collage special, coller avec liaison, object excel) => problème résolu tout seul !!

Option supplémentaire : est il possible d'enregistrer la presentation avec le meme nom que le fichier excel et au meme endroit ??

Merci de ton aide précieuse [file name=test_generation_presentation_powerpoint.zip size=11247]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_generation_presentation_powerpoint.zip[/file]

Message édité par: copayo, à: 23/01/2006 10:35