ouvrir une nouvelle fenêtre

Question

Bonjour,
je suis un debutant en developpement VB, et j’aimerais savoir comment après un click sur un bouton peut-on
 ouvrir une nouvelle fenêtre ?
merci

cs_Exploreur · Answer

Salut,

Private Sub Command1_click()
Form2.Show
End sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_dectroo · Answer

salut, 
s'il s'agit d'une fenetre déjà créer et tu vx l'ouvrir, alors tu met le code de Exploreur:

Private Sub Command1_click()
Form2.Show
End sub

mais s'il la fenetre est déjà ouvert et tu vx utiliser une autre copie de la fenitre il te faut
declarer la fentre par cette ligne:
 dim FrmNew as new Form1

puis dans commande tu met 
Private Sub Command1_click()
FrmNew.Show
End sub

cs_Exploreur · Answer

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Arrr....Le fantôme des commentaire et encore passé!!!!

Je rajouterai que si tu souhaites que ta form soit en premier plan(comme les MsgBox), rajoute ce qu'il y a en rouge...

Private Sub Command1_click()
Form2.Show (VbModal)
End sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

benlac_o · Answer

Merci pour ta réponse, mais
ça ne marche pas, peut être je n’étais pas plus précis, en fait j’aimerais bien
faire apparaitre une nouvelle fenêtre mais sur Excel.

benlac_o · Answer

la fenêtre est deja crée, je veux juste la faire apparaitre apres que je click sur un "CommandButton_Click()"

cs_dectroo · Answer

il te suffit de metre ce codr
Private Sub Command1_click()
Form2.Show
End sub

merci Exploreur , il ma fait chier ce VbModel(des API pour rien) :lol

cs_Exploreur · Answer

Ah...BEN VOUI....C'est maintenant que tu précises que tu es en VBA et non en VB6 comme la catégorie où tu as poster ton message....Pas Bien...Pas Bien....

Faut faire attention quand tu postes, cela évite d'avoir des réponses comme celles ci-dessus qui ne répondes pas à ton problème...!!

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_dectroo · Answer

ah bon je repond pas moi à son probleme OK.


tu vois pas que c'est un debutant qu'il faut l'aider,OK

jmfmarques · Answer

Salut dectroo,

Je ne puis que donner raison à Exploreur (que je salue).
Poster dans la section VB6 lorsque l'on développe sous VBA est désastreux, lamentable, fait perdre du temps à tous et peut conduire à des réponses inadaptées.
C'est de plus usant ...

cs_Exploreur · Answer

Salut,

T'emballes pas dectroo, je n'ai jamais dit que je ne voulais pas l'aider, j'ai simplement dit, qu'il fallait faire attention de bien poster ces messages dans les bonnes catégories...

Et ne n'ai jamias dit aussi que tu ne répondais pas à son problème...

Bonne journée à toi Dectroo...

A+
Exploreur

 Linux a un noyau, Windows un pépin

benlac_o · Answer

dsl les gars mais j'ai rien compris, je suis sur une petite appli en Excel et je veux modifier un peu le code. le code c'est en VB et pas en VBA.

si c'est pas le bonne section pour ce genre de question je demande de m'excuser aupres des modo
merci

jmfmarques · Answer

Allez ,


 


Montre-nous le code impliqué (depuis le début de la sub considérée jusqu'à sa fin... début et fin inclus)

benlac_o · Answer

voilà c'est simple ... j'ai une feuille qui contient un bouton, ce bouton normalement mène à une autre feuille. ce que moi je veux faire c'est de faire apparaitre le résultat dans une nouvelle page. le résultat souhaité c'est d'avoir 2 pages à la fois, celle où il ya le bouton et la page résultat.
la page est en excel et le code est en VB pour plus de precision

jmfmarques · Answer

Relis-moi, s'il te plait !
Nous attendons CE CODE (depuis le début de la sub jusqu'à sa fin... début et fin inclus)...

jmfmarques · Answer

Je ne vois rien, dans ton dernier message, qui me laisse penser que ton code est en VB6 et pas en VBA (bien au contraire... du moins jusqu'à présent ...)

benlac_o · Answer

justement y'a pas encore de code, y'a que la 1ere partie generé automatiquement quand je click sur le bouton 2 fois c a d :

Private Sub CommandButton1_Click()

    Sheets("Accueil").Select

End Sub

Private Sub CommandButton2_Click()

 Sheets("Saisie").Select

End Sub

La page saisie est une page vierge
où j’ai pas encore crée les champs de saisie des utilisateur.

jmfmarques · Answer

Ou encore :
Dis-nous donc quel est le nom de ton projet (Fichier d'extension .vbp). Si tu n'as pas un tel fichier, c'est clair : tu ne développes pas ton appli en VB6 et il ne s'agit que d'une application Excel accompagnée de macros écrites en VBA (Visual Basic for Applications)

benlac_o · Answer

peut etre en VBA je ne sais pas, le programme sur le quel je fais des modifs est dja crée, 

La plupart des modifs que j’ai faite
sont inspirées des recherches sur google … je met « vb-excel » et il
me donne un tas de truc, y’a bcp de lien où est ecrit VBA, mais c’est VB adapté
à excel (d’apres ce qu’on ma dit)

benlac_o · Answer

c'est un fichier .xls

Ouvrir une nouvelle fenêtre

25 réponses

Votre réponse