Question SaveAs -- Csv

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & "exp37_" & Day(Now()) & _ "." & Month(Now()) & "." & Year(Now()) & ".csv", FileFormat:=xlCSV, _ CreateBackup:=False, local:=True

Bonjour,

Il faut dupliquer d'abord la feuille que vous voulez transformer en .CSV sur un nouveau classeur, puis supprimer la ligne avant de sauvegarder sous.

Code:

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
Sub SauvegarderFeuilleEnCsv()
 
Dim Wb As Workbook
 
    Set Wb = ActiveWorkbook
 
    Sheets("FeuilleADupliquer").Copy
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
 
 
    ActiveWorkbook.SaveAs Filename:=Wb.Path & "/" & "exp37_" & Day(Now()) & _
       "." & Month(Now()) & "." & Year(Now()) & ".csv", FileFormat:=xlCSV, _
       CreateBackup:=False, local:=True
 
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
 
    Wb.Activate
 
    Set Wb = Nothing
 
 
End Sub

Cordialement.