extraction du mois dans une date
extraction du mois dans une date - VB/VBA/VBS - Programmation
Marsh Posté le 30-08-2006 à 15:54:50
bonjour,
mois = Month(Sheets("Réceptions" ).Range("b" & z) )
A+
Sujets relatifs:
- Problème de date en vba-access 2000
- AutoIT question autour de la date
- VBA - Recherche d'une date approximative
- Extraction de champ par awk
- Lecture de date aléatoire.
- date auto/ mysql
- date sur base mysql phpbb
- Afficher la date
- Problème date et graphique
- Problème tri de dates par année puis mois
Marsh Posté le 30-08-2006 à 13:37:20
Bjr,
Je voudrais savoir comment extraire le mois dans une date au format JJ/MM/AAAA
Mon Code
Dim r As Integer
Dim z As Integer
Dim mois As Integer
'creation fenetre pour saisie du N° de facture
Dim nom As String
On Error Resume Next
nom = InputBox("Tapez le Numero du mois " )
If nom = "" Then Exit Sub
' ranger les données suivant par date dans feuille tva1
r = 2
For z = 1 To 1103
mois = Sheets("Réceptions" ).Range("b" & z)
c'est ici que je dois extraire le mois
If mois = nom Then
Sheets("Réceptions" ).Rows(z).Copy Sheets("tva1" ).Range("A" & r)
r = r + 1
End If
Next z
merci pour vos reponses