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

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 ?

Reply

Marsh Posté le 19-05-2006 à 08:44:31   

Reply

Marsh Posté le 19-05-2006 à 09:07:46    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed