Discussion :

[yeti7984]

bonjour


j'ai un fichier excel ( voir pièce jointe )regroupant les résultats d'un tournoi de Handball

-- pendant le tournoi j’inscris au fur et a mesure mes résultats de matchs dans la feuille "liste_matchs"
et en cliquant sur mise a jour le logiciel calcul et met a jour les tableaux situés dans les feuilles "poule1, poule2....)

jusque la tout fonctionne a peu prés bien

ce que je voudrais c'est que pendant que je saisie les résultats tourne sur un 2eme écran un diaporama avec 1 feuille poule par diapositive. et que les tableaux ce mettent a jour tout seul , j'ai vu sur internet qu'il était possible via une VBA excel de le faire , mais je n'arrive pas a m'approprié le code trouvé

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
30
31
32
33
34
Sub MAJ_graphiqueDansPresentation()
Dim appPPT As PowerPoint.Application
Dim Sh As PowerPoint.Shape
Dim Gr As Workbook
 
Set appPPT = CreateObject("PowerPoint.Application")
appPPT.Visible = msoTrue
appPPT.Presentations.Open "C:\maPresentation.ppt"
 
'Copie une plage de cellules dans la feuille active
'Ces données vont être collées dans le classeur incorporé, dans ppt, servant
'de source pour le graphique.
ActiveSheet.Range("A1:G10").Copy
 
'Le classeur incorporé est dans le 1er Slide
With appPPT.ActivePresentation.Slides(1)
    'Boucle sur les formes pour retrouver l'objet Excel
   For Each Sh In .Shapes
        'Verifié s'il s'agit d'un objet incorporé
       If Sh.Type = msoEmbeddedOLEObject Then
            'Vérifie s'il s'agit d'une feuille graphique
           If Sh.OLEFormat.progID = "Excel.Chart.8" Then
                Set Gr = Sh.OLEFormat.Object
                'Colle les données dans la Feuil1 du classeur incorporé
               'La feuil1 contient la source de données pour le graphique
               Gr.Sheets("Feuil1").Range("A1").PasteSpecial
                'réactive la première feuille du classeur incorporé
               '(Le graphique est situé dans ce 1er onglet)
               Gr.Sheets(1).Activate
            End If
        End If
    Next Sh
End With
End Sub

quelqu'un peut il m'aider s'il vous plait ?

voici le lien du fichier :
https://skydrive.live.com/redir?resi...DqCTBtv4MRippM

[yeti7984]

j'ai un début de réponse :

en mettant le code suivant dans mon fichier PPS j'arrive via un bouton a mettre a jour mes tableaux

le voici

Code :

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

1
2
3
4
5
6
7
8
9
Dim Forme As Shape 
Dim sld As Slide 
For Each sld In ActivePresentation.Slides 
For Each Forme In sld.Shapes 
If Forme.Type = msoLinkedOLEObject Then 
Forme.LinkFormat.Update 
End If 
Next 
Next

maintenant si jamais je mets ce code dans une macro powerpoint y a-t-il possibilité de la lancée depuis excel ?