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 files\xxx\pbsb.xls").Close savechanges:=False
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de news: 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
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" <prodiag290@orange.fr> a écrit dans le message de news:
4816c00b$0$928$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news: 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
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" a écrit dans le message de news:
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" a écrit dans le message de news: 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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpxW42cqIHA.2188@TK2MSFTNGP04.phx.gbl...
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" <prodiag290@orange.fr> a écrit dans le message de news:
4816c00b$0$928$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news:
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" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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" a écrit dans le message de news:
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" a écrit dans le message de news: 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
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" <prodiag290@orange.fr> a écrit dans le message de news:
4816d66e$0$887$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpxW42cqIHA.2188@TK2MSFTNGP04.phx.gbl...
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" <prodiag290@orange.fr> a écrit dans le message de news:
4816c00b$0$928$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news: 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" a écrit dans le message de news:
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" a écrit dans le message de news: 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