Encore un proble (un autre)...liste de sous dossiers->plantage word
Encore un proble (un autre)...liste de sous dossiers->plantage word - VB/VBA/VBS - Programmation
MarshPosté le 19-05-2006 à 08:44:31
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 .....
Marsh Posté le 19-05-2006 à 08:44:31
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 ?