[VBA-E] excel minimisé mais user form visible

Bonjour,
je voudrais créer une appli dans laquelle la communication avec l utilisateur se fait via une (des) userforms.
Mais je voudrais qu'une fois l appli lancée, la fenetre principale excel se minimise en barre des taches, mais pas ma userform. Je veux que pendant que mon appli tourne je puisse ouvrir un autre fichier excel pour travailler dessus.
Jusqu'à présent j'ai trouvé des exemples qui rendent invisible (je veux pas ça) ou réduisent excel mais aussi ma userform en meme temps (je veux pas non plus).
Merci de votre aide,
Benoit

un simple :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Application.WindowState = xlMinimized End Sub

---

c'est pas bon ..?

Citation:

---

Envoyé par bill7

Je veux que pendant que mon appli tourne je puisse ouvrir un autre fichier excel pour travailler dessus.

---

Pour ça, l'idéal est d'ouvrir une autre instance d'Excel.

pas mal bbil, mais ça me réduit aussi ma userform, et elle je ne veux pas qu elle soit minimisée ! ...

A bon pas chez moi - quelle est ta version d'Excel ?

ma version est 2002 (10.2614.2625)

code du bouton qui lance ma usf; le bouton est sur une feuille du classeur :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub go_Click() demarrer While CONTINUER Application.WindowState = xlMinimized Load UserForm1 UserForm1.Show Wend Application.WindowState = xlMaximized End Sub

---

Quand je clique, tout se réduit en barre des taches y compris le user form; si je clique sur la tache user form en bas, ça me l affiche en taille normale mais ça réaffiche aussi la fenetre excel derriere.
Je devrais peut être rajouter une instruction dans l initialisation de ma usf pour lui dire d'avoir une taille normale ?

pourquoi .. Visible ...? essai sans .. et place dans l'initiate de ton userform le code proposé...


à coté de cela ... à quoi sert ta boucle ...?

pardon j avais essayé autre chose , mais j ai corrigé mon message apres quand je me suis aperçu.
Bon au clic sur le bouton dans ma feuille excel, j'ai tout qui passe en barre des taches (un bouton excel) et je dois cliquer dessus pour que ma user form apparaisse.

Code:

---

1 2 3 4 5 6 7 8

Private Sub go_Click() demarrer While CONTINUER Load UserForm1 UserForm1.Show Wend Application.WindowState = xlNormal End Sub

---

code init de ma usf :

Code:

---

1 2 3

Private Sub UserForm_Initialize() Application.WindowState = xlMinimized End Sub

---

Important : quand je fais mon clic bouton et que l editeur vba est ouvert (mode création) tout baigne, ça marche. Mais quand VBA est pas ouvert ça fait comme je t ai dit plus haut.
Je peux pas rajouter une instruction apres l initialisation de ma user form pour lui dire d avoir une taille normale ?


Ma boucle me permettra de passer d'une userform à une autre en passant par le meme point d entree.

Chuis comme bbil, je ne comprends pas ta boucle (en rouge dans le lien) et ta réponse ne nous éclaire pas, sauf si tu ne nous mets pas tout le code tel qu'il est "réellement" dans ton clic
Relis ce que je t'ai mis sur l'autre discussion ;)
A+

Voici le resultat que je veux :
Pièce jointe 12430

Quant au code, j'ai supprimé la boucle, pour l instant elle ne sert à rien.
Voici donc le code du bouton Go de ma feuille :

Code:

---

1 2 3 4 5 6

Private Sub go_Click() demarrer Load UserForm1 UserForm1.Show Application.WindowState = xlNormal End Sub

---

le code de demarrer dans un module:

Code:

---

1 2 3

Sub demarrer() CONTINUER = True End Sub

---

le code de ma userform:

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Application.WindowState = xlMinimized nbQuestions = WorksheetFunction.CountA(Worksheets("phrases").Range("a:a")) initNoSeq Sheets("memoire").Cells.ClearContents etatQuestion End Sub

