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 ?