Lignes non vides et date VBA

Résolu/Fermé

Xti-Basque Messages postés 34 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 7 décembre 2020 - Modifié le 3 déc. 2020 à 17:19
Xti-Basque Messages postés 34 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 7 décembre 2020 - 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:

Lignes non vides et date VBA
Afficher toutes les lignes masquées excel ✓ - Forum Excel
En ligne sur messenger alors que non ✓ - Forum Facebook Messenger
Vba range avec variable ✓ - Forum VB / VBA
Publipostage date en anglais ✓ - Forum Excel
Publipostage date inversée ✓ - Forum Word

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
7 déc. 2020 à 11:22

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 34 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 7 décembre 2020
7 déc. 2020 à 22:14

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

Discussions similaires

Excel VBA : Derniere colonne utilisée

Pix

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

EXCEL : Supprimer des lignes vides à la fin

Discussions similaires

Newsletters