Erreur de jour dans le nom fichier lors de l'enregistrement

Bonsoir le forum,

J'ai récupéré sur le net une macro pour exporter des colonnes au format csv, que j'ai quelque peu modifiée pour avoir l'enregistrement comme suit : "FIS Lady Lundi 05 Janvier 2015.csv"

Or cela me met "FIS Lady Jeudi 05 Janvier 2015.csv" : on est pas jeudi mais lundi !!

Sub ExportCSV()
 Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
 Dim NomEtCheminFichier As String, Derlig As Long
 NomEtCheminFichier = "C:\Documents and Settings\Moi\Bureau\FIS Lady " 

&Application.WorksheetFunction.Proper(Format(Right("0" & Day(Date), 2), "dddd"))& " "& Right("0" & Day(Date), 2) & " " & 

Application.WorksheetFunction.Proper(Format(Right("0" & Month(Date), 2), "mmmm")) & " " & Year(Date) & ".csv"

Derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 Set Plage = ActiveSheet.Range("A4:B" & Derlig) '& ",H3:H" & DerLig)
    Plage.Copy
     Workbooks.Add
     ActiveSheet.Paste
     Application.CutCopyMode = False
     ActiveWorkbook.SaveAs Filename:=NomEtCheminFichier, FileFormat:=xlCSV, CreateBackup:=False
     ActiveWindow.Close
 End Sub

D'avance merci pour votre aide

Bonsoir,

Déjà je trouve qu'il y a beaucoup de "mmmm" dans ta formule...

Hum... T'es sûre de ce que tu dis ?

Moi je pense plutôt qu'il a du te faire quelque chose comme :

FIS Lady Jeudi 05 Décembre 2015.csv

Je me trompe ?

A+

Bonsoir Galopin01

Ooops tu as raison cela met bien décembre... et de plus, dans day date j'aurais dû mettre "dddd"

en mettant comme ceci,

Right("0" & Day(Date), 2) & " " & Right("0" & Month(Date), 2) & " " & Year(Date) & ".csv" 

cela me met correctement :

FIS Lady 05 01 2015.csv

Et moi je voudrais "FIS Lady Lundi 05 Janvier 2015.csv" mais comment faire pour que cela marche ?

bonsoir,

pour des string majuscule mettre :

Sub ExportCSV()
 Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$, Suite$, Fin$
 Dim NomEtCheminFichier As String, Derlig As Long
NomEtCheminFichier = "C:\Documents and Settings\Moi\Bureau\FIS Lady "
Suite = StrConv(Format(Date, "dddd"), 1) & " " & Day(Date) & " "
Fin = StrConv(Format(Date, "mmmm"), 1) & " " & Year(Date) & ".csv"
NomEtCheminFichier = NomEtCheminFichier & Suite & Fin
Derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 Set Plage = ActiveSheet.Range("A4:B" & Derlig) '& ",H3:H" & DerLig)
    Plage.Copy
     Workbooks.Add
     ActiveSheet.Paste
     Application.CutCopyMode = False
     ActiveWorkbook.SaveAs Filename:=NomEtCheminFichier, FileFormat:=xlCSV, CreateBackup:=False
     ActiveWindow.Close
 End Sub

On peut aussi mettre 2 ou 3 à la place du 1 dans

Suite = StrConv(Format(Date, "dddd"), 1) & " " & Day(Date) & " "
Fin = StrConv(Format(Date, "mmmm"), 1) & " " & Year(Date) & ".csv"

2 : pour avoir tout en minuscule

3 : pour avoir la première lettre en majuscule et les autres en minuscule...

A+

Bonjour Galopin01,

Un grand grand merci pour ton aide, c'est exactement ce que je recherchais.

Encore merci,

Bonne journée

Rechercher des sujets similaires à "erreur jour nom fichier lors enregistrement"