Discussion :

[bonilla]

Bonjour,

Après avoir parcouru le forum ,je bloque sur une procédure qui me permettrait de copier un slide powerpoint et de le coller sur Excel.

La dessus ,est-il possible de :

sur un slide (avec du texte ,et sous forme de tableau de 4 colonnes),de copier que 3 colonnes sur Excel ?

de faire une boucle en prenant uniquement les slides avec le titre :"Tableau de classe" ?


Merci d'avance de votre aide,

[Invité]

Bonjour

On est bien d'accord, c'est le contenu de ta diapositive et non celle-ci que tu veux transférer ?

C'est tout à fait possible, mais il faut plus de détails :

• Le titre est-il dans un zone réservée ou une simple zone de texte ?
• Tes données sont dans un tableau ou réparties dans plusieurs zones de textes ?
• Quelle est la version de PowerPoint ?
• Veux-tu faire cela à partir de PowerPoint ou d'Excel ?

Philippe

[bonilla]

Bonjour Philippe,

On est bien d'accord, c'est sur le contenu de la diapo

C'est tout à fait possible, mais il faut plus de détails :

Le titre est-il dans un zone réservée ou une simple zone de texte ?
C'est une zone de texte
Tes données sont dans un tableau ou réparties dans plusieurs zones de textes ?
C'est un tableau ; A titre perso, cela est possible dans les deux cas (ou ca change la méthode?)Quelle est la version de PowerPoint ?
2000 SP3
Veux-tu faire cela à partir de PowerPoint ou d'Excel ?
Idéalement Powerpoint ,mais pourquoi pas sur Excel (car je pense que ca sera plus simple sur excel!)

Merci de ton aide en tout cas!

[bonilla]

Bonjour,

Par rapport à mes réponses en gras, pas de pistes pour m'aider un peu ?

[JackOuYA]

bonsoir,

voila ce que je comprends du texte en gras, j'ai fais cela dans VBA-PPT, coche la référence à Excel :

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
Sub ExtraitTexte()
 Dim yaExcel As New Excel.Application
 Dim yaWk As Excel.Workbook
 Dim s As Slide
 Dim yaSa As Shape
 Dim i As Integer
 '
 ' Création Classeur
 '
 Set yaWk = yaExcel.Workbooks.Add
 yaWk.Sheets(1).Cells(1, 1) = "Slide"
 yaWk.Sheets(1).Cells(1, 2) = "Texte"
 i = 1
 For Each s In ActivePresentation.Slides
    For Each yaSa In s.Shapes
        If yaSa.HasTextFrame Then
            i = i + 1
            yaWk.Sheets(1).Cells(i, 1) = s.Name
            yaWk.Sheets(1).Cells(i, 2) = yaSa.TextFrame.TextRange
        End If
    Next
 Next
 yaExcel.Visible = True
End Sub

[bonilla]

Bonjour JackOuYA,


Merci pour ta réponse !

Si j'ai bien compris ,la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

yaWk.Sheets(1).Cells(i, 1) = s.Name

le S.Name donne le nom du titre du slide ou le numéro du slide ?
Dans ma demande ,je chercherais une boucle qui scannerait les slides et quand il trouverait le nom d'un titre de slide avec "Classe" ,il prendrait alors le textbox situé dans ce slide (ie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

yaWk.Sheets(1).Cells(i, 2) = yaSa.TextFrame.TextRange

) avec yaSa.TextFrame.TextRange qui prend le textbox

Autre question ,si dans la textrange du slide, il y a un tableau(4x4) :est-il possible de prendre les colonnes 1 et 2 uniquement ?


Merci d'avance,