GS82
XLDnaute Occasionnel
j'ai un code qui marche sur un fichier mais qui ne le fais pas sur un autre
en fait j'ai une application que je vais filer a un type (d'un autre société) pour essayer de voir comment ca fonctionne
mais la version que je vais donner est une demonstration, c'est a dire que ca va disparaitre apres un moment
donc on s'est mis d'accord de l'essayer jusqu'au 1/1/2009
bref
le code elimine le fichier des que la date est expiré
et la j'essaye le code sur un autre fichier , je change la date c'est OK
mais on mettant le caode dans le fichier que je vais preter la ca marche plus
je recois un msgbox projet ou bibliotheque introuvable
il ne reconnait plus Date pourtant c'est un outil du system non?
help on a un rendez vous dans deux heures
Code:
Sub finish()
Dim FIN_PERIODE_ESSAI As Date
FIN_PERIODE_ESSAI = DateSerial(2009, 1, 1)
If Date > FIN_PERIODE_ESSAI Then
MsgBox ("Période d'essai terminée")
Application.DisplayAlerts = False
With ThisWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub
mais la version que je vais donner est une demonstration, c'est a dire que ca va disparaitre apres un moment
donc on s'est mis d'accord de l'essayer jusqu'au 1/1/2009
bref
le code elimine le fichier des que la date est expiré
et la j'essaye le code sur un autre fichier , je change la date c'est OK
mais on mettant le caode dans le fichier que je vais preter la ca marche plus
je recois un msgbox projet ou bibliotheque introuvable
il ne reconnait plus Date pourtant c'est un outil du system non?
help on a un rendez vous dans deux heures