Utiliser une variable PowerPoint dans Excel (VBA)

Question

J'ai une présentation PowerPoint et un fichier Excel. Dans mon PPT j'utilise une variable publique Public cnt As Long et les deux fonctions suivantes pour ajouter à cnt ou soustraire (comme exemple):

Private Sub CommandButton1_Click() 
cnt = cnt + 1 
Me.CommandButton3.Caption = "cnt up = " & cnt 
End Sub 


Private Sub CommandButton2_Click() 
cnt = cnt - 1 
Me.CommandButton3.Caption = "cnt down = " & cnt 
End Sub 

Les utilisateurs cliquent sur un des deux boutons pendant le salon PPT qui ajoutera ou soustraire à partir de la variable cnt. Ainsi, pendant le spectacle PPT cnt peut changer de 1 à 2 puis à 3 et ainsi de suite.

Ce que je veux est de documenter la valeur de cnt dans un fichier Excel. Ainsi, par exemple lors de la PPT show valeur de cnt devrait être montré dans la cellule "A1". Est-ce possible?

Answer 1

Voici un exemple de liaison tardive: (cela va dans Powerpoint VBA)

Option Explicit 

Public braX As Integer 

Public Sub test() 
    braX = 10 
    Dim xlApp As Object 
    Dim xlBooks As Object 
    Dim xlBook As Object 
    Dim xlSheet As Object 
    Set xlApp = CreateObject("Excel.Application") 
    xlApp.Visible = True 
    Set xlBooks = xlApp.workbooks 
    Set xlBook = xlBooks.Add() 
    Set xlSheet = xlBook.Worksheets(1) 
    xlSheet.Range("A1") = braX 
End Sub