Discussion :

[naoy93]

Bonjour ! j'ai un code pour exporter une feuille au format .csv

Code :

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

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

Ma question c'est de savoir s'il est possible avec cette méthode de ne pas prendre la 1ere ligne ? (nom de mes colonnes) Et si oui, comment faire ? Merci d'avance

J'ai cherché mais j'ai pas trouvé

up

C'est juste histoire de savoir, apres si c'est pas possible qu'on me le dise

[Invité]

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 :

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

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.