[Debutante] Utilisation de VB pour creer des diapos Powerpoint.

Bonjour à tous et à toutes

Je cherche à générer une présentation Powerpoint via une interface VB.
J'ai trouvé sur le net un exemple de code, et je l'ai utilisé. Cela à
fonctionné pendant un temps, mais actuellement j'ai un massage d'erreur:
"Argument not optional" au niveau de :
On Error GoTo OLEConnect_Err

Set obj = CreateObject(,sClass)


Je ne suis que débutante dans l'utilisation du VB et je ne sais absolument
pas comment faire pour solutionner mon problème.
Auriez vous une idée.
Je vous en remercie d'avance.

Bonne Journée

'

Public PowerPoint As PowerPoint.Application

'Public ComNewComment As PowerPoint.NotesPage

Public sldNewSlide As PowerPoint.Slide

Public shpCurrShape As PowerPoint.Shape

Public mblnPowerPointStarted As Boolean

Public pptPres As Presentation ' Presentation Object (your PPT file).

Public pptSlide As Slide ' Slide Object (the current slide).

Public Sub Gestion_PowerPoint()


'

' Creates and runs the presentation.

'

Dim lngSlideHeight As Long

Dim lngSlideWidth As Long

'--

' Establish a connection with PowerPoint.

'--

mblnPowerPointStarted = OLEConnect(PowerPoint, "PowerPoint.Application")

PowerPoint.Visible = True

'--

' Add a new (blank) presentation to PowerPoint.

'--

Set pptPres = PowerPoint.Presentations.Add

With pptPres

.ApplyTemplate FileName:="C:\DATA\VBtest\BioABase.pot"

End With

' With ActivePresentation

' Determine height and width of slide.

With pptPres.PageSetup

lngSlideHeight = .SlideHeight

lngSlideWidth = .SlideWidth

End With

'--

' Add new slide to end of presentation.

'--

Set sldNewSlide = pptPres.Slides.Add(1, ppLayoutBlank)

With sldNewSlide

Set shpCurrShape = .Shapes.AddShape(msoShapeRoundedRectangle, 100#, 150#,
520#, 300#)

Call RectangleRond(shpCurrShape, RGB(51, 51, 255))

Set shpCurrShape = .Shapes.AddTextbox(msoTextOrientationHorizontal, 150,
160, 400, 150)

texto = DGroupProjName & vbCrLf & GeneFullName & vbCrLf

Call ajoutText(shpCurrShape, RGB(51, 51, 255), texto, 28)

Set shpCurrShape = .Shapes.AddTextbox(msoTextOrientationHorizontal, 150,
235, 400, 150)

Call ajoutText(shpCurrShape, RGB(51, 51, 255), ProjAliases, 18)

Set shpCurrShape = .Shapes.AddTextbox(msoTextOrientationHorizontal, 150,
400, 400, 150)

texto = DateMonth & ", " & DataYear

Call ajoutTextnonOmbre(shpCurrShape, RGB(51, 51, 255), texto, 24)

End With


'

' Terminates PowerPoint if this application started it.

'

Private Sub Form_Unload(Cancel As Integer)

If mblnPowerPointStarted Then PowerPoint.Quit

End Sub

Private Function OLEConnect(obj As Object, sClass As String) As Boolean

'

' Temporarily turn off error handling.

'--

On Error Resume Next

Set obj = GetObject(, sClass)

'--

' If GetObject failed, then try Create.

'--

If Err = 429 Then

'-

' Resume Error Handling.

'-

On Error GoTo OLEConnect_Err

Set obj = CreateObject(,sClass)

'-

' If this line was executed, then the app was started.

'-

OLEConnect = True

'--

' If any other error occurs, then display it and exit.

'--

ElseIf Err <> 0 Then

GoSub OLEConnect_Err

End If

Exit Function

'

' Display error message and abort.

'

OLEConnect_Err:

MsgBox Err.Description, vbCritical

' Unload Me

Exit Function

End Function