Discussion :

[lecail65]

Bonjour,

Je viens vers vous en ce qui concerne la manipulation de texte dans une présentation PPT via VBA.

Je génère une présentation PPT à partir d'un fichier Excel, sur plusieurs slides de la présentation il y a du texte de cette forme là:

• titre1
  <!--texte1-->
• titre2
  <!--texte2-->
• titre3
  <!--texte3-->
• titre4
  <!--texte4-->

<!--textex--> : correspond à des balises que je remplace par des valeurs contenues dans la feuille Excel.

Mon soucis est le suivant : il se peut que la valeur de la balise soit Nulle ("") dans ce cas je souhaite supprimer le titre accompagné de la puce, malheureusement je n'y arrive pas.

pour le moment j'utilise le code suivant :

Code :

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

1
2
3
4
 
With pptPres.Slides(INT_SLIDE).Shapes(INT_Shape).TextFrame.TextRange
      .Replace STR_Balise, ""                       
End With

merci d'avance pour votre aide.

[Invité]

Bonjour

Pourrai-t-on avoir un bout de fichier pour tester (il faut le zipper), j'essaierais ce soir (ou demain matin), car là je n'ai pas le temps de voir en détail.

Sinon, as-tu pensé au lieu de balises de programmer carrément l'écriture complète ?

Philippe

[Arkham46]

bjr,

en faisant un boucle sur les lignes du texte du cadre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
    If STR_Value = "" Then
        For Each lLine In .Lines
            lCpt = lCpt + 1
            If Not lLine.Find(STR_Balise) Is Nothing Then
                .Lines(lCpt - 1, 2) = ""
            End If
        Next
    Else
        .Replace STR_Balise, STR_Value
    End If
End With

sinon c'est effectivement sûrement plus simple de générer le texte complet et de l'affecter au cadre, si excel a toute les infos nécessaires (c'est peut-être un template ppt qui est rempli par excel?)

[lecail65]

Oui j'utilise effectivement un template PPT et çà risque d'être lourd de réécrire chaque slide avec le code.

Je vais regarder ta solution plus attentivement.

En fait les Balises sont remplacer en premier, c'est à dire que si dans mon fichier excel j'ai une valeur alors la balise prend cette valeur sinon je remplace la balise par "".

Et dans le cas où il n'y a pas de valeur il me faut pourvoir supprimer la puce et le titre.

Merci pour la réponse

[lecail65]

Donc j'ai réussit à faire ce que je voulais, j'ai encore quelques soucis avec le foreach donc je me suis contenté d'une boucle For :

Code :

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

1
2
3
4
5
6
7
 
For i = 1 To .Lines.Count
     If Not .Lines(i).Find(STR_Balise) Is Nothing Then
        .Lines(i).Delete 'supprime la ligne courante contenant la balise 
        .Lines(i - 1).Delete 'supprime la ligne du dessus contenant le titre
     End If
Next i

Merci pour votre aide !