Problème gestion des date.

mysti -  
 mysti -
Bonjour,
Voila mon problème je souhaite exécuté une macro mais une seul fois par moi.
J'ai écris la macro suivante:
Sub date1()
Dim mois As Date
Worksheets("Feuil1").Activate
Worksheets("Feuil1").Range("A1").Select
mois = Month(Date)
Cells(2, 23) = mois '
If Not Range("W1").Value Like mois Then
Range("W1").Value = Date
End If

End Sub
Cependant celle là ne marche pas et les valeur renvoyer sont incompréhensible.
En pas à pas j'ai constaté que même si la date est le 07/09/2015 (mm/jj/aaaa) mois prend la valeur 1/6/1900 et la cells(2, 23) prend 1/6/1900 mais affiche 1/7/1900
donc mon if s'applique a chaque fois.
Merci d'avance pour vos éventuelle réponse,
Cordialement.

A voir également:

2 réponses

Réponse 1 / 2
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonjour Mysti, bonjour le forum,

Peut-être comme ça : 

Sub date1()
Dim mois As Byte
Worksheets("Feuil1").Activate
Worksheets("Feuil1").Range("A1").Select
mois = Format(Date, "mm")
Cells(2, 23) = mois '
If Not Range("W1").Value Like mois Then
Range("W1").Value = Date
End If
End Sub
0
Réponse 2 / 2
mysti
 
Dsl je cherche la réponse depuis ce matin et je viens de trouvé mon erreur.
Pour ce que ça intéresse le problème est que month renvoie un integer et non une date.
Merci pour ta réponse aussi rapide ThauTheme je l'ai testé et le problème été le même.
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses