un message d'avertissement pour les fins de mois

[pascal21]

bonsoir
pour des raisons pratiques je boucle le mois le dernier vendredi de chaque mois
les jours restant sont comptabilisés sur le mois suivant
je recherche le moyen d'avoir un petit message à l'ouverture du classeur d'avertissement signalant que nous sommes le dernier vendredi
je pensais à un décompte des jours restant disons une semaine avant
du style "attention plus que n jours avant fin de mois"
les dates des derniers vendredi de chaque mois étant flottantes je pense qu'il faut passer par du vba
et là!! déja que j'ai du mal avec certaines formules
donc si vous aviez une solution pas trop casse tete; je prends
merci

 

[jeanpierre]

Re : un message d'avertissement pour les fins de mois

Bonsoir Pascal,

Tu nous fais quoi ?

Un fil, (le même) et avec des réponses... https://www.excel-downloads.com/threads/une-formule-pour-les-fins-de-mois.70931/

Si tu veux avoir des difficultés de suivi, et perdre les contributeurs dans leurs interventions, c'est la meilleure manière !!!!😡

Tu restes sur le même fil, même si les réponses ne te conviennent pas, auquel cas, tu l'expliques....

Allez bonne soirée tout de même.

Jean-Pierre

 

[pascal21]

Re : un message d'avertissement pour les fins de mois

bonsoir jean pierre
en effet il peut sembler que le sujet est identique
en fait il s'agit de la suite logique du post que tu désignes et auquel j'ai répondu que la solution apportée par jean marie me convenait et je remerciais même les autre personnes de m'être venu en aide
donc comme ce sujet me parraissait clos (encore que ce n'est pas une notion utilisée sur ce forum, puisque les sujets restent ouvets pour d'autres personnes pour l'avenir) j'ai à nouveau posté pour cette nouvelle demande qui à mon sens ne pouvait pas figurer dans l'autre post puisque étant un sujet sensiblement différent
celà dit j'ai peut-être eu tort et dans ce cas c'est tout à ton honneur de me faire cette remarque cela prouve qu'il y a beaucoup de personnes qui suivent se qui se passe sur ce forum et tu en fais partie
lorsque j'ai posté ce message j'avais eu l'intention de faire reférence au premier post mais j'ai pensé que la solution pouvait venir sans cela
cordialement pascal

 

[jeanpierre]

Re : un message d'avertissement pour les fins de mois

Re,

Ce n'était pas méchant et tu l'as bien analysé. Merci.

Si j'ai commis une erreur, je te prie d'accepter mes excuses.

Ceci dit, et à ce que j'ai pu lire, il me semble, tout de même, que cela reste dans la continuité, car les réponses précédentes peuvent apporter des pistes à celles ou ceux qui viendront ensuite pour tenter de résoudre ta nouvelle question.

Pas toujours facile....

Bonne soirée en tout cas.

Jean-Pierre

 

[Pierrot93]

Re : un message d'avertissement pour les fins de mois

Bonsoir Pascal, Jean Pierre

une macro évènementielle, ci dessous à placer dans ThisWorkbook, à tester, il y a peut être plus simple...

Private Sub Workbook_Open()
If Weekday(Date) = 6 Then
    If Month(Date) <> Month(DateAdd(d, 7, Date)) Then _
        MsgBox "Dernier Vendredi"
End If
End Sub

Bonne soirée
@+

 

[Pierrot93]

Re : un message d'avertissement pour les fins de mois

Re,

tout compte fait on peut faire un peu plus simple

Private Sub Workbook_Open()
If Weekday(Date) = 6 and Month(Date) <> Month(DateAdd(d, 7, Date)) Then _
        MsgBox "Dernier Vendredi"
End Sub

@+

 

[Pierrot93]

Re : un message d'avertissement pour les fins de mois

Bonjour à tous

Erratum, il faut rajouter des guillemets à "d" comme ci dessous :

Private Sub Workbook_Open()
If Weekday(Date) = 6 And Month(Date) <> Month(DateAdd("d", 7, Date)) Then _
        MsgBox "Dernier Vendredi"
End Sub

Bon dimanche
@+

 

[pascal21]

Re : un message d'avertissement pour les fins de mois

bonjour et merci pierrot93
comme j'avais plusieurs souhaits dans le post
peux-tu m'expliquer à quel moment arrive ce message
je ne comprends pas grand chose au vba
le message s'inscrit-il 7 jours avant, le jour "j" ou autre
cette question pour savoir quoi afficher dans la mgsbox
merci

 

[Pierrot93]

Re : un message d'avertissement pour les fins de mois

Bonjour Pascal,

le message arrive à l'ouverture du classeur, le dernier vendredi du mois (si le classeur est ouvert bien sur).

Bon dimanche
@+

 

[pascal21]

Re : un message d'avertissement pour les fins de mois

ok merci pierrot bon dimanche

 

[la croisée des pains]

Re : un message d'avertissement pour les fins de mois

Bonjour le forum,Pascal21 et Pierrot

comment modifier le code pour me dire que c'est le dernier jour du mois et qui'il faut facturer le client.
Quelles sont les modifications à apportée à ton code.

Merci et bon dimanche

Laurent

 

[Pierrot93]

Re : un message d'avertissement pour les fins de mois

Bonjour Lolo

essaye comme ceci :

If Month(Date) <> Month(DateAdd("d", 1, Date)) Then
        MsgBox "dernier jour du mois !!!"

Bon dimanche
@+

 

[la croisée des pains]

Re : un message d'avertissement pour les fins de mois

bonsoir à tous

cool sa marche

merci à toi

bonne soirée
laurent