[VBA] Excel - Powerpoint - Liste de texte en fonction d'une couleur

Bonjour à tous,

J'espère que vous allez bien.

Je souhaiterai réaliser un rapport généré sous Excel d'une analyse de fichier .pptx

L'idée serait de redescendre toutes les slides, identifier le texte de couleur VbBlue (dans les charts, texte, graphiques, etc) et dans Excel générer une liste qui reprennent:

• Point numéro (1,2, x)
• Page de la présentation ;
• Hyperlien vers la page de la présentation
• Titre de la page de la présentation
• Texte vbblue de la présentation

Est-ce possible ? Mieux vaut-il coder la macro sous Excel avec ouverture de fichier ou bien sous Powerpoint?

Merci pour votre aide,

Naxos

Bonjour,

Tout est possible, même coder un traitement de texte identique à Word, est-ce que le jeu en vaut la chandelle ?

Ci-joint ma contribution, j'espère qu'elle te sera utile.

Re à tous,

Voici une ébauche de code mais elle reprend pas tout

Sub Ex_blue()
'================= PARTIE CREATION FICHIER =============
Dim iFile As Integer
Dim sTempString As String
Dim PathSep As String
Dim Quote As String
Dim Comma As String
iFile = FreeFile
PathSep = "/"
Quote = Chr$(34)
Set oPres = ActivePresentation
Set oSlides = oPres.Slides

'================= PARTIE REPORT =============
Dim oSld As Slide
Dim oShp As Shape

'----- Extraction dans fichier externe -----
Open oPres.Path & PathSep & "Export.csv" For Output As iFile

' ActiveWindow.Selection.TextRange.Font.Color = RGB(0, 0, 255)

'----- Request -----
For Each oSld In ActivePresentation.Slides
      For Each oShp In oSld.Shapes
         If oShp.HasTextFrame Then
            If oShp.TextFrame.HasText Then
               With oShp.TextFrame.TextRange
                    If oShp.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 255) Then sTempString = sTempString & Quote & oShp.TextFrame.TextRange & Quote
                    Print #iFile, sTempString
                    sTempString = ""
               End With
            End If
          End If
         Next oShp
      Next oSld
    Close #iFile
End Sub

Des idées?

Merci pour votre aide,

Naxos

Merci Oxydum, je viens de voir ton message, je vais regarder ça!