Microsoft 365 Message box si case vide et rentrer la donnée

[Moreno076]

Bonsoir à tous.

Je souhaite que si lors de l'ouverture du fichier la case B3 de la première feuille est vide alors ca demande rentrer la date et de la saisir immédiatement par l'intermediaire d un pop up.

Quelle macro faire?

Merci

 

[Staple1600]

Bonsoir le fil

Une piste
Sheets(1).[B3]=Date

 

[Dranreb]

Bonsoir.
Dans le module ThisWorkbook :

Private Sub Workbook_Open()
   With Feuil1.[B3]
      If IsEmpty(.Value) Then .Value = CDate(InputBox("Date ?"))
      End With
   End Sub

 

[Staple1600]

Re

Et une macro, avant d'aller au dodo 😉

Sub odore()
Select Case Len(Sheets(1).[B3])
Case 0
Sheets(1).[B3] = Date
Case Else
'
End Select
End Sub

EDITION: Bonsoir Dranreb
Oui j'aurais aller au dodo avant de poster
J'avais pas vu ton code VBA (en message#3)
Moreno076 => Oublie ma macro 😉
Bonne nuit à tous

 

[Dranreb]

On peut certes proposer la date du jour:

Private Sub Workbook_Open()
   With Feuil1.[B3]
      If IsEmpty(.Value) Then .Value = CDate(InputBox("Date ?", _
         "Ouverture " & Me.Name, Date))
      End With
   End Sub

 

[Moreno076]

Bonsoir Dranreb et bonne nuit Staple1600.

J'ai un message d'erreur

Une fois mis à jour ca fonctionne très bien

 

[Dranreb]

Ça n'a sans doute aucun rapport avec la Workbook_Open du module ThisWorkbook
Vérifiez vos liaisons avec d'autres classeurs.
(commande Modifier les liaisons du groupe Connexions du menu Données)

 

[Moreno076]

Ça n'a sans doute aucun rapport avec la Workbook_Open du module ThisWorkbook
Vérifiez vos liaisons avec d'autres classeurs.

En fait le fait de rentrer la date B3 permet aux autres feuilles de s'incrémenter à J+1 voilà la liaison.

J'ai rajouté
Application.AskToUpdateLinks = True
et ca fonctionnement merveilleusement bien.

Merci

 

[Dranreb]

J'ai vu depuis que la 1ère feuille s'appelait "Lundi".
Souhaiteriez vous que la macro propose plutôt le derniez lundi depuis aujourd'hui ?

 

[Moreno076]

Ce fichier est ouvert chaque lundi la date du jour est donc très bien. Merci

 

[Dranreb]

Si toutefois il devait ne pas être ouvert le lundi de Pâques :

Private Sub Workbook_Open()
   Dim Lundi As Date
   Lundi = Date - Weekday(Date, 2) + 1
   With Feuil1.[B3]
      If IsEmpty(.Value) Then .Value = CDate(InputBox("Date ?", _
         "Ouverture " & Me.Name, Lundi))
      End With
   End Sub

 

[Moreno076]

Si toutefois il devait ne pas être ouvert le lundi de Pâques :

Private Sub Workbook_Open()
   Dim Lundi As Date
   Lundi = Date - Weekday(Date, 2) + 1
   With Feuil1.[B3]
      If IsEmpty(.Value) Then .Value = CDate(InputBox("Date ?", _
         "Ouverture " & Me.Name, Lundi))
      End With
   End Sub

Merci

 

[Dranreb]

Je reviens sur votre histoire de liaison. Attention, normalement si vos formules se réfèrent à d'autres feuilles du même classeur, elles ne doivent pas donner lieu à des liaisons. Par contre il est affecté à votre bouton Imprimer une macro d'un autre classeur …

 

[Moreno076]

Je viens de vérifier tout fonctionne parfaitement pas de soucis de mon côté

 

[Moreno076]

Puis je vous demander une faveur à cette heure tardive?
Ci joint un fichier assez compliqué et je souhaiterais qu'au lieu de cliquer sur le bouton lancer la gestion Ca met mette encore un pop up pour lancer le démarrage et qu a la fin ca mette gestion terminée. Le but est de supprimer ce bouton.

Merci à vous