Discussion :

[aminee1666]

Bonjour,

j'ai un souci pour compléter mon code VBA,en fait je veux exporter des données chaque premier mardi de chaque mois. J'utilise la fonction " dateserial" mais sa fonctionne pas car il faut rentrer le jour par numéro .

Je cherche juste comment faire un if sur le 1 mardi du chaque mois

Merci d'avence.

[mercatog]

Bonsoir
Une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function PremierMardi(ByVal Dte As Date) As Boolean
 
PremierMardi = DatePart("w", Dte, vbMonday) = 2 And Day(Dte) <= 7
End Function

On teste si une date est le premier mardi du mois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TEST()
Dim D1 As Date, D2 As Date, D3 As Date
 
D1 = DateValue("03/05/2011")    'Premier mardi de mai 2011
D2 = DateValue("01/08/2011")    'Premier jour d'août 2011(Lundi)
D3 = DateValue("08/11/2011")    '2ème mardi de novembre 2011
 
Debug.Print D1 & " est le premier mardi du mois? " & PremierMardi(D1) 'Vrai
Debug.Print D2 & " est le premier mardi du mois? " & PremierMardi(D2) 'Faux
Debug.Print D3 & " est le premier mardi du mois? " & PremierMardi(D3) 'Faux
End Sub

[aminee1666]

Bonjour,

Merci mercatog pour votre réponse, ce que je cherche à faire c'est exporté les données si la date en cours est le 1 mardi de mois.J'essayé de remplacer D1 par "Date" mais ça ne marche pas

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Tester()
 
If PremierMardi(Date) Then
    MsgBox "aujourd'hui est le premier mardi du mois"
Else
    MsgBox "aujourd'hui n'est pas le premier mardi du mois"
End If
End Sub

[aminee1666]

Bonjour,
je n'ai pas compris comment ça fonnctionne l'intrection DatePart: , "PremierMardi = DatePart("w", Dte, vbMonday) = 2 And Day(Dte) <= 7"

En faite le mardi en anglais c'est theusday ,et vous avez mis vbMonday et malgré ça, le code marche pour chaque Mardi.

Merci d'avance

[jfontaine]

Bonjour,

Le code de Mercatog test si le numéro du jour est égal au deuxième jour de la semaine si la semaine commence un lundi.

Lundi = 1
Mardi = 2
etc ...