Je cherche à rajouter à ce code qu'il enlève les lignes non vides et qu'il m'ajoute la date sur le nom de fichier d'export.
Pourriez vous m'aider SVP ?
Merci !
Sub SaveAsCSV()
Dim MyFileName As String
Dim CurrentWB As Workbook, TempWB As Workbook
Set CurrentWB = ActiveWorkbook
ActiveWorkbook.ActiveSheet.UsedRange.Copy
Set TempWB = Application.Workbooks.Add(1)
With TempWB.Sheets(1).Range("A1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
'Dim Change below to "- 4" to become compatible with .xls files
MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"
Application.DisplayAlerts = False
TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
TempWB.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub
qu'il enlève les lignes non vides Ne serait-ce pas plutôt l'inverse?
Alors, il faut filtrer avant la copy.
Un exemple :
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<>"
Selection.CurrentRegion.Select
Selection.Copy
'ici le code pour coller, bla bla bla
'et on enlève le filtre :
Selection.AutoFilter Field:=2
qu'il m'ajoute la date sur le nom de fichier remplacer :
'Dim Change below to "- 4" to become compatible with .xls files
MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"
par :
'Dim Change below to "- 4" to become compatible with .xls files
MyFileName = CurrentWB.Path & "\" & Format(Date, "yyyy mm dd") & " " & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"
Merci beaucoup :-)