Bonjour,

J'espère que je susi sur le bon forum... Sinon, n'hésitez pas à me rediriger.

Ma question :
J'ai un script vbs qui me permet d'extraire tous les fichiers .pdf présent dans les dossiers/sous-dossiers/sous-sous-dossiers etc. présent dans le dossier où est enregistré le fichier .vbs.

J'ai essayé de le modifier pour l'adapter à l'extraction de fichiers .xlsx mais ça ne marche pas. Pourriez-vous y jeter un oeil et m'aider à le corriger ?

Le script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim fso, fso1, ff, dossier_racine, sous_dossier, nom_fichier, Chemin_dossier, list_dossier,Chemin_dest,ss_dossier,list_ssdossier
  Chemin_dossier = "chemin du dossier"
  Chemin_dest = "chemin du dossier"
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fso1 = CreateObject("Scripting.FileSystemObject")
   Set dossier_racine = fso.GetFolder(Chemin_dossier)
   Set list_dossier = dossier_racine.SubFolders  '= parcours CN-2000
For Each sous_dossier in list_dossier  '= parcours CN-2000
   set list_ssdossier = sous_dossier.SubFolders 
	  For Each ss_dossier in list_ssdossier '= parcours 8577y
            Set fichier = fso1.GetFolder(ss_dossier)
            Set nom_fichier = fichier.Files
	        For Each le_fichier in nom_fichier
                  extension = fso.GetExtensionName(le_fichier)
                  if  extension = "xlsx" then
                       Set  ff = fso1.GetFile(le_fichier)
		                ff.Copy (Chemin_dest)
                   end if
            Next
      Next 
 Next
 MsgBox ("Terminé")

Merci,
Vincent