Faire appel à une boite de dialogue

Faire appel à une boite de dialogue - VB/VBA/VBS - Programmation

Marsh Posté le 31-03-2006 à 12:05:14    

:hello: Salut
 
Je suis toujours sur le meme fichier mais là j'ai une problématique d'un autre ordre. J'ai créer dans le menu en haut( à coté de fichier editer fomat...) un menu Rire avec des sous menu ( connection, recherche options....).
 
Je suis entrain de creer une macro qui avant d'etre excéduter devrer se connecter sur une des base de donnée que j'ai( rire 1 , rire 2 ...) pour rapatrier les information.
 
Je n'arrive pas à faire appel à cette boite de dialogue directement.  :??:  
 
j'essaie avec application.dialogs(xlsdialog...) mais ca ne marche pas erreur 1004
 
Quelqu'un aurait une petite idée.
 
Merci d'avance :hello:  
 
zaina

Reply

Marsh Posté le 31-03-2006 à 12:05:14   

Reply

Marsh Posté le 31-03-2006 à 12:11:16    

C'est bon j'ai trouvé ce fut bete :sweat: il siffisait de mettre  
 
application.dialogs(rire).show
 
Merci :jap:  
 
Sorry pour le derangement.
 
Maintenant je me demande comment je vais faire pour sortir de l'application si j'annule l'application.... :whistle:  
 
Voyant...
 
(Merci ecrire sur ce forum m'apporte beaucoup de chose et m'apprend beaucoup). :love:  
 
zaina

Reply

Marsh Posté le 31-03-2006 à 12:28:15    

J'ai parlé un peu trop vite....
 
Mon trux ne marche pas  :cry:  
 
Pk  
 
Mon code est:
 

Sub retreiverire
MsgBox ("You must choose the database Rire" )
 
application.Dialogs(RireMenuVConnect).Open
 
Sheets("Rire1" ).Select
x = RireVRetrieve("Rire1", Null, 1)
Sheets("rire2" ).Select
x = rireVRetrieve("rire2", Null, 1)
Sheets("FRONT PAGE" ).Select
Range("a1" ).Select*
end sub[fixed]]


 
Merci
 
zaina

Reply

Sujets relatifs:

Leave a Replay

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