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

**Go_Ahead** · 27/05/2006, 06h57

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.

**Vesta** · 27/05/2006, 08h45

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...

**Go_Ahead** · 27/05/2006, 09h24

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...

**Vesta** · 27/05/2006, 09h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**AlainTech** · 27/05/2006, 12h12

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.

**Go_Ahead** · 27/05/2006, 14h35

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

**Vesta** · 27/05/2006, 15h09

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...

**AlainTech** · 27/05/2006, 15h18

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.

**Go_Ahead** · 27/05/2006, 16h26

Dslé, mon programme serait dans Access.
Celui doit exporter les résultats d une requete vers un slide powerpoint.
Est ce assez clair ?

**AlainTech** · 27/05/2006, 16h30

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

Merci

**Go_Ahead** · 28/05/2006, 09h33

dslé mais j'ai mis le type de titre à mettre.
Sinon personne n'a une idée ?

**jmfmarques** · 28/05/2006, 09h46

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...)

**Go_Ahead** · 28/05/2006, 10h02

Sinon personne n'a une idée ?

**SfJ5Rpw8** · 28/05/2006, 10h24

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 ...?

**Go_Ahead** · 28/05/2006, 10h44

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 ?

**AlainTech** · 28/05/2006, 11h43

Je ne l'ai jamais fait mais je suppose que la connexion à ta présentation doit ressembler à ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**SfJ5Rpw8** · 28/05/2006, 11h56

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Go_Ahead** · 28/05/2006, 13h28

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 ?

**Go_Ahead** · 29/05/2006, 10h42

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.

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

VBA Access

Discussions similaires

Partager

Partager