Exporter données filtrées en CSV avec comme nom de fichier la date du lundi

VE2LY

XLDnaute Nouveau
Bonjour le forum, après avoir fait des recherches je bute sur un problème malgré mes recherches.
Je veux exporter des données triées dans un nouveau fichier CSV chaque semaine. Ce fichier porterai le nom "export de semaine du 16 février 2015(change tout les semaine) semaine 7 (change aussi) Comme certaines semaines il n y a pas d'entrées le lundi cela me bogue un peu. En pj un fichier assez détaillé avec bug de macro inclus ;-(
Merci à l'avance pour votre support.

Yves
 

Pièces jointes

  • AJUST_CS_.xls
    118.5 KB · Affichages: 38

Paf

XLDnaute Barbatruc
Re : Exporter données filtrées en CSV avec comme nom de fichier la date du lundi

Bonjour

Pour obtenir le N° de semaine de la date en cours
Code:
MaSemaine = Format(Date, "ww", , vbFirstFourDays)

Pour la date du lundi de la semaine en cours
Code:
DateLundi = Format(DateSerial(Year(Date), Month(Date), Day(Date) - (Weekday(Date) - 2)), "dd mmmm yyyy")

Nomdufichier="export de semaine du " & DateLundi & " semaine " & MaSemaine


A+
 

VE2LY

XLDnaute Nouveau
Re : Exporter données filtrées en CSV avec comme nom de fichier la date du lundi

Merci Paf pour ta réponse, ça fonctionne a merveille. Travaillant beaucoup avec des formules je formatais mon code en français donc "jj mmmm aaaa" avec le code... et VBA aime pas. Merci encore
 

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly