[VBA] Afficher la date du vendredi

[invited8344905]

Bonjour,

Je vous explique la situation: je réalise des audits chaque vendredi de chaque semaine. Je me suis créé un fichier excel où pour chaque semaine j'ai un onglet avec la grille d'audit et les résultats associés.

Afin de simplifier mon travail, j'ai créé une macro permettant la copie de l'onglet de ma grille d'audit vierge. Pour cela, j'ai créé un bouton qui ouvre un User Form où l'utilisateur rentre le numéro de semaine et clique sur valider (ou quitter pour sortir).

Voila le code (qui fonctionne):

Private Sub CommandButton1_Click()

    UserForm1.Hide
    
    Dim Sem As Integer
   
    Sem = TextBox1.Value
    
    Sheets("Template").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    ActiveSheet.Name = "Sem " & Sem
    Range("B2").Value = "Déchargement " & Date
    
End Sub

Ce que j'aimerais maintenant faire:
Dans le Range("B2"), j'ai le nom du département audité suivis de la date de réalisation de l'audit. Comme je réalise ces audits tous les vendredi de chaque semaine, je souhaite que ma "Date" me retourne directement la date du vendredi correspondant à la semaine entrée par l'utilisateur.

Mon code me retourne la date du jour (c'est à dire quand je lance la macro).

Voila voila, avez vous une idée? Merci d'avance

@ Bientôt
-----

[Spazi]

Bonjour

Dim vendredi As Date

vendredi = DateSerial(Year(Date), 1, 1)

vendredi = DateAdd("ww", (33 - 1), vendredi)

vendredi = DateAdd("w", 6 - Weekday(vendredi), vendredi)

Vous créé un objet Date, fixé au 1 janvier de l'année en cours

Vous ajouté votre nombre de semaine (ici 33 (-1 parce que les semaines commencent à 1 et non à 0))

Ensuite, vous ajouté la différence du jour de la semaine actuel moins vendredi
(Vendredi est 6, si notre date actuelle tombe un Mercredi, Weekday renverrai 4, 6 - 4 = 2, vous devez bien ajouté 2 jours pour tomber sur le vendredi de la semaine)

Je ne garantis pas que ce code fonctionne, je l'ai fait à la volée.


N'oubliez pas qu'il y a une hypothèse implicite dans votre demande, qui est que le jour d'aujourd'hui doit être la même année que la semaine que vous voulez auditer
(En clair, ce code ne marchera pas si vous demandez la semaine 52 de 2015 lorsque l'on sera le 1er janvier 2016)


Cordialement

[invite948b37db]

Vous ajouté votre nombre de semaine

Ce ne serait pas le numéro de semaine ?

sinon et puisque c'est du VBA Excel, il est possible d'utiliser les fonctions de dates du tableur mais je doute que ce soit plus simple.

[invited8344905]

Bonjour,

Merci pour ce bout de code Spazi. J'ai adapté le "33" avec ma variable "Sem" et cela fonctionne très bien

Voici donc le code au complet:

Private Sub CommandButton1_Click()

    UserForm1.Hide
    
    Dim Sem As Integer
    Dim Vendredi As Date
   
    Sem = TextBox1.Value
    
    Sheets("Template").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Select
    ActiveSheet.Name = "Sem " & Sem
    
    Vendredi = DateSerial(Year(Date), 1, 1)
    Vendredi = DateAdd("ww", (Sem - 1), Vendredi)
    Vendredi = DateAdd("w", 6 - Weekday(Vendredi), Vendredi)
    
    
    Range("B2").Value = "Déchargement " & Vendredi
    
End Sub

Merci

[A voir en vidéo sur Futura]