---

le code initnoseq dans un module:

Code:

---

1 2 3

Sub initNoSeq() NO_SEQ = 0 End Sub

---

le code etatQuestion dans mon user form:

Code:

---

1 2 3 4 5 6 7 8

Private Sub etatQuestion() lib.Caption = "réponse R suivant S précédent P menu M" Randomize numQuestion = Int((nbQuestions * Rnd) + 1) question.Caption = Sheets("phrases").Cells(numQuestion, 1) reponse.Caption = "" empile (numQuestion) End Sub

---

Et donc mon problème : quand je clique sur le bouton c est que tout passe en bas y compris ma user form. Je vous envoie mon classeur (iciPièce jointe 12432), il n y a pas de brevet dessus.

J'ai vu ton fichier mais il n'apporte rien. Par contre, ton code, lui explique une chose : Ta ligne

Code:

---

Application.WindowState = xlMinimized

---

est placée dans l'userform et ça, je pense que c'est pas bien :mouarf:
Tu dois avoir une macro dans un module standard qui ouvre le 1er userform.
Place cette ligne dans cette macro, avant ouverture de l'userform

Code:

---

1 2 3 4 5 6

Sub Ouvrir() Application.WindowState = xlMinimized Load UserForm1 UserForm1.Show Application.WindowState = xlNormal End Sub

---

Non, ça ne change rien :cry: : en mode débug ça fonctionne (le clic sur mon bouton réduit bien excel mais la form apparait), mais en mode normal je dois cliquer sur excel minimisé en barre des taches pour que ma form aparaisse.
Si quelqu'un a une idée voici le classeur, il n'y a qu à cliquer sur le bouton "go"
Pièce jointe 12439

J'ai testé et ça fonctionne chez moi. A tout hasard, as-tu pensé d'éliminer le "minimized" de tout le code de ton userform ?

J'ai créé une userform2 avec rien dedans, et si c est elle que je lance ça me donne le meme résultat : apres le clic bouton tout se minimise en 1 bouton excel en barre de tache, je dois cliquer sur ce bouton de la barre des tâches pour afficher la form. Donc ça vient pas du code de ma form.
Ca marchait aussi chez bbil ... ?

Ok, ton bouton se trouve sur ta feuille de calcul. Je n'ai pas vu que tu l'aies indiqué.
J'ai donc placé le bouton dans une barre d'outils et ce code fonctionne.
de même que Application.visible = false... et true

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ouvreUSF() demarrer 'Application.Visible = False Application.WindowState = xlMinimized 'While CONTINUER Load UserForm1 UserForm1.Show 'Wend 'Application.Visible = True Application.WindowState = xlMaximized End Sub

---

A+

Une autre solution qui fonctionne
Dans le clic du bouton placé dans la feuille de calculs, tu peux tester ça

Code:

---

1 2 3

Sub go_Click() Application.Run "anglais.xls!ouvreUSF" End Sub

---

et dans le module

Code:

---

1 2 3 4 5 6 7

Sub ouvreUSF() demarrer Application.WindowState = xlMinimized Load UserForm1 UserForm1.Show Application.WindowState = xlMaximized End Sub

---

Tu dis

je ne sais pas mettre le bouton dans une barre de calcul, et ce n'est pas ce que je veux (mais bon je veux bien essayer). Par contre pour essayer, j appelle ouvreUSF à l ouverture du classeur (dans le code de thisWorkbook) sans passer par le bouton et ça change rien au résultat.

Code:

---

1 2 3

Private Sub Workbook_Open() ouvreUSF End Sub

---

Regarde ma dernière réponse, elle fonctionne depuis un bouton placé dans la feuille de calculs

non, ton autre solution avec

Code:

---

Application.Run "anglais.xls!ouvreUSF"

---

non plus ne change rien à mon résultat ...

Je n'insiste pas.

Tiens, puisque j'ai fait tout ça, au moins que ce ne soit pas pour rien
Pièce jointe 12447