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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !