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

[VE2LY]

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

 

[Paf]

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

MaSemaine = Format(Date, "ww", , vbFirstFourDays)

Pour la date du lundi de la semaine en cours

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]

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