Collecte de données dans Excel depuis Powerpoint

Version imprimable

17/04/2018, 07h31
Alexou17

Collecte de données dans Excel depuis Powerpoint

Bonjour,

Tout d'abord, c'est la première fois que je poste dans ce forum qui m'a souvent aidé ! Merci de votre aide.
Je cherche à créer un fichier qui irait extraire des données de tous les fichiers powerpoint contenus dans un dossier afin de les enregistrer dans une micro base de données MS Excel. Ces fichiers auront tous une forme plus ou moins equivalente. Mon but est de faire un template ppt qui sera complété, puis me sera renvoyé.
Pour ceci, j'ai envisagé le plan suivant :
- Prerequis / Déclarations / Librairies...
- Ouvre Powerpoint via la BdD Excel
- Possibilité 1 (la plus pratique selon moi) : J'ai utilisé une macro pour nommer identifier le shape et le renommer.
- Identifier le tableau de la slide 2.
- Trouver le texte jusqu'au changement de ligne derrière un bloc de texte avec un nom défini (ex: après "Numéro de série" on associe le texte, on le copie, on le colle dans la cellule excel associée puis changement de ligne, on passe à l'attribut suivant...)
- Possibilité 2 (si cette identification est complexe) : Associer des shapes zone de texte à compléter avec un numéro précis au tableau pour remplir les réponses. Puis compléter de la même manière les résultats.

