Mesage à l'ouverture d'un fichier

Question

Bonjour, 
J'ai un fichier caché dont la raccourci est  lancé  au démarrage de l'ordinateur. Dans la cellule A2 du fichier j'ai calculé un délai en nombre de jour(ex: [31/12/2012 - Aujoudhui()]. Quand  la valeur de A2 sera  < 0 , Ceci bloque l'usage du fichier. 
Je souhait avoir une macro qui signalera le nombre de jour calculé dans A2 à l'ouverture du classeur, puis une autre macro qui donnera une boîte pour accepter ou refuser l'ouverture du fichier au démarrage de l'ordinateur.

Merci à toute bonne volonté. 
By 

Configuration: Windows XP / Firefox 17.0

f894009 · Answer

Bonjour,

Avec ce code vous pourrez arriver a votre solution:

Private Sub Workbook_Open()
  Dim Msg, Style, Title, Help, Ctxt, Response, MyString
  
  MsgBox "Nb jour(s) restant(s): " & Worksheets("feuil1").Range("A2")
  
  Msg = "Souhaitez-vous continuer?"    ' Définit le message.
  Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
  Title = "Attention!!!!!! "    ' Définit le titre.
  'Help = "DEMO.HLP"    ' Définit le fichier d'aide.
  'Ctxt = 1000    ' Définit le contexte de
                ' la rubrique.
  ' Affiche le message.
  Response = MsgBox(Msg, Style, Title)
  If Response = vbNo Then    ' L'utilisateur a choisi Non.
    Application.Quit
  End If
  
End Sub

Bonne fete de Noel

bitbit · Answer

C'est formidable !!!!!!

C'est irrésistiblement épatant.

Vous permettez que j'exagère un peu?

Est il possible qu'à ce niveau:  Response = MsgBox(Msg, Style, Title)

Si la valeur de A1 =0; que le Oui soit désactivé.
Ainsi, l'utilisateur n'a plus de choix que de quitter (fermer l'application)

Franchement, suis très ravi

Mesage à l'ouverture d'un fichier

2 réponses

Discussions similaires

Newsletters