Problème gestion des date.

Fermé

mysti - Modifié par mysti le 9/07/2015 à 11:37
mysti - 9 juil. 2015 à 11:57

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:

Problème gestion des date.
Logiciel gestion photos - Guide
Tfc informatique de gestion g3 pdf - Forum Programmation
Tfc pour systeme informatique de gestion ✓ - Forum Access
Passé cette date - Forum Logiciels
Formule excel si date supérieur à une autre date ✓ - Forum Excel

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
9 juil. 2015 à 11:46

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

Réponse 2 / 2

mysti
9 juil. 2015 à 11:57

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.

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Pix

Publipostage date en anglais : comment l'inverser ?

Problème publipostage date de naissance

Discussions similaires

Newsletters