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
Je pourrais vous proposer une barre d'avancement par exemple. Ça vous irait ?
C'est un UserForm qui est dans ce classeur. Il utilise aussi un module de classe Planification pour se fermer automatiquement quand c'est fini, et celui-ci fait appel à un module de service MPlanificateur.
Ce serait du luxe ! J ai compté il faut environ 20s pour charger le fichier. Peut etre je n'ai pas fait ce qu il faut pour. J'ai démultiplié les modules pour suivre chaque étape de la création de ce fichier. J'ai bien appris grâce à cela.
Lorsque je l'utilise au travail il me bloque lorsque j'ouvre le fichier X3 car il me dit qu il est déjà ouvert ce qui est chose vraie. y a t il moyen au passage de forcer son ouverture sans avoir la question à poser?
Merci en tout cas pour votre aide c'est sympa.
Dans ce cas de figure j'utilise toujours une variable Wbk As Workbook
et je fais On Error Resume Next
Set Wbk = Workbooks("X3.xls")
If Err Then Set Wbk = Workbooks.Open( etc.