Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Proc date

Proc date

4 réponses
Avatar
Titus
Bonjour,



je désire savoir pourquoi cela ne fonctionne pas



Sub lancement( )

If Date >= "19/01/2004" And Date <= "10/02/04" Then

msgbox "toto"

End If

End Sub



merci beaucoup
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Kamel
il faut expliciter que ce que tu mets entre " " est une date avec la
fonction date() :

Sub lancement()
If Date >= CDate("19/01/2004") And Date <= CDate("10/02/04") Then
MsgBox "toto"
End If
End Sub

--
Bon courage ...
Kamel
"Titus" a écrit dans le message de
news:
Bonjour,



je désire savoir pourquoi cela ne fonctionne pas



Sub lancement( )

If Date >= "19/01/2004" And Date <= "10/02/04" Then

msgbox "toto"

End If

End Sub



merci beaucoup






Avatar
ChrisV
Bonjour Titus,

Sub lancement()
If Date >= CDate("19/01/2004") And Date <= CDate("10/02/04") Then _
MsgBox "toto"
End Sub


ChrisV


"Titus" a écrit dans le message de news:

Bonjour,



je désire savoir pourquoi cela ne fonctionne pas



Sub lancement( )

If Date >= "19/01/2004" And Date <= "10/02/04" Then

msgbox "toto"

End If

End Sub



merci beaucoup






Avatar
Titus
Merci beaucoup ChrisV
Titus
"ChrisV" a écrit dans le message de
news:%
Bonjour Titus,

Sub lancement()
If Date >= CDate("19/01/2004") And Date <= CDate("10/02/04") Then _
MsgBox "toto"
End Sub


ChrisV


"Titus" a écrit dans le message de news:

Bonjour,



je désire savoir pourquoi cela ne fonctionne pas



Sub lancement( )

If Date >= "19/01/2004" And Date <= "10/02/04" Then

msgbox "toto"

End If

End Sub



merci beaucoup










Avatar
Titus
Merci beaucoup Kamel
effectivement
Titus

"Kamel" a écrit dans le message de
news:u$
il faut expliciter que ce que tu mets entre " " est une date avec la
fonction date() :

Sub lancement()
If Date >= CDate("19/01/2004") And Date <= CDate("10/02/04") Then
MsgBox "toto"
End If
End Sub

--
Bon courage ...
Kamel
"Titus" a écrit dans le message de
news:
Bonjour,



je désire savoir pourquoi cela ne fonctionne pas



Sub lancement( )

If Date >= "19/01/2004" And Date <= "10/02/04" Then

msgbox "toto"

End If

End Sub



merci beaucoup