XL 2013 message a l'ouverture fichier excell

[michokette]

Bonjour
Je voudrais savoir si il y a possibilité d'avoir un message à l'ouverture d'un fichier excel
Ainsi je voudrais, quand j'ouvre mon fichier cdd (voir fichier joint) un ou des messages m'indique le nombre de jours restant avant l'échéance du cdd, et le cas échéant m'indiquer que la date d'échéance est dépassée
J'ai lu ici et alleurs qu'il fallait inscrire un code vba dans this worbook
Pourriez vous me dire quel genre de code il faut, car je ne comprends pas grand chose au langage vba
En vous remerciant par avance

 

[Phil69970]

Bonjour Michockette, le forum

Si la date de fin de contrat est en E2 :

Private Sub Workbook_Open()
If Date >= CDate([E2]) Then
    x = Date - CDate([E2])
    MsgBox "le contrat est terminée depuis " & x & " jours"
Else
    x = CDate([E2]) - Date
    MsgBox "Il reste " & x & " jours de contrat"
  End If
End Sub

A copier ici :

@Phil69970

 

[michokette]

Bonjour Phil69970
Merci pour votre prompte réponse
Cependant, le message qui s'affiche ne concerne que la 1er ligne du tableau
Je souhaiterai que pour chaque cdd, une ou plusieures lignes m'indique les jours restants
Cordialement

 

[Modeste geedee]

Bonsour®

Bonjour
Je voudrais savoir si il y a possibilité d'avoir un message à l'ouverture d'un fichier excel
Ainsi je voudrais, quand j'ouvre mon fichier cdd (voir fichier joint) un ou des messages m'indique le nombre de jours restant avant l'échéance du cdd, et le cas échéant m'indiquer que la date d'échéance est dépassée
J'ai lu ici et alleurs qu'il fallait inscrire un code vba dans this worbook
Pourriez vous me dire quel genre de code il faut, car je ne comprends pas grand chose au langage vba
En vous remerciant par avance

Nul besoin de VBA ...
le B.A. BA des feuilles de calculs
- tableaux structurés
- les MEFC

 

[job75]

Bonjour michokette, Phil69970, Modeste geedee,

Toutes les informations désirées se trouvent dans la feuille donc en effet le VBA est inutile.

Mais si l'on veut absolument un message à l'ouverture voyez le fichier joint et cette macro :

Private Sub Workbook_Open()
Dim fichier$, P As Range
fichier = ThisWorkbook.Path & "\MonImage.gif"
Set P = Sheets("CDD").[A1].CurrentRegion
Application.ScreenUpdating = False
P.CopyPicture
With P.Parent.ChartObjects.Add(0, 0, P.Width, P.Height).Chart
    While .Shapes.Count = 0 'en attente du collage
        DoEvents
        .Paste
    Wend
    .Export fichier, "GIF"
    .Parent.Delete 'supprime le graphique temporaire
End With
With UserForm1
    .Frame1.Picture = LoadPicture(fichier)
    .Frame1.PictureAlignment = fmPictureAlignmentTopLeft
    .Frame1.PictureSizeMode = fmPictureSizeModeClip
    .Frame1.ScrollHeight = P.Height
    .Frame1.Width = P.Width + 18
    .Width = P.Width + 42
    .Show 0 'non modal
End With
Kill fichier 'suppression du fichier image
Application.ScreenUpdating = True
End Sub

A+

 

[michokette]

Modeste geedee, job75
merci pour vos réponses, je suis d'accord avec vous que les MFC peuvent résoudre la question;
cependant l(es)' alerte(s) me servirait juste à visualiser si les échéances sont proches
cela m'eviterait ainsi d'aller sur la feuille en question, sachant que mon classeur compte plus de 50 onglets
bonne soirée et merci encore

 

[michokette]

job75
je pense pas que la macro indiquée dans votre post, corresponde à mon message

 

[job75]

Ainsi je voudrais, quand j'ouvre mon fichier cdd (voir fichier joint) un ou des messages m'indique le nombre de jours restant avant l'échéance du cdd, et le cas échéant m'indiquer que la date d'échéance est dépassée

C'est pourtant bien ce qui se passe avec mon fichier du post #5 🙄

 

[sylvanu]

Bien le bonsoir tout le monde,
Un essai en PJ.
Je n'alerte que si le CDD est échu ou dont la date limite est inférieur à trois mois. ( modifiable )

 

[Modeste geedee]

Bonsour®

cependant l(es)' alerte(s) me servirait juste à visualiser si les échéances sont proches
cela m'eviterait ainsi d'aller sur la feuille en question, sachant que mon classeur compte plus de 50 onglets

faire une boucle sur les onglets en utilisant la macro de JOB75 !

😎 évidemment si on comprends pas grand chose au langage vba
éviter d'aller manuellement sur chaque onglet
ou apprendre VBA
😉
il faut choisir !!!

 

[sylvanu]

Re,
A l'usage s'il y a beaucoup d'alerte, ce n'est pas très lisible.
J'ai ajouté une "super alerte" si l'échéance est dans moins d'un mois.

 

[michokette]

Re bonsoir job75 ,sylvanu, modestgeedee
Mille excuses job75, j'ai parlé avant d'ouvrir le fichier
Effectivement ca marche bien
Néanmoins en terme de présentation je préfère la solution proposée par sylvanu , mais je garde dans coin votre proposition, on sait jamais
modestgeedee, vous avez raison, il faudrait que je me mette sérieusement à apprendre ce satané langage vba
Bonne soirée à vous trois