Bonjour à tous,
Je vous soumets un petit problème sur lequel je bloque pour le moment.
J'essaye de mettre en place un formulaire pour mon association pour laquelle il est nécessaire que les utilisateurs acceptent les macros.
J'ai trouvé sur les forums et en me dépatouillant tout seul le code qui me faut pour forcer l'acceptation des macros.
Cependant j'ai également une autre requête qui est l'obligation d'inscrire dans la cellule B33 de la feuille formulaire, une date inférieure ou égale à J+ 1an.
Le problème c'est que lorsque j'effectue cette manipulation, j'ai bien mes fenêtres d'alertes qui apparaissent mais je retombe immédiatement sur l'onglet Info. Du coup, il n'est plus possible de renseigner la feuille formulaire.
Auriez-vous des infos qui pourraient m'aider ?
Ci-dessous le code que j'utilise, et en pièce jointe le formulaire en question.
Par avance, merci.
Je vous soumets un petit problème sur lequel je bloque pour le moment.
J'essaye de mettre en place un formulaire pour mon association pour laquelle il est nécessaire que les utilisateurs acceptent les macros.
J'ai trouvé sur les forums et en me dépatouillant tout seul le code qui me faut pour forcer l'acceptation des macros.
Cependant j'ai également une autre requête qui est l'obligation d'inscrire dans la cellule B33 de la feuille formulaire, une date inférieure ou égale à J+ 1an.
Le problème c'est que lorsque j'effectue cette manipulation, j'ai bien mes fenêtres d'alertes qui apparaissent mais je retombe immédiatement sur l'onglet Info. Du coup, il n'est plus possible de renseigner la feuille formulaire.
Auriez-vous des infos qui pourraient m'aider ?
Ci-dessous le code que j'utilise, et en pièce jointe le formulaire en question.
Par avance, merci.
Code:
Private Sub Workbook_Open()
Sheets("Formulaire").Visible = True
Sheets("Info").Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Info").Visible = True
Sheets("Formulaire").Select
ActiveWindow.SelectedSheets.Visible = False
If Sheets("Formulaire").Range("B33").Value > Now() + 366 Then
MsgBox "Impossible ! Maximum d'un an dépassée."
Cancel = True
End If
If Sheets("Formulaire").Range("B33").Value = "" Then
MsgBox "Saisie incomplète !"
Cancel = True
End If
ActiveWorkbook.Save
End Sub