Bonjour le forum !
J'ai un problème casse tête sur quelque chose qui parait tout bête.
J'essaie de copier, via une macro, un tableau de données excel vers un slide powerpoint.
J'ai essayé ceci :
Sub test5()
Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add
PptDoc.SaveAs Filename:="D:\Documents and Settings\user\Bureau\test5.pptx"
With PptDoc
.Slides.Add Index:=1, Layout:=ppLayoutBlank
Range("A1:E6").Copy
PptDoc.Slides(1).Shapes.Paste
End With
PptDoc.SaveAs Filename:="D:\Documents and Settings\user\Bureau\test5.pptx"
End Sub
Et je reçois un message d'erreur me disant que soit l'objet n'est pas dans le presse-papier, soit le type d'objet ne peut être collé à cette destination.
Or le copier/coller "à la main" fonctionne très bien, même lorsque j'arrête la macro à la ligne du coller.
De plus, mon tableau peut être collé au format image avec un collage spécial, mais ce n'est pas ce que je recherche.
Merci d'avance pour votre aide.
Jyhel
J'ai un problème casse tête sur quelque chose qui parait tout bête.
J'essaie de copier, via une macro, un tableau de données excel vers un slide powerpoint.
J'ai essayé ceci :
Sub test5()
Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add
PptDoc.SaveAs Filename:="D:\Documents and Settings\user\Bureau\test5.pptx"
With PptDoc
.Slides.Add Index:=1, Layout:=ppLayoutBlank
Range("A1:E6").Copy
PptDoc.Slides(1).Shapes.Paste
End With
PptDoc.SaveAs Filename:="D:\Documents and Settings\user\Bureau\test5.pptx"
End Sub
Et je reçois un message d'erreur me disant que soit l'objet n'est pas dans le presse-papier, soit le type d'objet ne peut être collé à cette destination.
Or le copier/coller "à la main" fonctionne très bien, même lorsque j'arrête la macro à la ligne du coller.
De plus, mon tableau peut être collé au format image avec un collage spécial, mais ce n'est pas ce que je recherche.
Merci d'avance pour votre aide.
Jyhel