traitement de données 365 classeur excel.

**Damienchaff** · 24/06/2014, 14h27

Bonjour,

Je suis débutant en programmation VBA excel.

je dois faire une étude statistique qui contient 365 classeur excel (un par jour...)ayant tous le même format.

le nom de ces fichiers sont sous cette forme: année_mois_jour

les données qui m'interressent sont sur une feuille de chaque classeur, cette feuille a toujours le même nom.
"feuille de garde"

mon idée premiere est de copier les 365 feuilles dans un nouveau fichier qui s'appelle "projet feuille de garde"

donc il me faudrait une commande qui dit:

ouvrir tous les fichier du repertoire...ca c'est fait
sélectioner dans classeur "2014_01_01" la feuille "feuille de garde"
copier "feuille de garde" dans classeur "projet feuille de garde"
et ainsi de suite pour tout les fichier...
donc il me faut une boucle qui me permette "d'incrémenter" mon nom de fichier (variable????)

voila pour une premiere...merci du coup de main

**goldstar** · 24/06/2014, 16h01

Bonjour,

Un début de piste

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
26
27
28
29
30
31
32
33
34
35
36
 
 
Sub nom_fic()
 
Dim cpt_date As Integer
 
Dim date_deb As Date, date_fin As Date
Dim annee_date As String, mois_date As String, jour_date As String
Dim nomFic As String
 
date_deb = "01/01/2014"
date_fin = "31/12/2014"
 
While Not date_deb > date_fin
 
    annee_date = Year(date_deb)
 
    If Month(date_deb) < 10 Then
        mois_date = "0" & Month(date_deb)
    Else
        mois_date = Month(date_deb)
    End If
 
    If Day(date_deb) < 10 Then
        jour_date = "0" & Day(date_deb)
    Else
        jour_date = Day(date_deb)
    End If
 
    nomFic = annee_date & "_" & mois_date & "_" & jour_date & ".xls"
 
    date_deb = date_deb + 1
 
Wend
 
End Sub

Cordialement,