view.paste invalid request clipboard is empty or contains.

[Grifis]

Bonjour à tous,

Je reviens vers vous car je n'arrive pas à comprendre ni résoudre un problème sur la copie d'un tableau excel dans powerpoint.

Ci-dessous un apercu du code qui copie/colle un tableau dans powerpoint. Je suis obligé de coller en paste.view car le tableau doit pouvoir être modifié dans powerpoint (donc pas de bitmap / shapes /etc..).


Sheets("Avances 2-Retards").Select
Range("A1:I1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ppt.ActivePresentation.Slides(2).Select
ppt.ActiveWindow.View.Paste

Pour des raisons qui m'échappent, le code s’arrête au moment de coller avec le message d'erreur suivant :
view.paste invalid request clipboard is empty or contains data which may not be pasted here. (erreur 80048240).

J'ai surfé sur plusieurs sites qui parlent de problèmes de versions entre VBA & Powerpoint mais pas de solution à l'horizon.

Merci d'avance pour votre aide!

 

[Gelinotte]

Re : view.paste invalid request clipboard is empty or contains.

Bonjour,

À tester et à adpater

source : FAQ Excel

Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\LaPresentation.ppt")
 
With PptDoc
    'copie la plage de cellules dans la feuille Excel active
    Feuil1.Range("B1:H5").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(2).Shapes.Paste
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)
        .Name = "monTableau" 'Renomme l'objet collé
        .Left = 150 'position horizontale dans le slide
        .Top = 100 'position verticale dans le slide
        .Height = 300 'hauteur
        .Width = 400 'largeur
    End With
 
    'insère le contenu de la cellule A1 dans la deuxième zone de texte,
    'du 3eme slide
    .Slides(3).Shapes(2).TextFrame.TextRange.Text = Range("A1")
 
    'sauvegarde la présentation
    .Save
End With
 
'ferme la présentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
 
End Sub

Gelinotte

 

[Grifis]

Re : view.paste invalid request clipboard is empty or contains.

Merci pour cette réponse.
J'obtient un message similaire (shapes. clipboard is empty etc...) et je me demande si le problème ne vient pas du cache.

De plus un collage avec shapes ne me permet pas de répondre exactement à mon besoin (je souhaite avoir un tableau sans liens qui puisse être modifié (comme un copier coller manuel finalement dans powerpoint)).

D'autres idées?

Merci en tout cas pour ton aide,

Grifis