XL 2013 message a l'ouverture fichier excell

michokette

XLDnaute Nouveau
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
 

Pièces jointes

  • cdd.xlsx
    13.9 KB · Affichages: 23

Phil69970

XLDnaute Barbatruc
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 :
1598868529644.png


@Phil69970
 

Modeste geedee

XLDnaute Barbatruc
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
1598884198546.png
 

Pièces jointes

  • cdd.xlsx
    19.3 KB · Affichages: 7
Dernière édition:

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • cdd(1).xlsm
    25.6 KB · Affichages: 13

michokette

XLDnaute Nouveau
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
 

Modeste geedee

XLDnaute Barbatruc
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 !

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

michokette

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs