Excel --> Powerpoint

[nat54]

Bonjour,

A nouveau moi, ca fuse aujourd'hui 🙂

Voilà j'ai x graphiques sur Excel
et je dois les coller (mensuellement) dans une présentation ppt

J'aurai aimé :
- sélectionner un graphe A
- le coller dans la diapo n°1
- sélectionner un graphe B
- le coller dans la diapo n°2

....


début du code

sub export()

  ActiveSheet.ChartObjects("Graphique 3").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Copy

???
    ActiveWindow.View.GotoSlide Index:=3

Les hics

1° J'arrive pas à faire ouvrir un ppt via la méthode habituelle
workbooks.open

2° Existe-t-il un moyen pour renommer les graphiques
car là j'ai graph 3, 5, 10..
rien qui se suit

ou pire car j'ai groupé avec des zones de texte , comment savoir le nom ?


MERCI

 

[mutzik]

Re : Excel --> Powerpoint

Coucou Nat,

en fait dans mon appli (sorry j'ai oublié de préciser) je collage spécial avec liaison le graph ET :
dans la (les) feuille(s) contenant les données, j'ai crée tous les libéllés qu'il me fallait avec formules comme toi. J'ai mis ces cellules à la taille et la couleur qu'il faut puis collage spécial

 

[nat54]

Re : Excel --> Powerpoint

Ok

Par contre, je viens de me rappeler pourquoi je ne voulais pas utiliser cette méthode. Car le fichier de base change chaque mois de nom
ex : base_aout, base_sept...
===> collage avec liaison impossible !!


donc je voulais une macro à mettre dans excel dans le fichier base_aout par ex
ce fichier est copié à l'identique pr mois de sept, on rentre juste les données e sept en +

et cliquer sur un bouton "exporter"
et que ca exporte dans ppt

Toi tu dois n'avoir qu'un fichier source, je pense

 

[nat54]

Re : Excel --> Powerpoint

Personne ne connait ce pti bout de code pour collage special ? 🙁


L'erreur sur le code de michel
shapes (unknown member) : invalide request
the specified data type is unavailable

 

[nat54]

Re : Excel --> Powerpoint

Je sens que je vais le faire manuellement..

 

[nat54]

Re : Excel --> Powerpoint

J'ai trouvé sur un autre forum...

Le code "final" (ya pas tous les graphes)

Sub Export_Ppt()
    'necessite d'activer la reference Microsoft Powerpoint Object Library
    Dim PPT As PowerPoint.Application
    Dim PptDoc As PowerPoint.Presentation
    Dim NbShpe As Byte
    Dim NumMois As String
    Dim Rep As String
    
    
    Sheets("Page de Garde").Select
    NumMois = Range("D14")
    Rep = Range("D16")
    
    Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
    PPT.Visible = True 'l'application sera visible
    Set PptDoc = PPT.Presentations.Open("J:\Services\Finance Division CCF\Reporting-SIDEL\2006\" & Rep & "\Sales report\CCF Division turnover " & NumMois & "-06 Sales Report.ppt") 'ouverture fichier ppt
    
    ''''''' GRAPHIQUE 30
    Sheets("Division Global Sales").Select
    ActiveSheet.Shapes("Group 30").Copy
    
    PptDoc.Slides(2).Shapes.[b]PasteSpecial ppPasteEnhancedMetafile [/b] 'collage image metafichier windows dans le Slide3 du document Power Point
    
     
    
    'PptDoc.Save 'sauvegarder les modifications
    'PptDoc.Close 'fermer le document ppt
    'PPT.Quit 'fermer l'application powerPoint
End Sub

Ya 2 variables dans l'ouverture du ppt