Bonjour à tous,
 
j'ai un autre probleme...je cherche à faire une combobox qui comporte une liste de sous dossiers.... j'applique ce code :
 
 Dim filesys, demofolder, subfol, folcoll, folist
Set filesys = CreateObject("Scripting.FileSystemObject" )
Set demofolder = filesys.GetFolder("c:\Offres MSA\Images\Arguments chariots\" )
Set folcoll = demofolder.SubFolders
For Each subfol In folcoll
     
    ComboBox1.AddItem subfol.Name
 
Next
 
Le programme fonctionne quelques secondes puis tout d'un coup, il me met :
"Erreur d'execution '-2147417848(80010108)
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients"
 
Ensuite, il me met la fenetre de débogage et word plante et je n'ai plus qu'a cliquer sur terminer .....
 
Quelqu'un peut m'aider ?

Sous Word 10 (2002) Ton code tel quel tourne sans probleme.