XL 2013 [Résolu] Piloter feuille de calcul dans powerpoint

[Polobe36]

Bonjour à tous, le forum,

Dans une présentation powerpoint, j'ai une feuille de calcul (nom de l'objet = Objet_1, nom de la feuille = Feuil1).
Dans cette feuille de calcul, j'aimerai que la valeur de la cellule a1 soit égale à la valeur d'une cellule d'un classeur excel (nom classeur = Classeur_1, nom de la feuille = Feuil2, cellule b3)

Auriez-vous une idée du code à écrire pour arriver à cela? Merci par avance

 

[Polobe36]

Bonjour,

Voici ce que j'utilise pour mettre du texte dans une zone de texte de ma présentation, mais je ne sais pas comment agir sur la feuille de calcul intégrée dans ma présentation.
Quelqu'un aurait-il une idée?

With PptDoc
                Texte_1 = sheets("Feuil2").range("b3").value
                With .Slides(1).Shapes("Objet_2").TextFrame.TextRange
                    .Text = Texte_1
                    .Font.Size = 11
                End With
End With

 

[Yurperqod]

Bonjour le forum

Avec ce code , ci-dessous la valeur de test est bien mise dans l'object Excel

Sub Macro1()
Dim test
test = "ABC123"
ActivePresentation.Slides(1).Shapes(1).OLEFormat.Object.Worksheets(1).Range("A1").Value = test
End Sub

Ta macro sera lancée à partir d'Excel ou de Powerpoint ?

 

[Yurperqod]

Avec le fichier EXCEL déjà ouvert, cette macro fonctionne sur mon ordi
(La macro est dans Powerpoint avec la référence à la librairie Excel est cochée)
Macro testée avec une seule diapositive qui contient un objet Feuille Excel

Sub Macro2()
Dim Classeur As Excel.Workbook
Set Classeur = GetObject("C:\NOMDOSSIER\Classeur_1.xls") 'à changer avec le bon nom de dossier
ActivePresentation.Slides(1).Shapes(1).OLEFormat.Object.Worksheets(1).Range("A1").Value = Classeur.Sheets(2).Range("B3").Value
End Sub

 

[Polobe36]

Bonsoir Yurperqod,

Je suis vraiment désolé, je n'ai pas reçu de mail concernant ta réponse à la discussion.. (bizarre )
J'essaie ta solution dès demain et te tiens au courant. La macro est lancée depuis mon classeur Excel.
Merci en tout cas pour l'aide apportée.

 

[Polobe36]

bonjour Yurperqod,

Merci beaucoup pour ton aide, les deux solutions fonctionnent parfaitement.
J'ai choisi la 1ère solution, simple, efficace.

Au plaisir