Lignes non vides et date VBA

Résolu

Xti-Basque Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Xti-Basque Messages postés 33 Date d'inscription Statut Membre Dernière intervention - 7 déc. 2020 à 22:14

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

A voir également:

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 759

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"

Xti-Basque Messages postés 33 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

EXCEL : Supprimer des lignes vides à la fin

je cherche la date et le lieu de naissance d une personne

Problème publipostage date de naissance

Excel VBA : Derniere colonne utilisée

Connaitre la date d'une photo.

Votre réponse

Discussions similaires