Bonjour à tous,  
 
je suis archi debutant en vba, et j'aurai besoin de votre aide,  
voila je recupere d'une base de donnee via excel certaine donnéés, d'une date donné,  
 
ce que je vouderai ca serai de pouvoir avoir sur ma macro la possibilité de pouvoir choisir la date et l'heure , car pour l'instant j'ai une date statique il faut que j'edite la macro pour changer les dates, l'ideal serai d'avoir une petite fenetre sur mon fichier excel "inputbox" pour l'inserer
 
qq'un pourait avoir la gentillesse de me dire comment faire ???
 
voici mon code:
 
 
Sub base_mercure()
'
'
'
 
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=mercure;NLN=Winsock;NA=pasyb008,9910;DB=itrs;UID=itrs;PWD=initrs", _
        Destination:=Range("A1" ))
        .CommandText = Array( _
        "SELECT itrs_evenements.Dte, itrs_evenements.node, itrs_evenements.varname, itrs_evenements.description, itrs_evenements.severity, itrs_evenements.gateway" & Chr(13) & "" & Chr(10) & "FROM itrs.dbo.itrs_evenements itrs_evenements" _
        , _
        "" & Chr(13) & "" & Chr(10) & "WHERE (itrs_evenements.Dte>{ts '2006-07-11 09:00:00'} And itrs_evenements.Dte<{ts '2006-07-11 19:00:00'}) AND (itrs_evenements.severity=2)" _
        )
        .Name = "Query from mercure"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    Selection.AutoFilter
 
 
    Range("A2" ).Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.SmallScroll Down:=-21
     
         
End Sub
 
Merci  
 
 
 
 
 
 
 
 
 
 
 

Bonjour,
si qq'un a une idéé ca serait tres sympas de pouvoir m'aider
 
Merci

ben tu proposes toi même une solution, pourquoi ne pas l'appliquer, car "qui ne dit rien consent"

ben tu l'as dit toi meme
met une inputbox, recupere la date , reformate la et c est bon
edit :

Je veux bien c'est d'ailleur ce que j'essai de faire mais je ne sais pas ou  
mettre le inpoutbox. Quand je l'insere j'ai une erreur.
 
;-)

quel type d'erreur, où l'insères-tu ? es-tu sur de la syntaxe ?

je l'insere juste apres le where "WHERE (itrs_evenements.Dte>{ts '2006-07-11 09:00:00'} And itrs_evenements.Dte<{ts '2006-07-11 19:00:00'}) AND (itrs_evenements.severity=2)" _  
 
 
Je ne suis pas du tout sur de la syntaxe donc je m'etonne pas trop de l'erreur , je suis vraiment debutant il est là aussi le bug ;-)
 
 

si le but de ton input box est de gérer le where, il faut que tu l'insère avant ta request...

le but de mon inputbox c'est juste qu'il me demande d'inserer une date et heure de debut et ensuite une date et heure de fin,  
 
et quand je le mets avant le where comme ceci :
Chr(10) inputbox  & "WHERE (itrs_evenements.Dte>{ts '2006-07-11 09:00:00'} ..............
quand je valide la ligne devient rouge et le message d'erreur est :
 
Compile error: Exepcted : list separator or )
 

chr(10) & inputbox ...

J'y est cru un moment, je n'ai plus de ligne rouge mais quand je test il me met:
 
Compile error:  
Argument not optional
ensuite il surligne le "inputbox"

inputbox("entrer la date" ) peut etre

oui plutot

on dirai que je me rapproche en tt cas c'etait bien joué ca plante apres,  
par contre est ce qu'il fauderai que j'enleve la date inserer dans la code , ca doit le faussé non ??? puisque juste apres je lui mets une auter date dans mon inputbox.
 
j'ai quand meme essayé de l'enlever mais ca marche pas encore peut etre un probleme de syntaxe
 
merci en tt cas pour tes reponses

il faut t'assurer que le format entré dans l'inputbox correspond à ce dont tu as besoin dans ta request...

ben c'est un format de date que je veux dans mon inputbox pouvoir mettre ceci par exemple: 2006-07-12 09:00:00
 
rien de plus

peux-tu nous donner le bout de code juste avant le Chr(10) & inputobx stp ?

 
tout le code est en haut juste au debut.
 
Merci

le inputbox te retourne un string, mais est-ce que la request est bonne avec le texte retourné ou pas ??

 
juste quand je test, y a un message debug et quand je valide debug ,  cela me retourne en jaune avec une flèche une des ligne plus bas:
 
.Refresh BackgroundQuery:=Fasle
 

il faut écrire False po Fasle

Désolé mon doigt à riper mais c bien ecrit dans le code dommage