Extrcation automatique des fichiers dans des dossiers

**vinvol** · 14/06/2012, 13h42

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

**pc75** · 14/06/2012, 15h13

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
.....
extension = fso.GetExtensionName(le_fichier)
if Right(extension, 4) = "xlsx" then
.....

**vinvol** · 14/06/2012, 15h36

Merci pc75 pour cette réponse, mais ça ne change rien.
Le fichier tourne, me renvoie la fenêtre "Terminé", mais aucun fichier ne remonte.

Si quelqu'un à une autre solution...

Vincent

**pc75** · 14/06/2012, 16h51

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
.....
extension = fso.GetExtensionName(le_fichier)
if uCase(Right(le_fichier.Name, 4)) = "XLSX" then
   MsgBox le_fichier.Name
.....

**vinvol** · 14/06/2012, 17h26

Re,

Ca ne change rien au résultat. Fenêtre "terminé" alors qu'aucun fichier ne remonte.

Je le testerai sur un autre ordinateur ce soir, pour voir si c'est lié à la configuration ou non.

Merci encore.

Vincent