[VBA-A]Transfert resultat requete Access vers slide powerpoint

Version imprimable

27/05/2006, 06h57
Go_Ahead

[VBA-A]Transfert resultat requete Access vers slide powerpoint

Salut,
Je souhaiterais transférer des résultats de requêtes vers un powerpoint donné.
Je voulais savoir comment il serait possible d effectuer le transfert.

Merci.
27/05/2006, 08h45
Vesta

Tu as deux solutions...

1. Soit ke powerpoint est toujours identique et par code tu te connecte a la BDD avec ADO et tu change dynamiquement les valeurs des labels powerpoint.
Alors aller voir les tuto ADO sur developpez pour savoir comment récupérer ces information.
Donc la Pwerpoint se connecte a Access

2. Soit tu fais l'onverses, tu commande la création d'un powerpoint depuis access...
27/05/2006, 09h24
Go_Ahead

Oui c est justement cela que je souhaiterais faire, mettre à jour un powerpoint à partir des requetes d une BDD, et cela dynamiquement.
Mais je ne sais pas comment recupérer des valeurs d access et les transférer vers powerpoint...

Il faut utiliser ADO

http://jacma.developpez.com/accesdonneesdao/

La tu trouvera tout ce qu'il te faut pour accéder aux données d'access...
Et un petit code acces pour mettre du texte avec un mini exemple ADO
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Faut ouvrir la BDD ici , mais pour ca je te laisser regarder Tuto ADO 'dim db as New ADODB.Database 'ETC While Not rs.EOF With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutClipartAndText) With .AddTextbox(msoTextOrientationHorizontal, 30, 125, 300, 100).TextFrame .TextRange.Text = CStr(rs.Fields("City")) .TextRange.Font.Color = RGB(255, 255, 255) End With End With

27/05/2006, 12h12
AlainTech

Je suis désolé, mais ceci ressemble à un dialogue de sourds.

On ne connait pas l'environnement de développement.

Vesta pose une question dont la réponse devrait être 1 ou 2.

Go_Ahead répond "Oui c est justement cela que je souhaiterais faire".

On n'est pas plus avancé.

Autrement dit, Go_Ahead, mets nous le tag approprié dans le titre.
[VBA-A] si tu programmes en Access ou [VBA-PP] si tu veux faire une routine de mise à jour dans le Power Point lui-même.
27/05/2006, 14h35
Go_Ahead

En fait je disais que j'ai des resultats d'une requête que je voudrais transferer automatiquement vers un powerpoint.
27/05/2006, 15h09
Vesta

Alors il te faut des informations sur ADO et VBA la programmation VBA Powerpoint...

A toi de nous montrer ce que tu auras essayé de faire...
27/05/2006, 15h18
AlainTech

Citation:

Envoyé par Go_Ahead

En fait je disais que j'ai des resultats d'une requête que je voudrais transferer automatiquement vers un powerpoint.

Tu te répètes et tu ne réponds pas à la question.

Ton programme, dans Access ou dans Power Point???

Modifie ton titre (celui de ton premier message) en y mettant le tag approprié, STP.
27/05/2006, 16h26
Go_Ahead

Dslé, mon programme serait dans Access.
Celui doit exporter les résultats d une requete vers un slide powerpoint.
Est ce assez clair ?
27/05/2006, 16h30
AlainTech

Il ne manque plus que le tag [VBA-A] dans le titre.

Merci
28/05/2006, 09h33
Go_Ahead

dslé mais j'ai mis le type de titre à mettre.
Sinon personne n'a une idée ?
28/05/2006, 09h46
jmfmarques

Relis et re-relis ceci :
http://www.developpez.net/forums/sho...0&postcount=10
Si tu ne comprends pas celà, comment espérer que tu comprennes le reste ? (j'ai des doutes...):cry:
28/05/2006, 10h02
Go_Ahead

Sinon personne n'a une idée ?
28/05/2006, 10h24
SfJ5Rpw8

donc si ton tag est [VBA-A] tu pense à la solution 2 proposé par Vesta ici?

qui correspond à la génération d'un powerpoint ... sur une commande lancée dans access.. avec les données en cours dans la base ...?
28/05/2006, 10h44
Go_Ahead

Oui je sais comment créer un powerpoint et generer des slides en VBA mais le seul probleme je ne sais pas comment transferer des données comme le resultat de requetes, ou des etats vers un slide de powerpoint ?
28/05/2006, 11h43
AlainTech
Je ne l'ai jamais fait mais je suppose que la connexion à ta présentation doit ressembler à ça:
Code:

1 2 3 Dim ppPres As PowerPoint.Presentation Set ppPres = Presentations.Open("LeCheminCompletDeTaPresentation")
En n'oubliant pas de cocher la référence Microsoft PowerPoint xx.xObject Library.

bon si tu sais réaliser des slides depuis VBA-Access.. tu peu voir comment insérer un slide depuis un modéle...

Citation:

Envoyé par Voir aide en ligne VBA-PP

Slides.InsertFromFile(FileName, Index, SlideStart, SlideEnd)

ce modéle .., constitué d'un slide .. mise en forme pour ton exportation et dans lequel il y aurai un tableau, à remplir avec tes données....

pour remplir le tableau inspire toi de ce code :
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 Dim ppp As PowerPoint.Presentation Dim pps As PowerPoint.Slide Dim sh As PowerPoint.Shape Dim t As Table Dim bOk As Boolean 'Bit table trouvé Set ppp = ActivePresentation ' A modifier dans ton cas avec 'ta référence à la présentation crée par Access... 'A modifier lors de l'insertion du slide... Set pps = ppp.Slides(1) 'Recherche du 1° tableau dans Slide.. For Each sh In pps.Shapes If sh.Type = msoTable Then Set t = sh.Table bOk = True Exit For End If Next If bOk Then '--- Rajout ici du code de remplissage du tableau... '.. For i = 1 To t.Rows.Count For j = 1 To t.Columns.Count t.Cell(i, j).Shape.TextFrame.TextRange.Text = "Col:" & j & " lig : " & i Next Next i End If

28/05/2006, 13h28
Go_Ahead

Oui mais pour mon cas le tableau est deja fait.
A moins que je dois envisagé de l exporter sous excel et l'importer de nouveau dans mon powerpoint ?
Est ce faisable ?
29/05/2006, 10h42
Go_Ahead

Je sais comment copié un objet,
maintenant je souhaite copié les résultats d un état.
Je cherche à savoir comment peut on définir pour ainsi le copié dans un slide de powerpoint.