Dates selon semaine sur plsieurs feuilles

Bonjour,

Je voudrais créer un fichier qui contiendrait 52 feuilles (une par semaine) nommées SEM 01 à SEM 52

Sur chacune des feuilles, j'aurais besoin de 7 colonnes reprenant du LUNDI au DIMANCHE avec en dessous leurs dates respectives.

J'ai un petit bout de VBA pour nommer mes différentes feuilles ; y aurait-il moyen d'extraire le numéro (01 de la SEM 01, etc) afin de l'appliquer aux dates de mes colonnes ?

Ou par tout autre moyen, je suis ouvert à toutes les propositions.

Merci de votre aide

Bonjour,

Merci de joindre un fichier avec le modèle de feuille souhaité.

Cdlt.

Re,

Une première réponse.

Cdlt.

14simkmil.xlsm (29.66 Ko)

Merci beaucoup,

Je vais vous envoyer un exemple de ce que je cherche demain, car je ne suis plus sur mon pc mais sur mon iPad. Et ici je ne sais pas ouvrir votre exemple.

Je reviens dessus lundi matin, mais répondez moi lorsque vous en avez le temps.

Bonne soirée

Daniel

Super Merci !!

c'est exactement ce que je cherchais.

Je vais maintenant préparer mon modèle; c'est en fait une feuille hebdomadaire reprenant les ventes et les encaissements en mettant la liste des clients dans la première colonne (clients réguliers, servis deux à trois fois par semaine)

de là, je fais des totaux, des classements etc

Merci beaucoup de votre aide, ces trois dernières années, j'avais fais un modèle, recopié 52 fois et chaque semaine, je changeais les dates; il me semblait qu'il devait y avoir un moyen d'automatiser tout cela et voilà, grace à vous j'y suis.

Re,

Merci pour ce retour.

Pense à clore le sujet.

A bientôt.

Cdlt.

Bonjour, je reviens vers vous, car la fin de l'année approche et je voudrais mettre mon petit programme en route dès le début janvier.

Le code que j'ai reçu fonctionne parfaitement

Public Sub Create_Worksheets()

Dim ws2 As Worksheet

Dim iYear As Integer, iWeek As Integer

Dim i As Byte

Dim dt As Date

Application.ScreenUpdating = False

Set wb = ActiveWorkbook

Set ws = wb.Worksheets("Sommaire")

iYear = ws.Cells(2, 1).Value

iWeek = DatePart("ww", DateSerial(iYear, 12, 28), 2, 2)

For i = 1 To iWeek

Set ws2 = wb.Worksheets.Add(after:=Worksheets(wb.Worksheets.Count))

dt = 7 * i + DateSerial(iYear, 1, 3) - Weekday(DateSerial(iYear, 1, 3)) - 5

With ws2

.Name = iYear & "W" & Format(i, "00")

With .Cells(1)

.Value = ws2.Name

.Font.Bold = True

End With

With .Cells(3, 1)

.Value = dt

.DataSeries rowcol:=xlRows, Type:=xlChronological, Date:=xlDay, stop:=dt + 6

End With

End With

Next i

ws.Activate

Set ws = Nothing: Set wb = Nothing

End Sub

mais je n'arrive pas à l'adapter à mon cas.

  • d'abord, dans la 1ere colonne (A) j'ai la série de noms de clients
  • ensuite, pour chaque jour j'ai besoin de deux colonnes (une pour les ventes et une pour les encaissements)
je vous joins mon fichier actuel qui fonctionne bienpour 2018, j'aurais voulu me simplifier la vie pour 2019 en automatisant un max de tâches. Merci de votre aide.

Bonjour,

Clos le sujet (mettre sous résolu) et ouvre un nouveau sujet.

Cdlt.

Merci du conseil mais je ne vois pas comment mettre en résolu !

merci

Re,

Regarde le corps du message en haut à droite (je pense ).

Rechercher des sujets similaires à "dates semaine plsieurs feuilles"