Recherche:

:ccool:Pertinent en effet.

L'erreur est sur Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True) ou sur OutPut.WriteLine (Fichier.Name).


Un petit nettoyage
Dossier = "C:\Monitoring" ' A...

Si tu peux créer/écrire dans ce dossier, je ne vois pas ou cela coince.
Pourquoi des parenthèses ? OutPut.WriteLine (Fichier.Name)

Si tu es sûr du chemin et nom du fichier contenu dans Path_ListeXML
Peut être ajouter le 3° parametre Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True)

Tu ne rentres pas dans la condition If objRegex.Test(Fichier.Name) = True Then Le test renvoi False ou bien c'est l'ouverture du fichier qui est refusé ?

Et si tu remplaces la ligne 14 par
If objRegex.Test(Fichier.Name) = True Then?

Salut

Ligne 14
Set OutPut = fso.OpenTextFile(Path_ListeXML,1)
Le dernier paramétre ne devrait il pas égal à 2 (ForWriting, Ouvre un fichier en écriture) plutot que 1 (ForReading, Ouvre un...