inserer une date en vba

inserer une date en vba - VB/VBA/VBS - Programmation

Marsh Posté le 27-07-2006 à 15:34:01    

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  
 
 
 
 
 
 
 
 
 
 
 

Reply

Marsh Posté le 27-07-2006 à 15:34:01   

Reply

Marsh Posté le 01-08-2006 à 09:43:15    

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

Reply

Marsh Posté le 01-08-2006 à 09:48:49    

dadou74 a écrit :

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" ;)

Reply

Marsh Posté le 01-08-2006 à 09:49:15    

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


Message édité par betsamee le 01-08-2006 à 09:49:46
Reply

Marsh Posté le 01-08-2006 à 09:54:49    

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.
 
;-)

Reply

Marsh Posté le 01-08-2006 à 09:55:34    

dadou74 a écrit :

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 ?

Reply

Marsh Posté le 01-08-2006 à 10:01:47    

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 ;-)
 
 

Reply

Marsh Posté le 01-08-2006 à 10:10:38    

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

Reply

Marsh Posté le 01-08-2006 à 10:19:17    

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 )
 

Reply

Marsh Posté le 01-08-2006 à 10:45:55    

dadou74 a écrit :

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 ...

Reply

Marsh Posté le 01-08-2006 à 10:45:55   

Reply

Marsh Posté le 01-08-2006 à 10:54:40    

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"

Reply

Marsh Posté le 01-08-2006 à 11:26:30    

dadou74 a écrit :

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

Reply

Marsh Posté le 01-08-2006 à 11:27:51    

oui plutot

Reply

Marsh Posté le 01-08-2006 à 11:49:53    

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

Reply

Marsh Posté le 01-08-2006 à 13:33:33    

dadou74 a écrit :

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...

Reply

Marsh Posté le 01-08-2006 à 14:14:56    

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

Reply

Marsh Posté le 01-08-2006 à 15:09:27    

dadou74 a écrit :

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 ?

Reply

Marsh Posté le 01-08-2006 à 15:16:00    

jpcheck a écrit :

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

Reply

Marsh Posté le 01-08-2006 à 15:51:07    

dadou74 a écrit :

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 ??

Reply

Marsh Posté le 02-08-2006 à 07:29:29    

jpcheck a écrit :

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
 

Reply

Marsh Posté le 02-08-2006 à 09:52:05    

dadou74 a écrit :

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 ;)

Reply

Marsh Posté le 02-08-2006 à 10:04:59    

jpcheck a écrit :

il faut écrire False po Fasle ;)


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

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed