Alimentation d'un fichier Excel à partir de données Powerpoint

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/07/2009, 12h06
alex75

Alimentation d'un fichier Excel à partir de données Powerpoint

Bonjour à tous,

Je suis en train de réfléchir à une façon d'alimenter automatiquement un tableau récapitulatif sous Excel à partir de données formatés dans des Powerpoint.

Je m'explique, je souhaiterais à partir de mon fichier Excel, cliquer sur un bouton "Ajouter" qui ouvrirait une pop-up parcourir. Je sélectionne alors un document powerpoint (1 seule page suivant tjs le même modèle: un client, un résumé et un chiffre d'affaires).
Je souhaiterais que mon programme récupère les informations du Powerpoint et alimente automatiquement mon tableau Excel en créant une nouvelle ligne.

Est-ce possible de faire qqch de ce genre? Si oui, je veux bien des infos, pistes ou exemples qui pourraient m'aider à développer ce programme :roll:

Je vous remercie pour votre aide tjs aussi précieuse sur ce type de sujet
Alex
22/07/2009, 12h11
cafeine
Hello,

oui, c'est possible et je l'ai déjà réalisé.
Il faut commencer par ajouter la référence aux objets Powerpoint, puis de trouver le moyen d'accéder au texte de ton slide pour le rappatrier dans Excel.

Un petit commencement pour ouvrir une pres' en mode caché
strPath est le chemin complet de ton ppt
Code:

1 2 3 4 Dim pp As PowerPoint.Application Dim pres As Presentation Set pp = New PowerPoint.Application Set pres = pp.Presentations.Open(strPath, msoCTrue, msoFalse, msoFalse)
22/07/2009, 12h15
alex75

Yes ça a l'air pas mal tout ça!
Je me demande juste comment tu fais pour pouvoir identifier telle ou telle zone du texte.

Merci beaucoup :)
22/07/2009, 12h31
cafeine

ça va dépendre, est-ce du texte ? est-ce une image ? un objet excel ?
22/07/2009, 14h28
alex75

Sur chaque powerpoint, il y a 3 zones de texte (3 insert de texte différent) et un logo.

Il n'y a pas d'objet externe.

Bonjour

Voici un petite exemple à adapter à ton cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub ParcourZoneTexte()
    ' déclaration des variables
    Dim sld As Slide
    Dim shp As Shape
 
    ' parcours
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Type = msoTextBox Then
                MsgBox shp.TextFrame.TextRange.Text
            End If
        Next shp
    Next sld
 
End Sub

Ce code parcours tous les slides de la présentation active et dans chaque slide donne le texte des zones de texte.

Bien sûr ce n'est qu'un exemple, à adapter.

Philippe

Sur vos conseils, j'ai tenté ce bout de code pour comprendre comment ça marche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
        ' déclaration des variables
        Dim pp As PowerPoint.Application
        Dim pres As Presentation
        Dim sld As Slide
        Dim shp As Shape
 
        ' initialisation
        Set pp = New PowerPoint.Application
        Set pres = pp.Presentations.Open(lienHypertexteBrut, msoCTrue, msoFalse, msoFalse)
 
 
        ' affichage du contenu du ppt
        Set sld = pres.Slides(1)
        For Each shp In sld.Shapes
                If shp.Type = msoTextBox Then
                    MsgBox shp.TextFrame.TextRange.Text
                End If
         Next shp

Le problème est que j'ai une erreur à la ligne "For Each shp In sld.Shapes": Erreur d'exécution '13':
incompatibilité de type

Je ne comprends pas pourquoi j'ai une telle erreur... :(

23/07/2009, 06h22
Invité

Bonjour

Pourtant ton code à l'air cohérent. Il se peut que ce soit le temps d'ouverture de la présentation qui gêne.

Essayes de mettre l'instruction DoEvents avant la boucle For, pour voir (ce n'est qu'une idée).

Philippe
23/07/2009, 10h51
alex75

Bonjour Philippe,

En fait, si je passe l'ouverture en "visible", le ppt s'ouvre bien mais il plante au niveau de l'instruction Shapes... je ne comprends pas pourquoi.
23/07/2009, 11h00
ouskel'n'or

As-tu testé ce que t'a dis Philippe ?
Edit
Et si tu fais

Code:

msgbox pres.Slides.count

ça donne quoi ?
23/07/2009, 11h11
cafeine

Hello,

@alex75, vu ton erreur je pense que l'ouverture de la pres' powerpoint a échoué.
23/07/2009, 11h44
alex75
Citation:

Envoyé par ouskel'n'or

As-tu testé ce que t'a dis Philippe ?
Edit
Et si tu fais

Code:

msgbox pres.Slides.count

ça donne quoi ?

J'ai mis des msgbox avant le for et effectivement elles s'affichent bien.
pour le pres.Slides.count, j'obtiens 1, ce qui est correct je charge un ppt avec une slide.

Citation:

Envoyé par cafeine

Hello,

@alex75, vu ton erreur je pense que l'ouverture de la pres' powerpoint a échoué.

Je dirais qu'a priori non car j'ai mis ça:
Code:

1 2 3 4 5 ' initialisation Set pp = New PowerPoint.Application Set pres = pp.Presentations.Open(lienHypertexteBrut, msoCTrue, msoFalse, msoFalse) MsgBox "hello"
et la msgbox Hello s'affiche bien
23/07/2009, 11h46
Invité

