Erreur 1004 VBA (Office Mac 2011)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
AliceOhu
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 14 avril 2017
Version d'Excel : 2011 Mac

Message par AliceOhu » 14 avril 2017, 15:23

Bonjour à tous,

Je m'adresse à vous car je m'arrache les cheveux avec une VBA pour laquelle, à l'exécution, j'obtiens une erreur 1004.

Pourriez-vous m'aider ?
Sub Export_Powerpoint()

Dim appPpt As Object
Dim Pptpre As Object
Dim nbshpe As Byte
Dim shpe As Object
Dim sld As Object
 
Set appPpt = CreateObject("Powerpoint.Application")
appPpt.Visible = True


Set Pptpre = appPpt.Presentations.Add
Set sld = Pptpre.Slides.Add _
(Index:=1, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=2, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=3, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=4, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=5, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=6, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=7, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=8, Layout:=ppLayoutBlank)
Set sld = Pptpre.Slides.Add _
(Index:=9, Layout:=ppLayoutBlank)
 
ActiveSheet.ChartObjects(1).Select
Pptpre.Slides(1).Shapes.Paste
nbshpe = Pptpre.Slides(1).Shapes.Count
With Pptpre.Slides(1).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(1).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F8")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(2).Select
Pptpre.Slides(2).Shapes.Paste
nbshpe = Pptpre.Slides(2).Shapes.Count
With Pptpre.Slides(2).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(2).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F9")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(3).Select
Pptpre.Slides(3).Shapes.Paste
nbshpe = Pptpre.Slides(3).Shapes.Count
With Pptpre.Slides(3).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(3).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F10")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(4).Select
Pptpre.Slides(4).Shapes.Paste
nbshpe = Pptpre.Slides(4).Shapes.Count
With Pptpre.Slides(4).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(4).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F11")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(5).Select
Pptpre.Slides(5).Shapes.Paste
nbshpe = Pptpre.Slides(5).Shapes.Count
With Pptpre.Slides(5).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(5).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F12")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(6).Select
Pptpre.Slides(6).Shapes.Paste
nbshpe = Pptpre.Slides(6).Shapes.Count
With Pptpre.Slides(6).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(6).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F13")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(7).Select
Pptpre.Slides(7).Shapes.Paste
nbshpe = Pptpre.Slides(7).Shapes.Count
With Pptpre.Slides(7).Shapes(nbshpe)
    .Left = 150
    .Top = 190
    .Width = 400
    .Height = 300
 End With
 
Set shpe = Pptpre.Slides(7).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
30, 100, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F14")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(8).Select
Pptpre.Slides(8).Shapes.Paste
nbshpe = Pptpre.Slides(8).Shapes.Count
With Pptpre.Slides(8).Shapes(nbshpe)
    .Left = 50
    .Top = 120
    .Width = 600
    .Height = 350
 End With
 
Set shpe = Pptpre.Slides(8).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
20, 50, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F15")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

ActiveSheet.ChartObjects(9).Select
Pptpre.Slides(9).Shapes.Paste
nbshpe = Pptpre.Slides(9).Shapes.Count
With Pptpre.Slides(9).Shapes(nbshpe)
    .Left = 50
    .Top = 120
    .Width = 600
    .Height = 350
 End With
 
Set shpe = Pptpre.Slides(9).Shapes. _
AddTextbox(msoTextOrientationHorizontal, _
20, 50, 600, 50)
With shpe.TextFrame.TextRange
    .Text = Range("F16")
    .Font.Name = "helvetica"
    .Font.Size = 14
    .Font.Bold = False
End With

Set appPpt = Nothing

End Sub

Merci d'avance !
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'280
Appréciations reçues : 106
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 18 avril 2017, 13:27

Bonjour

L'erreur se produit à quel endroit du code ?

Cordialement
@+ Dan ;)
A
AliceOhu
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 14 avril 2017
Version d'Excel : 2011 Mac

Message par AliceOhu » 18 avril 2017, 14:54

Bonjour Dan,

A priori, cela bloque dès la première ligne.

Alice
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'280
Appréciations reçues : 106
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 19 avril 2017, 07:55

re

Possible d'avoir votre fichier ? Ce sera plus simple je pense

Cordialement
@+ Dan ;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message