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+