With PptDoc.Slides(5).Shapes.Paste ne marche pas
Bonjour,
SVP, je rencontre un petit problème, je copie quelque cellules à partir d'excel vers une présentation PowerPoint.
et quand l’exécution arrive à cette ligne ".Slides(5).Shapes.Paste" sa plante et je sais pas pourquoi
voice le code:
Sub pppt()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim i, a As Integer
Dim p As Integer
a = 0
i = 1
p = 3
Dim Template As Variant
Template = Application.GetOpenFilename
Set PptApp = CreateObject("PowerPoint.Application")
PptApp.Visible = msoTrue
Set PptDoc = PptApp.Presentations.Open(Template)
With PptDoc
'*****Slide 1*****
Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=320, Top:=440, Width:=10, Height:=10)
Sh.TextFrame.TextRange.Text = Feuil1.TextBox1
Sh.TextFrame.TextRange.Font.Size = 20
Sh.TextFrame.TextRange.Font.Bold = msoTrue
Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=130, Top:=57, Width:=10, Height:=10)
Sh.TextFrame.TextRange.Text = " REVUE LIMITEE DU SYSTEME D'INFORMATION DANS LE CADRE" & vbCrLf & " DU COMMISSARIAT AU COMPTE DE " & Feuil1.TextBox1
Sh.TextFrame.TextRange.Font.Size = 20
Sh.TextFrame.TextRange.Font.Bold = msoTrue
'*****************
'*****Slide 5*****
p = 17
While Not IsEmpty(Sheets("Paramétre").Cells(p, 3))
p = p + 1
Wend
p = p - 1
Feuil8.Range("C17:E" & p).Copy
.Slides(5).Shapes.Paste 'Ligne de problème
End sub
Merci pour vos réponse.
Bonjour,
Une macro VBA est une pièce d'horlogerie ou l'à peu près n'est pas de mise...
Entre tes deux topics la macro à changé : C'est quoi la macro d'origine ?
Nota : Dans les deux fils la ligne :
.Slides(5).Shapes.Pasteest hors du
With.PptDoc
End With(D'ailleurs dans ce dernier cas il n'y a même pas de End With)
A+
Bonjour,
Merci pour votre réponse, je tiens à vous préciser que la macro est "sub pppt()"
et le code est encore énorme j'ai pas voulu le copier en entier et sa se termine avec "End with"
la partie "With PptDoc" et non "With .PptDoc"
Et sa fonctionne toujours pas, je comprends pas et d'ailleurs c'est la seul méthode qui permet de copier les cellules vers PowerPoint
Merci encore
essaye ça
PptDoc.Slides(5).Shapes.PasteSpecial ppPasteEnhancedMetafile
Bonjour,
Merci pour votre réponse, ça marche bien mais j'ai besoin que le tableau copier dans la présentation reste un tableau manipulable et non sous format d'une image
Merciii