VB PoxerPoint : utilisation de variable

Bonjour,

voici mon script :

Dim nbdiaop As String

nbdiapo = 1

If nbdiapo = 1 Then:


ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName­:="C:\Documents and Settings\Tybot\Mes documents\PPE\MOT\JULES HAAG (nbdiapo).jpg", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-259, Top:=76, Width:=1241, Height:=388).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.79, msoFalse, msoScaleFromBottomRight
.ScaleHeight 0.79, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.73, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.73, msoFalse, msoScaleFromBottomRight
End With

nbdiapo = nbdiapo + 1

ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=nbdiapo, Layout:=ppLayoutBlank).SlideIndex



If nbdiapo = 115 Then:
Stop

--------------

Ma question est comment faire pour mettre une variable dans le nom du fichier à importer ?

Merci d'avance pour toute réponse
Tybot