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 :
je dois faire ça pour plusieurs tableaux et plusieurs slides mais lorsque je lance la macro j'obtiens ce message :
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
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 !
Partager