Condition sur Format(Now(), "dd-mm-yyyy")

ferdhy

XLDnaute Junior

• 30 Juillet 2010

• #2

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Bonjour,

Tu peux faire ceci:

Code:

datex=(Now)-1 ' pour prendre le jour precedant
Format(datex, "dd-mm-yyyy")

ferdhy

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Juillet 2010

• #3

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Bonjour Mikael

A tester

Code:

 if Val(Textbox1) >23 then ladate=Format(now()-1,"dd-mm-yy")

Edit :Salut ferdhy

 

Vote positif 0 Vote négatif

ferdhy

XLDnaute Junior

• 30 Juillet 2010

• #4

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Salut Pierrejean,

merci pour la correction, j'ai ecrit (now) au lieu de Now()

ferdhy

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 30 Juillet 2010

• #5

Re : Condition sur Format(Now(), "dd-mm-yyyy")

J'ai essayé ceci, mais ça ne fonctionne pas, il me met toujours la date du jour.

Code:

    If Val(TextBox1) = 23 Then
    datex = Format(Now() - 1, "dd-mm-yyyy") ' pour prendre le jour précèdent
    End If
    If Val(TextBox1) < 23 Then
    datex = Format(Now(), "dd-mm-yyyy") ' pour prendre le jour en cours
    End If
         
    ActiveWorkbook.SaveAs FileName:= _
        chemin_sauvegarde_rapport & "3D_BoitC_C216____" & datex & "-" & UF_BoitC_C216.TextBox1.Value & "-" & UF_BoitC_C216.TextBox2.Value & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Juillet 2010

• #6

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Re

essaie de remplacer

Code:

If Val(TextBox1) = 23 Then

par

Code:

If Val(TextBox1) >= 23 Then

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 30 Juillet 2010

• #7

Re : Condition sur Format(Now(), "dd-mm-yyyy")

PierreJean,

j'ai essayé mais c'est idem !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Juillet 2010

• #8

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Re

Vois le fichier ci-joint
mets en textbox successivement 22:30:00 puis 23:30:00 et clique sur le bouton apres chaque mis à jour
Si tu n'arrive pas adapter sur ton fichier poste une version epurée et on regardera

 

Pièces jointes

• mikael.zip

  8 KB · Affichages: 36
• mikael.zip

  8 KB · Affichages: 37
• mikael.zip

  8 KB · Affichages: 35

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 2 Août 2010

• #9

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Bjr JeanPierre,

J'ai vu ton fichier qui marche parfaitement.
Moi j'ai 2 text box, 1 pour les heures et 1 pour les minutes.
Je vais essayer de faire comme toi !

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 2 Août 2010

• #10

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Ok ça marche !

Mais par contre, j'ai mis ce code dans mon UserForm Command button1 Click

mais à la fin de ma macro qui est dans un module, je ne peux pas récupérer datex.

Est-ce normal ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2010

• #11

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Bonjour Mikael, PierreJean🙂

peut être déclarée ta variable "datex" en public, voir ci-dessous à placer sur la première ligne d'un module standard.

Code:

Public datex As Date

bon après midi
@+

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 2 Août 2010

• #12

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Pierrot93 à dit:

Bonjour Mikael, PierreJean🙂

peut être déclarée ta variable "datex" en public, voir ci-dessous à placer sur la première ligne d'un module standard.

Code:

Public datex As Date

bon après midi
@+

Cliquez pour agrandir...

Merci Pierrot93, apprament ça fonctionne mais ma datex est au format 02/08/2010, alors que mon code précise bien des -

Code:

If Val(TextBox1) >= 23 Then
   datex = Format(Now() - 1, "dd-mm-yyyy") ' pour prendre le jour précèdent
End If
If Val(TextBox1) < 23 Then
   datex = Format(Now(), "dd-mm-yyyy") ' pour prendre le jour en cours
End If

alors quand je fais "enregistrer sous" pour ce classeur avec la date et des /. la macro plante !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2010

• #13

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Re,

c'est une variable de type "date", donc elle a le format date reconnu par windows... Je pense qu'il faut formater lors de l'enregistrement

Code:

 ActiveWorkbook.SaveAs "ton nom" & Format(datex , "dd-mm-yyyy")

@+

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 2 Août 2010

• #14

Re : Condition sur Format(Now(), "dd-mm-yyyy")

Pierrot93 à dit:

Re,

c'est une variable de type "date", donc elle a le format date reconnu par windows... Je pense qu'il faut formater lors de l'enregistrement

Code:

 ActiveWorkbook.SaveAs "ton nom" & Format(datex , "dd-mm-yyyy")

@+

Cliquez pour agrandir...

Parfait Pierrot93 !!!

Cette fois, je peux passer en Résolu !

Encore Merci !

 

Vote positif 0 Vote négatif