Macro Word

   Bonjour a tous,
Je suis débutant en vba .
J'ai un petit souci sur ma macro et je m'en remet a vous :)
      Mon but ici est d'insérer une image dans mon document word
  comme ceci ma macro marche normalement :

     repertoire= "H:\Projet \"

    Selection.InlineShapes.AddPicture FileName:=repertoire+ "5025938.gif"

Mais je souhaiterai appeler mon image à insérer
avec une variable reference :
reference=5025938
Alors apres comment appeler mon image
repertoire+ reference+".gif"   ?????
repertoire+ reference & ".gif" ?????

Ou alors y a t'il un moyen de spécifier qu'on veut que des extensions .gif a word???
Je vous remercie.

Dim sFilename as String
Dim reference As Long
Dim repertoire As String

repertoire = "H:\projet\"
reference=5025938
sFilename = repertoire & "\" & reference & ".gif"
Selection.InlineShapes.AddPicture FileName:=sFilename

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

merci beaucoup econs