décomposer date et heure ?

a la place de "maintenant", tu as les fonctions "jour", "mois" et "annee".
utilise l'enregistreur de macros et le tour est joué, c'est traduit en VBA
Pascal.


"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:D5D0B24D-6418-4533-BFD3-9A806FE6463F@microsoft.com...

Bonjour,
en vba xls2000 sous xp pro.
dans une cellule j'ai la valeur (Maintenant) "12/02/2006 08:05:11"
je voudrais à l'ouverture de mon fichier pouvoir tester la valeur du jour
seulement pour lancer le traitement qu'une fois par jour.
avez vous une idée du bout par lequel je dois prendre le sujet ?
Merci
jacks

Re bonjour,
je me suis peut être mal exprimé?
en fait je voudrais comparer la derniere cellule de mon fichier avec
aujourd'hui
Mais la derniere cellule est composée de "date & heure"
je sais donc:
trouver cette cellule
relever sa valeur
mais je ne sais pas comment comparer avec aujourd'hui
Avez vous une idée SVP
jacks

Bonjour,
en vba xls2000 sous xp pro.
dans une cellule j'ai la valeur (Maintenant) "12/02/2006 08:05:11"
je voudrais à l'ouverture de mon fichier pouvoir tester la valeur du jour
seulement pour lancer le traitement qu'une fois par jour.
avez vous une idée du bout par lequel je dois prendre le sujet ?
Merci
jacks

exemple a adapter a ton cas, a copier dans un module standard.

en premiere ligne, remplacer
sub auto_open()
par
nom de macro de ton choix()
si tu ne veux pas que ça se lance automatiquement a l'ouverture du fichier.


mes données sont en colonne B, adapte si nécessaire.

A+
Pascal



Sub Auto_open()
'
' Auto_open Macro
' Macro enregistrée le 30/05/02 par ETIENNE Pascal
'

'
Dim variable1
Dim variable2
Range("B1").Select
ActiveSheet.Unprotect
Selection.End(xlDown).Select

variable1 = Day(Date)
variable1 = CLng(variable1)

ActiveCell.Offset(1, -1).Range("A1").Select
variable2 = ActiveCell.Value
variable2 = Right(Left(variable2, 5), 2)
variable2 = CLng(variable2)

If variable1 <> variable2 Then
***
***ici, ton code...***
***
End If

If variable1 = variable2 Then
MsgBox "Newday a déja été exécuté aujourd'hui", vbInformation, "Action
refusée"
End If

End Sub






"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:231B9A60-1807-404D-AE06-BFAE3A3A76CF@microsoft.com...

Re bonjour,
je me suis peut être mal exprimé?
en fait je voudrais comparer la derniere cellule de mon fichier avec
aujourd'hui
Mais la derniere cellule est composée de "date & heure"
je sais donc:
trouver cette cellule
relever sa valeur
mais je ne sais pas comment comparer avec aujourd'hui
Avez vous une idée SVP
jacks

Bonjour,
en vba xls2000 sous xp pro.
dans une cellule j'ai la valeur (Maintenant) "12/02/2006 08:05:11"
je voudrais à l'ouverture de mon fichier pouvoir tester la valeur du
jour

seulement pour lancer le traitement qu'une fois par jour.
avez vous une idée du bout par lequel je dois prendre le sujet ?
Merci
jacks

Bonjour,

Tu peux essayer aussi :

If CLng(TaCelluleDate) = Clng(Date) Then
...
End If

Amicalement
Yoyo

"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:231B9A60-1807-404D-AE06-BFAE3A3A76CF@microsoft.com...

Re bonjour,
je me suis peut être mal exprimé?
en fait je voudrais comparer la derniere cellule de mon fichier avec
aujourd'hui
Mais la derniere cellule est composée de "date & heure"
je sais donc:
trouver cette cellule
relever sa valeur
mais je ne sais pas comment comparer avec aujourd'hui
Avez vous une idée SVP
jacks

Bonjour,
en vba xls2000 sous xp pro.
dans une cellule j'ai la valeur (Maintenant) "12/02/2006 08:05:11"
je voudrais à l'ouverture de mon fichier pouvoir tester la valeur du
jour

seulement pour lancer le traitement qu'une fois par jour.
avez vous une idée du bout par lequel je dois prendre le sujet ?
Merci
jacks