[VBA] Probleme de Date

Probleme de Date [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 01-06-2005 à 00:00:08    

Salut tout le monde,
 
je suis en stage sur un projet en VBA sous Excel et j'ai plusieurs problèmes.
 
Je voudrais savoir tout d'abord s'il existe une formule sous Excel qui permet de récuperer le numéro de la semaine depuis une date au format JJ/MM/AAAA.
 
J'ai aussi un probleme de date, en fait je souhaiterais copier dans une cellule (depuis une macro) une date au format JJ/MM/AAAA mais lorsque je le fais Excel m'inverse le mois et le jour par exemple le 11 mai  
2005 (11/05/2005) devient le 05/11/2005. J'ai essayé de forcer un format de cellule mais le probleme reste le meme...
 
Merci pour vos reponses.

Reply

Marsh Posté le 01-06-2005 à 00:00:08   

Reply

Marsh Posté le 01-06-2005 à 01:00:20    

pour la semaine:

  Dim dDate As Date
  Dim iWeek As Integer
  dDate = Date
  iWeek = DatePart("ww", dDate)
  MsgBox (iWeek)



---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 01-06-2005 à 01:07:10    

Curieux:

[a1] = CDate("2/5/2005" )


foncionne
 
Alors que

[a1] = CDate(#2/5/2005#)


inverse
 
Utilise donc la première méthode.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 02-06-2005 à 00:54:31    

merci pour tes reponses,
 
la deuxieme fonctionne niquel, par contre pour la premiere, j'ai reussi a trouver la syntaxe qui donne le bon numéro de semaine pour l'année 2005
( Dim dDate As Date
  Dim iWeek As Integer
  dDate = Date
  iWeek = DatePart("ww", dDate,vbuseSystemDayofweek,vbfirstfullweek)
  MsgBox (iWeek)  
)
 
par contre si j'essaie avec l'année 2004, le numéro de semaine n'est plus le bon ...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed