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
Xti-Basque Messages postés 33 Date d'inscription Statut Membre Dernière intervention - 7 déc. 2020 à 22:14
A voir également:
- Lignes non vides et date VBA
- Comment supprimer les pages vides sur word - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Airpods 3 date de sortie - Guide
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
1 réponse
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 :
qu'il m'ajoute la date sur le nom de fichier
remplacer :
par :
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 :-)