[PPT-2003] consolidation de tableaux excel dans powerpoint

[wbyeats]

Bonjour,

J'ai plusieurs fichiers Excel contenant chacun 1 tableau. La structure du tableau est la même pour chaque fichier excel, seules les données sont différentes.
Je souhaite créer un document Powerpoint qui reprend chaque tableau Excel pour une diapositive (1 tableau par diapo).

Ainsi à chaque ouverture du document Powerpoint, les diapos sont mises à jour suivant les modifications effectuées dans les tableaux Excel.

En gros, je voudrais faire une macro Powerpoint qui ouvre les fichiers Excel, copie les cellules Excel définies (format fixe) et les colle dans une diapo Powerpoint (quid du format, mise en page)
Merci de votre aide

[wbyeats]

J'ai commencé à batir une macro avec les éléments glanés sur le site.
Par contre, l'exemple crée des zones de texte, or je souhaiterai jongler avec des tableaux. Comment créer des zones de tableaux dans Powerpoint (Shapes.AddTableBox ??), puis comment sélectionner plusieurs cellules Excel (strChaine = xlSheet.Range("A1,B5").Value ???) pour les coller ensuite dans powerpoint ??

Merci de votre aide

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub ImportExcel()
     '---------------------------------------------------------------------------------------
     ' Procedure      : ImportExcel
     ' Auteur         : Philippe JOCHMANS - <a href="http://starec.developpez.com" target="_blank">http://starec.developpez.com</a>
     ' Date           : 12/04/2009
     ' Commentaires   :
     '---------------------------------------------------------------------------------------
 
    'déclaration des variables
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim shpTexte As Shape
    Dim i As Integer
    Dim strChaine As String
 
    'ouverture du fichier Excel
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
    Set xlSheet = xlBook.Sheets("Feuil1")
 
    ' on crée une zone de texte
    Set shpTexte = ActivePresentation.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 200, 50)
    ' on va stocker les valeurs dans une chaine en insérant un retoure chariot pour créer des paragraphes
  '      strChaine = strChaine & xlSheet.Range("A" & i).Value & vbCrLf
 
    shpTexte.TextFrame.TextRange.Text = strChaine
    ' Fermeture
    xlApp.Quit
 
End Sub

[Philippe JOCHMANS]

Bonjour

Pour créer un tableau tu as un exemple dans la FAQ : Comment créer un tableau ?

Pour le reste tu es sur la bonne voie.

Je n'ai pas beaucoup de temps en ce moment, mais fais une recherche sur le forum PPT (il y a un moteur de recherche) avec le mot Excel.


Philippe

[Qwazerty]

Salut
J'ai filé un coup de main dernièrement à une personne pour faire ce genre de choses, tu trouveras des messages dans le forum ExcelVBA ouvert par fidecourt (ou encore mieux comme le signal Philippe J. en utilisant la fonction recherche avancée ou tu pourras spécifier le nom de l'auteur).
Si je peux te donner un conseil, j'utiliserais un fichier modèle, ça permet de structurer tes Slides comme tu le souhaites (en mode masque de diapo). Tu peux ainsi prévoir tes emplacements de tableaux et il ne te reste plus qu'a placer les tableaux avec leurs données à partir du vba Excel.
Voila une des conversations, mais il y en a d'autres.

++
Qwaz