Bonjour à tous et merci pour votre aide.
J'expose mon problème:
J'ai un fichier excel dans lequel plusieurs graphiques contiennent plusieurs courbes.
Dans un fichier Powerpoint, j'ai lié ces graphiques afin de pouvoir les présenter sans avoir les tableaux associés relativements vilains
Jusque ici aucun souci, la où se complique la chose est que sur mes graphiques je souhaite que l'on puisse sélectionner les courbes qui nous intéressent si l'on a pas besoin de toutes les courbes. J'ai réussi à le faire grâce à des cases à cocher sur mon tableau excel, mainetenant, je voudrais pouvoir piloter ces cases à cocher depuis powerpoint. J'ai trouvé une solution qui fonctionne mais elle le fait en ouvrant un nouveau classeur à chaque fois et donc mes Graphiques ne sont plus liés entre eux. Pouvez-vous m'aider à trouver une solution qui vienne changer la valeur de ma case à cocher sans ouvrir le classeur ?
Voici le code de ma checkbox dans power point, j'ai essayé de remplacer le xlApp.Workbooks.Open par un Activate mais je n'ai pas réussi à le faire fonctionner ...
Private Sub CheckBox1_Click()
Dim xlApp As Object
Dim xlWorkBook As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open("D:\chajx022\Desktop\A transferer\Avancement\TEST\TEST.xlsm", True, False)
xlWorkBook.sheets("Feuil1").Shapes("Case à cocher 2").OLEFormat.Object.Value = CheckBox1.Value
Set xlApp = Nothing
Set xlWorkBook = Nothing
End Sub
Merci beaucoup à ceux qui prendront le temps de bien vouloir me permettre d'avancer un peu
JRC