Discussion :

[hedidev1]

Bonjour,

le principe est d'ecrire dans le slide i s'il existe sinon on ajoute des slides judqu'au slide i et on ecrit. Helas il n'ecrit pas au bon slide pour l'instant.

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
Function bPptType(oPptDoc As Object, sTitre As String, _
                            sTexte As String, lSlide As Long) As Boolean
 
bPptType = True
 
Dim lNbSlides As Long
lNbSlides = oPptDoc.Slides.Count
 
On Error GoTo errorHandler
 
If lNbSlides >= lSlide Then
 
    oPptDoc.Slides(lSlide).Shapes.Title.TextFrame.TextRange = sTitre
    oPptDoc.Slides(lSlide).Shapes.Placeholders(2).TextFrame.TextRange = sTexte
 
ElseIf lNbSlides < lSlide Then
 
 
    For i = lNbSlides + 1 To lSlide
        oPptDoc.Slides.Add Index:=1, Layout:=ppLayoutText
    Next
    oPptDoc.Slides(lSlide).Shapes.Title.TextFrame.TextRange = sTitre
    oPptDoc.Slides(lSlide).Shapes.Placeholders(2).TextFrame.TextRange = sTexte
End If
 
errorHandler:
    bPptType = False
 
End Function

Merci !

Petit changement dans le code mais ca ne marche toujours pas.

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
Function bPptType(oPptDoc As Object, sTitre As String, _
                            sTexte As String, lSlide As Long) As Boolean
 
bPptType = True
 
Dim lNbSlides As Long
lNbSlides = oPptDoc.Slides.Count
 
On Error GoTo errorHandler
 
If lNbSlides < lSlide Then
 
For i = lNbSlides + 1 To lSlide
        oPptDoc.Slides.Add Index:=1, Layout:=ppLayoutText
    Next
End If
    oPptDoc.Slides(lSlide).Shapes.Title.TextFrame.TextRange = sTitre
    oPptDoc.Slides(lSlide).Shapes.Placeholders(2).TextFrame.TextRange = sTexte
 
errorHandler:
    bPptType = False
 
End Function

[hedidev1]

Probleme resolu, index:=i.