[XL-2003] Insérer dans différents fichier selon le mois [Résolu]

[Djromé]

Salut les Kracks,

J'ai un fichier que je place au quotidien sur un drive (une macro me fait la transformation et me la sauvegarde au bon endroit), cependant, pour une question d'archivage, je souhaiterai que le Workbook du jour aille se placer dans le fichier correspondant au mois et à l'année en cours (en rouge dans mon exemple):

Code :

1
2
3
4
5
6
ChDir _
        "X:\February 2010"'du genre Format("mmmm") & _ & "yyyy")
    ActiveWorkbook.SaveAs Filename:= _
        "X:\February 2010\" & "Mon classeur" & Format(Date, "ddmmyyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Comme le workbook est toujours celui du jour 04022010, il suffit donc de pouvoir moduler de la même manière les classeurs des mois, la difficulté est dans le fait que ceux-ci doivent se nommer: February, March etc... à la place 02 2010, 03 2010 etc...

Merci

[Fvandermeulen]

Salut
Et pourquoi pas un Select Case? Du genre

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim LeMois As String, LeFolder As String
 
Select Case Month(Date)
    Case Is = 1
        LeMois = "January "
    Case Is = 2
        LeMois = "February"
    'Et ce pour les 12 mois
End Select
 
LeFolder = "X:\" & LeMois & " " & Year(Date)

A+

[Djromé]

Merci pour ton aide!

Bonjour Vandermeulen,

J'ai déclaré mes variables et tous semble fonctionner.
Cependant, je pense que je ne connais pas la syntaxe qui va avec une variable pour la fonction ACtiveworkboo.saveas Filename

Pour le ChDir, il m'indique bien le chemin voulu, mais il me met le code aprés en erreur (en rouge ici):

Code :

1
2
3
4
5
6
ChDir _
        LeFolder
    ActiveWorkbook.SaveAs Filename:= _
       "LeForder\" & "Mon report " & Format(Date, "ddmmyyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

D'avance merci

[Fvandermeulen]

Salut,
De deux choses l'une, tu as écrit LeForder au lieu de LeFolder.
De plus tu l'as mis en guillements, donc est considéré comme du text et non plus comme une variable, la bonne syntaxe:

Code :

1
2
3
4
5
6
ChDir _
        LeFolder
    ActiveWorkbook.SaveAs Filename:= _
       LeFolder & "\" & "Mon report " & Format(Date, "ddmmyyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

A+

[Djromé]

Merci Frédéric,

Je me suis un peu emmêlé les pinceaux avec les " et les &...


Bonne journée