DATE > VERSION PERIMEE

Le
stephprod
Bonjour,

Je voudrais savoir si ma cellule A1 dans une feuille nommée tata si celle
cellule contient la formaule = aujourdhui() affichant la date
je voudrais dans mon code vba this workbook mob code est

Private Sub Workbook_Open()
On Error Resume Next
If Cell(1, 1).Value > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub

est ce que c est ok ou y a t il mieux?

merci

stefane
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #6429291
Bonjour.
Tu n'as pas besooin de date en A1 :
Private Sub Workbook_Open()
On Error Resume Next
If Date > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub
Cordialement.
Daniel
"stephprod" 4816c00b$0$928$
Bonjour,

Je voudrais savoir si ma cellule A1 dans une feuille nommée tata si celle
cellule contient la formaule = aujourdhui() affichant la date
je voudrais dans mon code vba this workbook mob code est

Private Sub Workbook_Open()
On Error Resume Next
If Cell(1, 1).Value > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub

est ce que c est ok ou y a t il mieux?

merci

stefane



stephprod
Le #6429281
Bonjour et merci daniel
ton code me parait super mais j ai du mal m expliquer

en fait j ai un fichier avec des boutons qui appelle des macros d un
deuxieme fichier et c est dans ce deuxieme fichier qu il test la date.. et
lorsque la date est égal à 31/12/2008 effectivement il n effectue pas les
macros mais il ne ferme pas le fichier... est ce normal?

stefane

"Daniel.C"
Bonjour.
Tu n'as pas besooin de date en A1 :
Private Sub Workbook_Open()
On Error Resume Next
If Date > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub
Cordialement.
Daniel
"stephprod" 4816c00b$0$928$
Bonjour,

Je voudrais savoir si ma cellule A1 dans une feuille nommée tata si celle
cellule contient la formaule = aujourdhui() affichant la date
je voudrais dans mon code vba this workbook mob code est

Private Sub Workbook_Open()
On Error Resume Next
If Cell(1, 1).Value > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub

est ce que c est ok ou y a t il mieux?

merci

stefane







Daniel.C
Le #6429761
Modifie comme suit :
If Date > "31/12/2008" * 1 Then MsgBox "VERSION PERIMEE"
Si le close est conditionné par le test :
If Date > "31/12/2008" * 1 Then
MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End If
Daniel
"stephprod" 4816d66e$0$887$
Bonjour et merci daniel
ton code me parait super mais j ai du mal m expliquer

en fait j ai un fichier avec des boutons qui appelle des macros d un
deuxieme fichier et c est dans ce deuxieme fichier qu il test la date.. et
lorsque la date est égal à 31/12/2008 effectivement il n effectue pas les
macros mais il ne ferme pas le fichier... est ce normal?

stefane

"Daniel.C"
Bonjour.
Tu n'as pas besooin de date en A1 :
Private Sub Workbook_Open()
On Error Resume Next
If Date > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub
Cordialement.
Daniel
"stephprod" 4816c00b$0$928$
Bonjour,

Je voudrais savoir si ma cellule A1 dans une feuille nommée tata si
celle cellule contient la formaule = aujourdhui() affichant la date
je voudrais dans mon code vba this workbook mob code est

Private Sub Workbook_Open()
On Error Resume Next
If Cell(1, 1).Value > "31/12/2008" Then MsgBox "VERSION PERIMEE"
Workbooks("c:program filesxxxpbsb.xls").Close savechanges:úlse
End Sub

est ce que c est ok ou y a t il mieux?

merci

stefane











Publicité
Poster une réponse
Anonyme