XL 2013 message a l'ouverture fichier excell

michokette · 31 Août 2020

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 · 31 Août 2020

Bonjour Michockette, le forum

Si la date de fin de contrat est en E2 :

VB:

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 · 31 Août 2020

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 · 31 Août 2020

Bonsour®

michokette à dit:
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 · 31 Août 2020

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 :

VB:

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 · 31 Août 2020

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 · 31 Août 2020

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

job75 · 31 Août 2020

michokette à dit:
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 · 31 Août 2020

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 · 31 Août 2020

Bonsour®

michokette à dit:
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 · 31 Août 2020

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 · 31 Août 2020

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

XL 2013 message a l'ouverture fichier excell

michokette

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

michokette

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

michokette

XLDnaute Nouveau

michokette

XLDnaute Nouveau

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

michokette

XLDnaute Nouveau

Discussions similaires