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.