Discussion :

[Alexandra0907]

Bonjour voila, je veux créer un dossier qui porte comme nom l'année, la semaine et le mois et ça chaque semaine (ex: cette semaine 2008-06-23 )donc il faut que la macro soit généralisée pour qu'elle fonctionne chaque semaine et je veux enregistrer un fichier dans ce dossier qui vient de se créer.Quelqu'un a une idée ? Merci d'avance.

[Le Pierre]

Bonjour

Essaye ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
    Chemin = ActiveWorkbook.Path
    Jour = Day(Date)
    Mois = Month(Date)
    Année = Year(Date)
    NumSem = DatePart("ww", Date, firstdayofweek:=vbMonday, firstweekofyear:=vbFirstFourDays)
 
    ActiveWorkbook.SaveAs Filename:=Chemin & "\Sem" & NumSem & "-" & _
        Année & "-" & Mois & "-" & Jour & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

à plus

[la belette]

bonjour,
sinon vlà une autre proposition:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim chemin As String
Dim ladate As String
Dim lheure As String
chemin = "c:\Mes documents\"
ladate = Format(Now, "ddmmyy")
lheure = Format(Now, "hh")
 
If Dir(chemin & ladate & "_" & lheure, vbDirectory) = "" Then
MkDir (chemin & ladate & "_" & lheure)
Else
ChDir (chemin & ladate & "_" & lheure)
Filename = Application.GetSaveAsFilename(nom du fichier, "Fichier Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs (Filename)
End If

[Alexandra0907]

Merci à vous, j'ai fais un petit mix de vos 2 solutions et ça marche. Merci