Re

As-tu remplacé ta msgbox par DoEvents ?

Philippe
23/07/2009, 11h48
alex75
En supprimant la déclaration suivante, le code marche!
Code:

1 2 3 Dim sld As Slide Dim shp As Shape
Quelqu'un a une explication?

Citation:

Envoyé par Philippe JOCHMANS

Re

As-tu remplacé ta msgbox par DoEvents ?

Philippe

Exact j'ai essayé mais ça ne fait rien le DoEvents.
23/07/2009, 11h54
Invité
Re

Je pense avoir une explication, de mémoire il existe un objet Shape dans Excel, et donc il y doit y avoir confusion entre le shape de PPT et le shape d'Excel.

Essayes en déclaration
Code:

1 2 Dim sld As PowerPoint.Slide Dim shp As PowerPoint.Shape
23/07/2009, 12h02
alex75

1 pièce(s) jointe(s)

Tout à fait raison :ccool:
Maintenant il me reste à trier les données présents dans le powerpoint et récupérer que celle qui m'intéresse... pas facile tout ça

Comme j'ai pratiquement que des TextBox dans mon Powerpoint, il faudrait que j'arrive à différencier les titres du contenu que je souhaite récupérer.
J'ai des formes de type msoAutoShape et msoTextBox. Ca ne m'aide pas trop ! :(

J'ai joint une copie d'écran du slide powerpoint que j'ai et j'ai encadré en rouge toutes les informations que je souhaite récupérer dans mon Excel.

Est-ce possible de nommer les shapes de powerpoint pour les différencier? Si oui, comment?
23/07/2009, 13h43
Invité

Re

Citation:

Envoyé par alex75

Est-ce possible de nommer les shapes de powerpoint pour les différencier? Si oui, comment?

Nous disposons également d'un forum PPT :yaisse2: avec une FAQ tu peux y trouver : Comment renommer les objets d'un diaporama ?

Philippe
23/07/2009, 14h30
alex75
Philippe tu assures, je vois presque la fin de mon programme :)^
J'utilise la fonction Split pour le titre, qui est toujours sur 2 lignes.
Je voudrais mettre comme séparation le retour à la ligne.

J'ai tenté:
Code:

1 2 Split(shp.TextFrame.TextRange.Text, Chr(13))
mais ça ne marche pas. Comment lui faire prendre en compte le retour chariot comme séparateur?
23/07/2009, 15h36
ouskel'n'or
Citation:
Envoyé par alex75

J'utilise la fonction Split pour le titre, qui est toujours sur 2 lignes.
Je voudrais mettre comme séparation le retour à la ligne.

J'ai tenté:

Code:

1 2 Split(shp.TextFrame.TextRange.Text, Chr(13))

mais ça ne marche pas. Comment lui faire prendre en compte le retour chariot comme séparateur?
Tu veux qu'il soit sur deux lignes ou est-il sur deux lignes dans PPT ?
Si tu veux partager ton titre pour qu'il soit sur deux lignes (ce qui suppose qu'il ne l'est pas dans PPT) tu dois connaître le point d'insertion de vbcrlf ( Retour en début de ligne + saut de ligne - CariageReturn + LineFeed)
En l'état, ton split donne un tableau des lignes séparées d'un retour chariot dans le shape.
Si tu as deux lignes (un seul retour chariot) le premier indice est 0 et le second est 1
Jète un oeil à split dans l'aide en ligne si je ne suis pas assez clair.
De ton côté explique-nous tout ;)

Citation:

Envoyé par ouskel'n'or

Tu veux qu'il soit sur deux lignes ou est-il sur deux lignes dans PPT ?
Si tu veux partager ton titre pour qu'il soit sur deux lignes (ce qui suppose qu'il ne l'est pas dans PPT) tu dois connaître le point d'insertion de vbcrlf ( Retour en début de ligne + saut de ligne - CariageReturn + LineFeed)
En l'état, ton split donne un tableau des lignes séparées d'un retour chariot dans le shape.
Si tu as deux lignes (un seul retour chariot) le premier indice est 0 et le second est 1
Jète un oeil à split dans l'aide en ligne si je ne suis pas assez clair.
De ton côté explique-nous tout ;)

Le texte récupéré à partir du PPT est bien dans une même textbox et sur 2 lignes.
J'ai essayé vbcrlf mais ça n'a pas l'air de marcher :(

Voilà le code que j'ai testé:
Code:

1 2 3 4 5 6 7 8 9 For Each shp In sld.Shapes 'If shp.Type <> msoPicture Then Select Case shp.Name Case "titre" titre_pp = Split(shp.TextFrame.TextRange.Text, vbCrLf) MsgBox titre_pp(0)
Dans la MsgBox, j'ai le titre complet!!! au lieu d'avoir que la première ligne :(

Citation:

Envoyé par Philippe JOCHMANS

Re

Nous disposons également d'un forum PPT :yaisse2: avec une FAQ tu peux y trouver : Comment renommer les objets d'un diaporama ?

Philippe

Philippe, le renommage des objets d'un diaporama passe forcément par du VBA ou est-il possible de le faire via l'interface powerpoint?
Je te demande car par la même occasion je rédige un "howto" pour des non informaticiens.

Voir 40 message(s) de cette discussion en une page