Discussion :

[khech]

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 :

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
 
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.

[eric4459]

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

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
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

[parmi]

Bonjour,

On aurait aussi pu utiliser SaveCopyAs pour conserver le fichier principal intact. Par la suite, on pourrait supprimer cette copie.

[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

[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

[khech]

Effectivement,
avec ça il marche:

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
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.