Bug dans une macro de copie de tableau Excel dans PPT
Bonjour à tous,
Je me lance aussi dans la vba pour automatiser certaines taches au bureau et j'ai pris quelques lignes de code dont celles de Lecail65 pour avancer mais la macro beugue et je ne comprend pas pourquoi, voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub NouvellePresentation()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Sh As PowerPoint.Shape
Dim Nbshpe As Byte
Set PptApp = CreateObject("Powerpoint.Application") 'appeler pwp'
PptApp.Visible = True 'affiche pwp'
Set PptDoc = PptApp.Presentations.Open("presentation.ppt") ' ouvre la presentation'
Sheets("Feuil1").Range("D20:K27").Copy
PptApp.ActivePresentation.Slides(10).Select 'selectionner le tableau et le coller dans slide 10
PptApp.ActiveWindow.View.PasteSpecial ppPasteMetafilePicture 'coller le tableau
End Sub |
je dois faire ça pour plusieurs tableaux et plusieurs slides mais lorsque je lance la macro j'obtiens ce message :
Erreur d'exécution'-2147188160 (80048240)':
View (unknown member) : Invalid request. The specified data type is unavailable.
quelqu'un aurait'il une idée de l'origine de ce bug ?
Merci par avance !
