Discussion :

[Novice_vba]

Bonjour à tous,

J'ai vu sur le forum qu'il était possible de récupérer le nom du créateur du fichier excel sur lequel on travaille via la fonction : ActiveWorkbook.BuiltinDocumentProperties("Author").Value

Est-ce possible de faire la même chose, mais:
- A partir d'un fichier excel: récupérer le nom de l'auteur d'un fichier Powerpoint (pour lequel on a le "nom" et le "repertoire") ?
- A partir d'un fichier excel : récupérer la date de sauvegarde de ce fichier ?

Merci beaucoup à ceux qui pourront m'aider et aux autres pour avoir pris le temps de me lire,

B.

[halaster08]

Bonjour,

Pour l'auteur je ne sais pas, mais pour les dates j'utilise filedatetime, info ici: https://msdn.microsoft.com/fr-fr/lib...(v=vs.90).aspx

[antonysansh]

Bonjour,

Active la référence Microsoft PowerPoint XX.X et exécute le code suivant :

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
Sub test()
    Dim oPPT As New PowerPoint.Application, oPres As PowerPoint.Presentation, i&
    On Error Resume Next
        Set oPres = oPPT.Presentations.Open("C:\***\EL_PRESENTATION modele.pptx")
        With oPres
            For i = 1 To .BuiltinDocumentProperties.Count
                Debug.Print "Indice de propriete : " & i
                Debug.Print "Propriete : " & .BuiltinDocumentProperties(i).Name
                Debug.Print "Valeur : " & .BuiltinDocumentProperties(i).Value
                Debug.Print "------------------------------------"
            Next i
        End With
fin:
    Set oPPT = Nothing
    Set oPres = Nothing
End Sub

Et regarde la fenêtre d'exécution (Ctrl + g)

[Novice_vba]

Bonjour Antonysansh,

Vraiment merci beaucoup pour l'astuce, c'est exactement ce qu'il me fallait !

J'aurais une autre demande un peu similaire:
En lançant le programme, j'ai vu que l'une des propriétés était "Keywords". Or justement la prochaine étape de mon projet est de scanner les objets texte du document powerpoint pour essayer d'en récupérer des mots clefs déjà définis (sous Excel). Sur le net, on explique assez peu comment marche cette propriété, ce ne correspondrait pas par hasard à ma demande ?
Si ça ne correspond pas, auriez-vous une idée de la manière dont je pourrais m'y prendre ? (je peux aussi créer un autre sujet si vous préférez).

Encore merci !

[antonysansh]

La propriété Keywords d'une présentation permet juste de la rechercher plus rapidement en faisant des recherche de fichier par mots-clés.

Comme sur l'image ci-dessous qui affiche les informations d'un fichier dans l'Explorateur Windows.


Donc rien à voir avec ce que tu cherches je penses.

Je te conseil d'ouvrir une autre discussion sur ce sujet.


Voila quand même un exemple qui va pouvoir t'inspirer :

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
35
36
37
38
39
40
Sub Test()
    'Declaration variables
    Dim oPPT As New PowerPoint.Application
    Dim oPres As PowerPoint.Presentation
    Dim oSlide As PowerPoint.Slide
    Dim oShp As PowerPoint.Shape
    Dim oTextRg As PowerPoint.TextRange
    Dim oTrouve As PowerPoint.TextRange
    Dim Recherche$: Recherche = "******" 'definition du mot a chercher (remplacer les *)
 
    'ouverture du PPT
    Set oPres = oPPT.Presentations.Open("ici le chemin vers le PPT")
    'Pour chaque Slide
    For Each oSlide In oPres.Slides
        'Pour chaque objet tracés
        For Each oShp In oSlide.Shapes
            'Si c'est une zone de texte
            If oShp.HasTextFrame Then
                'je cherche et boucle a l'interieur
                Set oTextRg = oShp.TextFrame.TextRange
                Set oTrouve = oTextRg.Find(Findwhat:=Recherche)
                While Not (oTrouve Is Nothing)
                    With oTrouve
                        Debug.Print Recherche & " est trouvé dans la zone de texte nommée """ & oShp.Name & """ sur le slide " & oSlide.SlideNumber & " en position " & .Start
                        Set oTrouve = oTextRg.Find(Findwhat:=Recherche, After:=.Start + .Length - 1)
                    End With
                Wend
            End If
        Next
    Next
fin:
    'liberation des variables avec close de la presentation et quit de l'appli PPT
    oPres.Close
    oPPT.Quit
    Set oPPT = Nothing
    Set oPres = Nothing
    Set oSlide = Nothing
    Set oShp = Nothing
    Set oTextRg = Nothing
End Sub

[Novice_vba]

Bonjour Antonysansh,

Remerci !
Je peux adapter le bout de code donné ! Je n'ai pas réellement besoin d'ouvrir un autre post grâce à toi (et je ne vais pas abuser des contributeurs du forum en demandant une solution clef en main)

Bonne journée !