Lignes non vides et date VBA [Résolu]

Signaler
Messages postés
34
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
7 décembre 2020
-
Messages postés
34
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
7 décembre 2020
-
Salut :)

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

1 réponse

Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 550
Bonjour,

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"
Messages postés
34
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
7 décembre 2020

C’était effectivement l’inverse !
Merci beaucoup :-)