Save Excel en csv VBA

Version imprimable

Bonjour,
j'ai vraiment besoin d'aide.
Je veux enregistrer un fichier excel en CSV à partir de la ligne 4 où commence mon tableau.
Et pour le CSV je veux qu'il soit enregistré dans le même répertoire que le fichier Excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub testsCSV()
    Dim rep As String
    Dim OldName, NewName
    Dim Chemin As String, Fichier As String
    Dim monclasseur As Workbook
    Set monclasseur = ActiveWorkbook
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Range("A5").Value & "_" & Format(Date, "yyyy") & ".csv"
 
       monclasseur.SaveAs Filename:= _
       Chemin & Fichier, FileFormat:=xlCSV, _
            CreateBackup:=False
    With ActiveWorkbook
      .Sheets(1).Rows("1:3").Delete
      .Close
    End With
End Sub

Merci par avance.

Bonjour khech,
Voici un code que j'ai testé, j'ai ajouter l'enregistrement en xlsm sinon tu perdais ta macro :calim2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub testsCSV()
    Dim rep As String
    Dim Chemin As String, Fichier1 As String
 
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier1 = Application.ActiveWorkbook.Sheets("Feuil1").Range("A5").Value & "_" & Format(Date, "yyyy")
 
    Application.DisplayAlerts = False
 
 
    With ActiveWorkbook
      .Sheets(1).Rows("1:3").Delete
      .SaveAs Filename:=Chemin & Fichier1 & ".xlsm"
      .SaveAs Filename:=Chemin & Fichier1 & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    End With
 
 
     Application.DisplayAlerts = True
 
End Sub

Eric

25/06/2015, 21h18
parmi

Bonjour,

On aurait aussi pu utiliser SaveCopyAs pour conserver le fichier principal intact. Par la suite, on pourrait supprimer cette copie.
26/06/2015, 11h06
khech
Bonjour,
merci pour vos réponses,
ta solution marche très bien mais j'ai un petit souci avec une de mes feuilles,
- Sur l'oglet RP, le macro s'exécute très bien et me supprime les trois premiers ligne
- Mais sur l'onglet DI c'est pas le cas alors que c'est le même macro.
Je mets le fichier en PJ.
Par avance merci.

Pièce jointe 181611
26/06/2015, 11h34
parmi

Dans ton premier message il n'était pas question d'onglet, mais d'un classeur à sauvegarder en CSV...
Un fichier CSV, tout comme TXT n'a qu'un seul onglet.
Il faut donc procéder autrement en bouclant les feuilles, copiant chaque onglet et les sauvegardant

Effectivement,
avec ça il marche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub testsCSV()
    Dim rep As String
    Dim Chemin As String, Fichier1 As String
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier1 = Range("A5").Value & "_" & Format(Date, "yyyy")
 
    Application.DisplayAlerts = False
 
    With ActiveWorkbook
    With ActiveSheet
      .Rows("1:3").Delete
      '.SaveAs Filename:=Chemin & Fichier1 & ".xlsm"
     .SaveAs Filename:=Chemin & Fichier1 & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    End With
    End With
 
 
     Application.DisplayAlerts = True
 
End Sub

Merci bien.