Discussion :

[ProgElecT]

Salut
Ligne 32, un guillemet en trop.

[hadrien2811]

salut,

effectivement mais ça ne marche toujours pas

[ProgElecT]

Que donnerait le code simplifié suivant ?

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
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

[hadrien2811]

non toujours pas .

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

[Miistik]

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

Le code de ProgElecT

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
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 ?

[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.

[hackoofr]

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 :

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
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

[hadrien2811]

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

[hackoofr]

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

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
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

[hadrien2811]

Merci a tous le code marche enfin ca fais plaisir

[hackoofr]

Merci a tous le code marche enfin ca fais plaisir

Ou sont-ils les +1 pour les contributeurs et marquez bien la discussion en