Bonjour !
Voila, je suis en train de créer un fichier excel de "monitoring". Ce fichier utilise plusieurs macro afin de récupérer des infos venant de plusieurs fichiers Excel différents.
Pour cela, j'utilise la fonction "Scripting.FileSystemObject" afin de parcourir mes différents fichiers et récupérer les datas qui m'intéressent.
Le fonctionnement global est le suivant :
Code :
- Set Fso = CreateObject("Scripting.FileSystemObject" )
- Set NomDossier = Fso.GetFolder(FolderFichiersExcelAParcourir)
- For Each objFichier In NomDossier.Files
- ActiveWorkbook.Sheets(FEUILLE1).Cells(FEUILLEDESTINATION, 2).Value = objFichier.Name
- """
- """
- """
- Next objFichier
|
Mes infos sont bien récupérées et tout fonctionne bien, SAUF le fait que tous ces fichiers Excel que je parcoure semblent rester ouverts en "fond" après l'éxecution de la macro. Si je ne quitte pas le fichier de monitoring d'où sont qui récupére les infos, je ne peux ouvrir les autres fichiers Excel qui sont parcourus qu'en Lecture seule.
J'ai tenté de mettre :
NomDossier.Close
En fin de fonction, avant ou après le Next mais VB me sort une erreur : "Object doesn't support this property or method
Quelqu'un aurait une idée de la manière de procéder ?
Merci d'avance !
Message édité par hyperboleske le 29-09-2010 à 11:04:23