XL 2021 Récupération de données hebdomadaire

[regis6460]

Bonjour
Je souhaite récupérer des données n'ayant pas toujours la même valeur de manière automatique et hebdomadaire
Ci joint un fichier expliquant ma demande
Merci

 

[fanfan38]

Bonjour et bienvenu sur le forum
Sur la feuille 1 tu marques que les données changent tous les jours...
Faut il sauvegarder la semaine ou le lundi uniquement?

A+ François

 

[regis6460]

Bonjour et bienvenu sur le forum
Sur la feuille 1 tu marques que les données changent tous les jours...
Faut il sauvegarder la semaine ou le lundi uniquement?

A+ François

Bonjour,
Une seule journée me convient pour le moment, donc Lundi
Regis

 

[fanfan38]

Voir fichier joint
A+ François

 

[sylvanu]

Bonjour Regis, fanfan,
Un essai en PJ si j'ai bien compris. Si on est le bon jour on sauvegarde les données en feuil2. Avec :

Sub Copie()
'2 lundi, 3 mardi, 4 mercredi, ..., 7 samedi, 1 dimanche
If Weekday(Date) <> 2 Then Exit Sub                         ' Si ce n'est pas le bon jour on sort.
With Sheets("Feuil2")
    If Application.CountIf(.[A:A], Date) > 0 Then Exit Sub  ' Les infos de cette date ont déjà été enregistrées
    L = 1 + .Cells(Rows.Count, "B").End(xlUp).Row           ' Ligne vide où écrire
    .Cells(L, "A") = Date                                   ' Ecriture
    .Cells(L, "B") = [B1]
    .Cells(L, "C") = [B2]
    .Cells(L, "D") = [B3]
End With
End Sub

Pour tester il faut modifier le "2" dans le IF. Par ex pour le Samedi mettre 7.
Si les données ont déjà été enregistrées alors on ne fait rien.

 

[regis6460]

Voir fichier joint
A+ François

Merci,

Simple en fait, je suis novice !! mais je progresse
Bonne journée

 

[fanfan38]

RAPPEL
2.10 - Évitez de poser votre question sur plusieurs forums sur Internet, cette pratique s'appelle « cross posting" et elle peut être mal perçue par les membres répondant aux questions. Si vous avez déjà posté votre question ailleurs, que vous n'avez pas de réponse satisfaisante et que vous voulez la reposter sur XLD, par respect pour ceux qui vous répondent sur ce forum, supprimez ou fermez votre discussion sur l'autre forum ou pour le moins, mettez un lien vers l'autre forum dans votre post afin d'informer que vous avez aussi fait une demande ailleurs.
Cela fonctionne aussi dans l'autre sens si vous souhaitez poser votre question ailleurs.
A+ François