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.
Private Sub Workbook_Open()
With Feuil1.[B3]
If IsEmpty(.Value) Then .Value = CDate(InputBox("Date ?", _
"Ouverture " & Me.Name, Date))
End With
End Sub
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
Private Sub Workbook_Open()
With Feuil1.[B3]
If IsEmpty(.Value) Then .Value = CDate(InputBox("Date ?", _
"Ouverture " & Me.Name, Date))
End With
End Sub
Ç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)
Si toutefois il devait ne pas être ouvert le lundi de Pâques :
VB:
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
Si toutefois il devait ne pas être ouvert le lundi de Pâques :
VB:
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
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 …
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.