Discussion :

[Mairequimby]

Bonjour,

J'ai une InputBox dans laquelle je demande une DATE. J'aimerais que cette InputBox se ferme si le bouton Annuler est pressé ou s'il n'a eu aucun choix.

Mon problème est que j'ai réussi à le faire avec des InputBox contenant des chiffre, mais ça ne fonctionne pas pour une DATE. Dans l'InputBox, je demande une date sous le Format AAAA-MM-JJ Puisque qu'elle est en lien avec Access. Voici mon code (qui fonctionne, mais qui ne fonctionne pas avec le If. Ça me dit que j'ai une incompatibilité de type)

J'ai besoin d'aide....Merci

Code :

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

1
2
3
4
5
6
7
8
9
Dim sDate As Date
 
sDate = InputBox("Entrez la date de début voulu" & vbCrLf & "format (AAAA-MM-JJ)")
 
    If sDate = "" Then
            MsgBox "opération annulée"
 
            Else
'LE RESTE DE MON CODE

Merci de me donner un coup de pouce.

[Jean-Philippe André]

salut,
le mieux pour récupérer une valeur issue d'une InputBox, ca reste le type de variable Variant

[Brunodm13]

Bonjour,

Le contenu renvoyé par une InputBox est toujours de type String.
C'est la raison de ton incompatibilité de type.

Cordialement

Bruno

[Mairequimby]

Je vais essayer ça alors..merci

[Mairequimby]

Ca ne fonctionne pas. Mon problème est que je demande:

DATEDÉBUT une date de début (par inputbox)
PLAGE une plage (combien de jours à sortir par inputbox)
ce qui me donne la date de fin
DATEFIN= DATEDEBUT + PLAGE - 1 (pour ne pas avoir 1 jours en trop)

et J'ai du code qui va appliquer le tout dans une requête Access avec DATEDEBUT et DATEFIN car mes champs dans Access sont en format Date (que je ne peux pas changer)

Or, si je ne rajoute pas la fonction If pour quitter si le bouton annuler est cliquez, mon programme fonctionne très bien.

J'Ai DATEDÉBUT AS DATE
PLAGE AS STRING
DATEFIN AS DATE
Je vous rapel que tout fonctionne si j'enlève la fonction If., Dès que je demande
If DATEDEBUT = "" Then
MsgBox "opération annulée"

Le programme plante

à l'Aide Merci!

[aalex_38]

Or, si je ne rajoute pas la fonction If pour quitter si le bouton annuler est cliquez, mon programme fonctionne très bien.

ce n'est pas le cas chez moi le code plante dès le test avec l'inputbox

[mercatog]

Regarde un message plus haut, (ne pas déclarer sDate As date)

Code :

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

1
2
3
4
5
Dim sDate
sDate = InputBox("Entrez la date de début voulu" & vbCrLf & "format (AAAA-MM-JJ)")
If sDate = "" Then
    MsgBox "opération annulée"
'......