exportation de graphique d'excel à power point : ne fonctionne qu'une

exportation de graphique d'excel à power point : ne fonctionne qu'une - VB/VBA/VBS - Programmation

Marsh Posté le 27-04-2015 à 13:51:04    

Salut,
 
J'ai un problème très particulier que je n'arrive pas à résoudre et c'est un vrai casse-tête pour moi :??:  
 
Je dispose d'une feuille excel composée de 16 graphiques (tous nommés), et je cherche à exporter tous ces graphiques vers un power point via un code VBA.  
 
le problème: les exports marchent une fois sur deux. Et ce n'est pas forcément sur le même graphique que le problème a lieu. Un coup j'aurai un power point avec tous mes graphiques un autre j'en aurai seulement 2 ou 3.
C'est plus précisément, l’exécution de cette ligne qui pose problème

Code :
  1. ActiveSheet.ChartObjects("sexe" ).Copy

où "sexe" est le nom du graphique. L'erreur affichée lors de l'execution du code est : "erreur d'execution 1004. erreur definie par l'application ou par l'objet". Si j'exécute le code pas à pas, il me faut cliquer avec la souris sur n'importe quelle cellule de la feuille pour que ça marche.  
 
PS : mon problème est aussi décrit ici : "http://www.mrexcel.com/f [...] point.html Malheureusement, pas de solution trouvée :(
 
Voici le code en question:

Code :
  1. Sub ModifierPresentationExistante()
  2. Dim date_jour As String
  5. date_jour = InputBox("Nom du fichier" )
  7. Set PptApp = CreateObject("Powerpoint.Application" )
  8. PptApp.Visible = True
  9. Set PptDoc = PptApp.Presentations.Open("C:\Users\document\excel\presentation.pptx" )
  11. Worksheets("Resultat" ).Activate
  13. With PptDoc
  14.     'Sexe
  15.     Worksheets("Resultat" ).Activate
  16.     ActiveSheet.ChartObjects("sexe" ).Copy
  17.     'Effectue un collage dans la 2eme diapositive
  18.     .Slides(10).Shapes.PasteSpecial ppPasteMetafilePicture
  19.    
  20.     With .Slides(2).Shapes(.Slides(2).Shapes.Count)
  21.         '.Name = "monTableau" 'Renomme l'objet collé
  22.         .Left = 85 'position horizontale dans le slide
  23.         .Top = 235 'position verticale dans le slide
  24.         .Height = 225 'hauteur
  25.         .Width = 650 'largeur
  26.     End With
  28.     'age
  29.     Worksheets("Resultat" ).Activate
  30.     ActiveSheet.ChartObjects("age" ).Copy
  31.     'Effectue un collage dans la 2eme diapositive
  32.     .Slides(17).Shapes.PasteSpecial ppPasteMetafilePicture
  33.    
  34.     With .Slides(17).Shapes(.Slides(17).Shapes.Count)
  35.         '.Name = "monTableau" 'Renomme l'objet collé
  36.         .Left = 325 'position horizontale dans le slide
  37.         .Top = 220 'position verticale dans le slide
  38.         .Height = 300 'hauteur
  39.         .Width = 400 'largeur
  40.     End With
  42. End With
  43. PptDoc.SaveAs Filename:="C:\Users\document\excel\presentation_" & date_jour & ".pptx"
  46. 'PptDoc.Close
  47. 'PptApp.Quit
  49. End Sub

Reply

Marsh Posté le 27-04-2015 à 13:51:04   

Reply

Marsh Posté le 27-04-2015 à 14:36:47    

 
           Voir ici  …   :sarcastic:  
 

Reply

Marsh Posté le 27-04-2015 à 15:37:50    

c'est un problème?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed