Bonjour à toutes et à tous
Grace au forum et notamment Martial (encore merci).
J'ai réussi à copier un tableaux Excel sur un fichier word.
maintenant je souhaite réalisé la même chose sur un power point.
Pour cela, j'ai cette macro :
Sub Excel_pdf()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\outil DU info\nouveau dispositif\Présentation1.ppt")
With PptDoc
'copie la plage de cellules dans la feuille Excel active
'Sheets("Extraction").Range("B1:H5").Copy
ld = [tablo].Find("début", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf = [tablo].Find("fin", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
cf = [tablo].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'Copier une plage depuis Excel
ActiveSheet.Range(Cells(ld, cd), Cells(lf, cf)).Copy
'Effectue un collage dans la 2eme diapositive
PptApp.ActivePresentation.Slides(2).Select
PptApp.ActivePresentation.Slides(2).PasteSpecial
'.Slides(2).Shapes.Paste
End With
End Sub
L'objectif est d'ouvrir un ppt prédéfini et de copie un tableau au choix dans le slide 2
Tout fonctionne bien jusqu'au collage dans le slide 2 (J'arrive à selectionner le slide 2 mais les deux fonctions ci dessous ne fonctionne pas)
PptApp.ActivePresentation.Slides(2).PasteSpecial
ou
.Slides(2).Shapes.Paste
Je vous joint l'exemple excel (je n'arrive pas à joindre le ppt mais c'est un fichier avec 3 slides totalement vides)
par avance merci
Cordialement
Grace au forum et notamment Martial (encore merci).
J'ai réussi à copier un tableaux Excel sur un fichier word.
maintenant je souhaite réalisé la même chose sur un power point.
Pour cela, j'ai cette macro :
Sub Excel_pdf()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\outil DU info\nouveau dispositif\Présentation1.ppt")
With PptDoc
'copie la plage de cellules dans la feuille Excel active
'Sheets("Extraction").Range("B1:H5").Copy
ld = [tablo].Find("début", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf = [tablo].Find("fin", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
cf = [tablo].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'Copier une plage depuis Excel
ActiveSheet.Range(Cells(ld, cd), Cells(lf, cf)).Copy
'Effectue un collage dans la 2eme diapositive
PptApp.ActivePresentation.Slides(2).Select
PptApp.ActivePresentation.Slides(2).PasteSpecial
'.Slides(2).Shapes.Paste
End With
End Sub
L'objectif est d'ouvrir un ppt prédéfini et de copie un tableau au choix dans le slide 2
Tout fonctionne bien jusqu'au collage dans le slide 2 (J'arrive à selectionner le slide 2 mais les deux fonctions ci dessous ne fonctionne pas)
PptApp.ActivePresentation.Slides(2).PasteSpecial
ou
.Slides(2).Shapes.Paste
Je vous joint l'exemple excel (je n'arrive pas à joindre le ppt mais c'est un fichier avec 3 slides totalement vides)
par avance merci
Cordialement