Ouvrir une UF et recupérer des infos du document powerpoint actif

[xcbilx]

Bonjour

Je souhaite ouvrir une userform dans powerpoint et recupérer à partir de celle-ci (en vba) des données (label; textbox) présents dans un des slides du pwp actif.

créer et ouvrir une userform : OK
Récupérer des données présentes dans un des slides du pwp à partir de la la UF : KO

d'avance merci pour votre aide

[Philippe JOCHMANS]

Bonjour

Quel type de données veut tu récupérer ?

En effet, pour récupérer des données, il faut avoir le nom de tes éléments (Formes, zone de textes).

Hors dans PowerPoint il n'est pas possible de nommer un éléments (sauf à partir de PowerPoint 2007 où cette fonction a été implantée). Le seul moyen est de le faire par du code VBA.

En attendant d'avoir plus d'informations, voici une petite boucle qui te permet de lister les éléments d'une diapositive.

Public Sub ListerShapes()
    ' ===== Cette routine permet de lister les éléments d'une diapostive =====
    Dim shp As Shape
    For Each shp In Application.ActivePresentation.Slides(1).Shapes
        MsgBox shp.Name
    Next shp
End Sub

Starec

[xcbilx]

Bonjour

merci pour ta réponse.

J'ai inséré le code dans ma UF et effectivement je récupère le nom des éléments présents dans le silde

Mais ce que je souhaite, c'est récupérer la valeur d'une Textbox et egalement la légende (caption) d'un Label présent dans le slide

Pour info la valeur de la textbox n'est évidement pas toujours identique

Merci

[Philippe JOCHMANS]

Bonjour

Une fois que tu as récupéré les noms de tes contrôles (zone de texte et label), sur l'évènement Activate de ton UserForm tu colles le code suivant :

Me.LaZoneDeTexteUserForm.Text = Slide1.TextBoxSlide.Value
Me.LaCaptionUserForm.Caption = Slide1.LabelSlide.Caption

Avec

• LaZoneDeTexteUserForm une zone de texte de ton userform
• TextBoxSlide le nom de la textbox sur ton slide (ici le slide1)
• LaCaptionUserForm un label de ton userform
• LabelSlide le nom de l'étiquette sur ton slide

est-ce que cela répond à ta question ?

Starec

[xcbilx]

Bonjour

Merci Starec ça marche nickel je n'avais pas trouvé dans la doc la fonction slide1.... merci bcp

[Philippe JOCHMANS]

Bonjour

J'ai ouvert une autre discussion avec ta deuxième question http://www.developpez.net/forums/sho...d.php?t=530003.

Merci de ne poser qu'une question par discussion
Si ce problème est résolu, merci de cliquer sur le bouton en bas de cette discussion.

Starec