- Passer à la ligne sur le fichier Excel pour chaque nouveau powerpoint. (Attention : réguler les copies multiples pour éviter qu'a chaque clic sur la macro les mêmes informations soient collées.

Mon problème est que c'est bien la première fois que je veux utiliser le vba couplé à Powerpoint. C'est pour cela que j'en appelle à votre aide pour m'aider à trouver une solution svp!

Merci d'avance,
Alexandre
17/04/2018, 09h10
Menhir

C'est vraiment une idée très étrange d'utiliser PowerPoint comme logiciel de recueil de données.
Personnellement, ça me semble être une très mauvaise idées.
Même un simple texte ouvert au Notepad aurait été plus pratique.
pour faire ça, tu vas énormément galérer pour un résultat aléatoire.

Le seul conseil sensé que je peux te donner est de revoir ta stratégie.
Y a-t-il une réelle bonne raison concrète de passer par PowerPoint pour faire ça ?
17/04/2018, 09h21
Alexou17

Bonjour,

Pour t'expliquer en gros ce sont des calculations de coûts dont les données arrivent au client avec des graphiques et de multiples données qui ont toujours été faites sur powerpoint.
Du coup, oui je dois récupérer les données de ces templates dont les slides sont toujours sur un format similaire.
Cela me semble compliqué de les faire passer sur Word et faire l'inverse d'un publipostage

EDIT: J'avais oublié Fichier après Open x)
Sinon pour le reste, as-tu des idées pour gérer le fonctionnement du tableau. Ou si ca te semble trop dur, tu as une idée pour le faire sur Word? (en prenant des attributs random dans un tableau avec la réponse sur la colonne suivante
Tu saurais m'aider pour ouvrir tous les fichiers du répertoire stp?
La fonction open marche avec un nom défini et moi j'utilise * pour m'abstreindre du nom du fichier.
Je dois passer par une requête d'un type complètement différent?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim principal As ThisWorkbook Dim repertoire As String, fichier As String Set principal = ThisWorkbook repertoire = "\\Bla\bla\" ChDir repertoire fichier = Dir("*.pptx") Do While fichier <> "" If fichier <> principal.Name Then ppt.Presentations.Open() On Error Resume Next End If Loop

17/04/2018, 10h31
Menhir

Citation:

Envoyé par Alexou17

Tu saurais m'aider pour ouvrir tous les fichiers du répertoire stp?

Il faut faire une boucle sur la fonction Dir().
https://msdn.microsoft.com/en-us/VBA...s/dir-function

Inspire-toi de ceci : https://excel.developpez.com/faq/?pa...BoucleFichiers

Pour ce qui est du reste, n'ayant jamais traiter des documents Powerpoint en VBA et n'ayant aucun idée de la nature et de la structure de tes informations, je ne peux pas t'aider.

1 pièce(s) jointe(s)

Le programme tourne en boucle et ouvre les PPT en boucle. Ca ne repasse jamais sur un nom de fichier = "". Une idée?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 'Ouverture des fichiers Dim repertoire As String, fichier As String Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation 'Dim PPSlide As PowerPoint.Slide repertoire = "\\blabla\" ChDir repertoire fichier = Dir(repertoire & "*.*") Do While Len(fichier) > 0 Debug.Print repertoire & fichier Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True Set PPPres = PPApp.Presentations.Open(fichier) Loop End If
Sinon, par rapport à ce que je cherche :
Pièce jointe 370913

En gros, récupérer des données dans un tableau (A la suite d'un mot clé) que ce soit sur PPT ou Word

Encore merci Menhir !

17/04/2018, 12h50
78chris

Bonjour

Je partage l'avis de Menhir.

On peut toujours monter une usine à gaz mais déjà il serait bien de connaître ta version Office.
PowerPoint a bien évolué entre 2007 et 2010 et les objets gérés ont changé, ce qui n'est pas sans impact sur leur manipulation par VBA
En plus si tu reçois des fichiers d'origine variée, le format interne risque donc d'être différent.

La déclaration de PowerPoint ne doit pas être faite dans le boucle d'ouverture de fichier... ou on dois tester si pas déjà ouvert...

Tu postes un modèle Word mais cela n'avance guère sur le PowerPoint à gérer...

Bonjour,
J'utilsie Powerpoint 2010.
L'ensemble des fichiers est de forme similaire, les informations et images changent néanmoins. J'assimilerai donc le "fichier" au template, si l'on peut l'appeler comme ca.

Le fichier powerpoint peut être assimilé a 5 slides.
La slide 2 est celle qui contient mes informations. Le nom du responsable et la date sont situées dans deux formes "zone de texte"
Le reste des attributs sont situés dans la deuxième colonne d'un simple tableau. La première colonne étant constituée des noms de ces attributs (pour moi, ces noms constituent la base pour rechercher l'information).

Neanmoins, je ne peux vous joindre de fichier. Considérez donc que ma question est comment extraire ces infos : dans une zone de texte (je peux me servir du nom de la forme) ou dans un tableau (je peux me servir du nom du tableau, mais ensuite?)

Ci-dessous le code pour identifier et renommer les formes sur PPT
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 Sub RenommerObjet() strNvNom = InputBox("Taper l'alias") With ActiveWindow.Selection.ShapeRange .Name = strNvNom End With End Sub Option Explicit Sub ListerShapes() Dim Diapo As Slide Dim Message As String Dim S As Shape Message = "Liste des Shapes" & vbCr With ActivePresentation For Each Diapo In .Slides Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr For Each S In Diapo.Shapes Message = Message & "Shape : " & S.Name & vbCr Next Next Diapo End With MsgBox Message End Sub

17/04/2018, 14h34
Menhir

Citation:

Envoyé par Alexou17

Le programme tourne en boucle et ouvre les PPT en boucle. Ca ne repasse jamais sur un nom de fichier = "". Une idée?

C'est normal puisqu'il n'y a pas de Dir() dans ta boucle. Elle ne cherche donc pas d'autre fichier que le premier.
Relis les deux liens de mon message précédent.

En plus, je ne comprends pas pourquoi tu as mis *.* dans ton Dir() alors que tu ne veux que les fichiers Powerpoint.

J'avais résolu les problemes entre temps.
J'ai un probleme de controle ActiveX sur Variable2 = ActivePresentation.Slides(SlideNum).Shapes("NomResponsableEtDate").TextFrame.TextRange.Text
J'en suis à l'étape de l'extraction de l'info dans ppt.
Je pense creer des variables pour sauver ces infos et les coller ensuite dans excel.
La forme zone de texte s'appelle "NomResponsableEtDate" après l'avoir renommé avec le programme précédemment évoqué.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
   Dim oPPTApp As PowerPoint.Application
 
    Dim oPPTShape2 As PowerPoint.Shape
    'declarations sur le fichier excel base de données
    Dim principal As ThisWorkbook
    Set principal = ThisWorkbook
    'Ouverture des fichiers
    Dim repertoire As String, fichier As String
    Dim PPApp As PowerPoint.Application
    Dim PPPres As PowerPoint.Presentation
    Set PPApp = CreateObject("Powerpoint.Application")
    PPApp.Visible = True
    'Dim PPSlide As PowerPoint.Slide
    Dim i As Integer
    Dim SlideNum As String
'------------------------------------------------------
 
 
'Identification des fichiers dans le dossier
'Call IdentificationFichiers
 
'-----------------------------------------------------------------------------------------------------------------------
'Travail sur le repertoire contenant les fichiers Powerpoint
repertoire = "\\bla\"
ChDir repertoire
fichier = Dir(repertoire & "*.pptx")
i = 1
 
 
Do While Len(fichier) > 0
        '***************************
        Set PPPres = PPApp.Presentations.Open(fichier)
        'Actions sur le fichier ppt
        Dim Variable1, Variable2 As String
        Variable1 = fichier 'Variable 1: Nom fichier
 
        SlideNum = 2
        'ActivePresentation.Slides(1).Select 'On va sur la slide 2 qui contient les infos a extraire
        'Dim objsld2 As Slide
        'Set objsld2 = PPPres.Slides(2) 'On va sur la slide 2 qui contient les infos a extraire
        Variable2 = ActivePresentation.Slides(SlideNum).Shapes("NomResponsableEtDate").TextFrame.TextRange.Text
 
        'ordre.Offset(j, 0).Value = texte_C1
        'Pres.Close 'fermeture du ppt
        '*****************************
 
        '*****************************
        'Collage des actions du fichier ppt sur le fichier Excel
        ThisWorkbook.Activate
        Sheets("Database").Range("A" & i) = Variable1
        Sheets("Database").Range("B" & i) = Variable2
        '*****************************
 
    fichier = Dir()
    i = i + 1
Loop
'-----------------------------------------------------------------------------------------------------------------------
 
 
End Sub

17/04/2018, 15h46
Menhir

Citation:

Envoyé par Alexou17

J'avais résolu les problemes entre temps.

Merci d'avoir prévenu... :?

Citation:

J'en suis à l'étape de l'extraction de l'info dans ppt.

Ceci concerne la manipulation d'objet PowerPoint et non Excel.
Tu devrais poser la question dans la rubrique correspondant à ce logiciel.
https://www.developpez.net/forums/f6...ba-powerpoint/
18/04/2018, 00h12
clementmarcotte

Citation:

Envoyé par Alexou17

Bonjour,

Pour t'expliquer en gros ce sont des calculations de coûts dont les données arrivent au client avec des graphiques et de multiples données qui ont toujours été faites sur powerpoint.
Du coup, oui je dois récupérer les données de ces templates dont les slides sont toujours sur un format similaire.
Cela me semble compliqué de les faire passer sur Word et faire l'inverse d'un publipostage

Et comment les données sont-elles arrivées dans PowerPoint ?

Si les données ont été entrées à la main, cela veut probablement dire des heures de débogage. Parce que le modèle-objet de PowerPoint est complexe et que PowerPoint n'a plus d'enregistreur de macros. En gros, un tableau PowerPoint, un activeX, une zone de texte ou une forme sont chacun une shape qui est probablement contenue dans une autre shape qui elle aussi peut-être dans une autre shape etc...

Me semble que je passerais plutôt par les programmes qui ont produit les données pour PowerPoint que par PowerPoint. Parce que de fouiller dans l'ensemble des shapes pour trouver la bonne, cela va être l'enfer...
18/04/2018, 15h07
Alexou17

Bon pour votre info, je vais imiter les formulaires powerpoint sur excel en partant du principe que les slides sont des sheets.
Je creerai ensuite une relation de cellule database vers cellule template, ce qui va grandement faiciliter le problème.

Merci de votre aide en tout cas.