Ajout d'images placées dans un dossier

[tonio44]

Bonjour,

Je cherche à ajouter toutes les images comprises dans un dossier par ordre alphabétique et/ou numérique.

J'ai commencer par ce code générer par enregistrement de macro.

  Selection.InlineShapes.AddPicture FileName:= _
        "C:\test.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True

malheureusement quand je le test, word bug. ensuite word fait une récupération etc.

Savez vous pourquoi ?
Il n'y a pas de bug pourtant quand je le fait manuellement.

2ième questions comment faire pour que dans une boucle il m'ajoute toutes les images d'un dossier sachant que je ne connais pas le nom, et le nombre d'image.

En vous remerciant.