VBS Creer un dossier avec la date du jour et y ajouté des fichiers à l'interieurs

Salut
Ligne 32, un guillemet en trop.

salut,

effectivement mais ça ne marche toujours pas :(

Que donnerait le code simplifié suivant ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

'Déclaration des variables Dim fs, DossierDate, DossierModele, Fichier   'construction du nom du dossier destination à partir de la date du jour DossierDate = Year(Now) & Month(Now)   'Création de dossiers à l'aide du composant FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject")   If Not(fs.FolderExists("C:\Test\" & DossierDate)) Then 'Création de destination fs.CreateFolder ("C:\Test\" & DossierDate) End If   'récupération du dossier model Set DossierModele = fs.Getfolder("C:\Modele\")   'parcours du dossier modele For Each Fichier In DossierModele.Files If (fs.GetExtensionName(Fichier.Path) = ".xls") Then 'On copie les fichiers excel vers C:\ fs.CopyFile Fichier.Path,"C:\Test\" & DossierDate End If Next

---

non toujours pas :(.

J'ai bien la creation du dossier mais pas les fichiers Excel qui se collent dans le dossier

Peux-tu vérifier si les noms des fichiers s'affichent avec ceci :

Le code de ProgElecT

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'Déclaration des variables Dim fs, DossierDate, DossierModele, Fichier   'construction du nom du dossier destination à partir de la date du jour DossierDate = Year(Now) & Month(Now)   'Création de dossiers à l'aide du composant FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject")   If Not(fs.FolderExists("C:\Test\" & DossierDate)) Then 'Création de destination fs.CreateFolder ("C:\Test\" & DossierDate) End If   'récupération du dossier model Set DossierModele = fs.Getfolder("C:\Modele\")   'parcours du dossier modele For Each Fichier In DossierModele.Files If (fs.GetExtensionName(Fichier.Path) = ".xlsx") Then MsgBox Fichier.Name ' Modif ICI - Affichage des noms des fichiers 'On copie les fichiers excel vers C:\ fs.CopyFile Fichier.Path,"C:\Test\" & DossierDate End If Next

---

L'ensemble des fichiers sont en .xlsx ou tu as plusieurs extensions ?

Je me suis décidé à essayer le code, après avoir ajouté le & "\" en fin de ligne 23 (CopyFile ......) tous ce passe normalement chez moi.

Citation:

---

Envoyé par ProgElecT

Je me suis décidé à essayer le code, après avoir ajouté le & "\" en fin de ligne 23 (CopyFile ......) tous ce passe normalement chez moi.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit 'Déclaration des variables Dim fs, DossierDate, DossierModele, Fichier 'construction du nom du dossier destination à partir de la date du jour 'Il ne faut pas oublier le \ à la fin DossierDate = Year(Now) & Month(Now) & "\" 'Création de dossiers à l'aide du composant FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") If Not(fs.FolderExists("C:\Test\" & DossierDate)) Then 'Création de destination fs.CreateFolder ("C:\Test\" & DossierDate) End If 'récupération du dossier model Set DossierModele = fs.Getfolder("C:\Modele\") 'parcours du dossier modele For Each Fichier In DossierModele.Files If (UCase(fs.GetExtensionName(Fichier.Name))) = UCase("XLS") Then 'On copie les fichiers excel vers C:\ fs.CopyFile Fichier.Path,"C:\Test\" & DossierDate End If Next

---

non aucun fichiers ne s'affiche et il y a juste des fichiers en .xlsx

Citation:

---

Envoyé par hadrien2811

non aucun fichiers ne s'affiche et il y a juste des fichiers en .xlsx

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit 'Déclaration des variables Dim fs, DossierDate, DossierModele, Fichier 'construction du nom du dossier destination à partir de la date du jour 'Il ne faut pas oublier le \ à la fin DossierDate = Year(Now) & Month(Now) & "\" 'Création de dossiers à l'aide du composant FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") If Not(fs.FolderExists("C:\Test\" & DossierDate)) Then 'Création de destination fs.CreateFolder ("C:\Test\" & DossierDate) End If 'récupération du dossier model Set DossierModele = fs.Getfolder("C:\Modele\") 'parcours du dossier modele For Each Fichier In DossierModele.Files If (UCase(fs.GetExtensionName(Fichier.Name))) = UCase("XLS") or (UCase(fs.GetExtensionName(Fichier.Name))) = UCase("XLSX") Then 'On copie les fichiers excel vers C:\ fs.CopyFile Fichier.Path,"C:\Test\" & DossierDate End If Next

---

Merci a tous le code marche enfin ca fais plaisir

Citation:

---

Envoyé par hadrien2811

Merci a tous le code marche enfin ca fais plaisir

---

Ou sont-ils les +1 :plusser: pour les contributeurs :roll: et marquez bien la discussion en :resolu: :king: ;)