date de la veille hors week end

[julball]

Bonjour

Je souhaiterais mettre en automatique dans une cellule la date de la veille, mais pour le cas du lundi, il faudrait que ce soit la date du vendredi.
jusque le AUJOURDHUI()-1 ça va! mais le lundi il me met la date du dimanche!
Quelqu'un peut m'aider SVP?
Merci d'avance

 

[Efgé]

Re : date de la veille hors week end

Bonjour,
Par macro à mettre dans le Thisworkbook:

Private Sub Workbook_Open()
'Renseigner par défaut la date à la veille ou pour le lundi au vendredi
If Weekday(Date, vbMonday) = 1 Then
Sheets(1).Range("I1").Value = DateAdd("d", -3, Date)
Else
Sheets(1).Range("I1").Value = DateAdd("d", -1, Date)
End If
End Sub
Cordialement

 

[hoerwind]

Re : date de la veille hors week end

Bonjour,

=SERIE.JOUR.OUVRE(AUJOURDHUI();-1)
Il faut cocher l'Utilitaire d'Analyse sous le menu Outils - Macros complémentaires.

 

[julball]

Re : date de la veille hors week end

Merci de la réactivité,
qu'est-ce que le Thisworkbook, SVP?
je ne suis pas un crack d'excel désolé!
Merci encore

 

[julball]

Re : date de la veille hors week end

super le =SERIE.JOUR.OUVRE(AUJOURDHUI();-1) marche nickel!
merci merci merci

 

[Efgé]

Re : date de la veille hors week end

Re
Pour l'avoir par formule en mettant préalablement la cellule au format date:
=SI(JOURSEM(AUJOURDHUI();2)=1;AUJOURDHUI()-3)
Cordialement

 

[hoerwind]

Re : date de la veille hors week end

Salut Efgé,

J'ai interprété la question :
mais pour le cas du lundi, il faudrait que ce soit la date du vendredi.
comme suit :
mais pour le cas des lundis, dimanches et samedis, il faudrait que ce soit la date du vendredi précédent.
Si mon interprétation n'est pas exacte, la formule proposée est également fausse.

 

[Efgé]

Re : date de la veille hors week end

Bonjour hoerwind,
Je pense que votre solution est préférable. si ce classeur est ouvert un Week-end (pourquoi pas) ma formule ne prendra pas en compte les Dimanche et Samedi.
De toute façon julball fera son choix suivant ses réels besoins.
Cordialement