ATHE RIOVELI
XLDnaute Occasionnel
Salut le forum,
Je souhaite que mon fichier se ferme après le 05/07/2016.
Nous somme en Décembre 2015. Quand je met ce code par exemple, sans problème mais lorsque je remplace la date par 05/07/2016, le fichier se ferme des que je fini de remplir mon userforme.
Je ne comprend pas. Je souhaite créer une variable qui tienne compte du temps et dès le temps est au déla du 05/07/2016, le ficihier ne doit plus fonctionner. Lorsqu’on était en novembre ce meme problème se posait. J’ai donc l’impression qu’on dans le moi pour ne pas qu’il ait problème.
Dim nom As String
If Date > "02/12/2015" Then ' A remplacer par ta Date
Do
nom = InputBox("Delai d'utilisation dépassé / Votre CODE D'ACCES ? CONTACTER Mr TAHE au 45891139 ou au 01188577 pour l'achat d'un nouveau code.")
Loop While nom = ""
If nom <> "ATHE RIOVELI NEWTON" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
Je souhaite que mon fichier se ferme après le 05/07/2016.
Nous somme en Décembre 2015. Quand je met ce code par exemple, sans problème mais lorsque je remplace la date par 05/07/2016, le fichier se ferme des que je fini de remplir mon userforme.
Je ne comprend pas. Je souhaite créer une variable qui tienne compte du temps et dès le temps est au déla du 05/07/2016, le ficihier ne doit plus fonctionner. Lorsqu’on était en novembre ce meme problème se posait. J’ai donc l’impression qu’on dans le moi pour ne pas qu’il ait problème.
Dim nom As String
If Date > "02/12/2015" Then ' A remplacer par ta Date
Do
nom = InputBox("Delai d'utilisation dépassé / Votre CODE D'ACCES ? CONTACTER Mr TAHE au 45891139 ou au 01188577 pour l'achat d'un nouveau code.")
Loop While nom = ""
If nom <> "ATHE RIOVELI NEWTON" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
