Discussion :

[dalbator]

Bonjour,

J'aimerais créer une petite application simple sous VBA du type du modèle joint.

En fait, j'aimerais afficher une userform, qui serait en apparence indépendante d'excel, sans excel en arrière plan.

J'arrive au lancement à ne faire afficher que le userform, sans excel en fond d'écran. Par contre, dès que j'utilise la barre de tache de windows (pour ouvrir internet par exemple), et que je reviens sur "mon programme", la userform s'affiche mais cette fois avec excel en dessous...

J'ai essayé plusieurs choses, (showmodal, application.visible...) mais cela n'arrive à rien. Dans ce dernier cas, excel apparait toujours !

Avez-vous des idées pour m'aider car je suis certains que d'autre on eu le même problème que moi !

Ps : J'en profite plutôt que de poster un autre message, si j'utilise showmodal pour bloquer l'usage des feuilles durant l'utilisation de mes macro, on ne peut plus utiliser excel a partir des fichiers. Il faut d'abord ouvrir excel et aller chercher le fichier. Y-a-t-il un moyen de faire autrement ?

Merci d'avance

[SfJ5Rpw8]

bonsoir,

l'on peu voir le code (voir [code] [/code] ) utilisé

[dalbator]

Bonjour,

J'avais cru posté le fichier avec le code... Je viens de le remettre car le plus simple est de regarder directement sur le fichier pour voir le comportement.

Code placé dans "Thisworkbook"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_Open()
 
Const NewName As String = "Mon Programme"
Application.Caption = NewName
 
Application.WindowState = xlMinimized
UserForm1.Show
 
End Sub

Code placé dans "Userform1" avec showmodal = false

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Const NewName As String = "Microsoft Excel"
Application.Caption = NewName
ThisWorkbook.Close saveChanges:=False
End Sub
 
Private Sub UserForm_Activate()
Application.WindowState = xlMinimized
End Sub

Car quand j'active sur Userform1 le showmodal = true, je dois d'abord cliquer sur la barre de tache pour voir la userform.

[patricktoulon]

nom ca n'est pas possible comme tu l'a fait dans ton 2 eme code

a partir du momment ou tu ferme le classeur tout les objects sont fermé avec

maintenant

essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Macro1()
Application.Visible = False
UserForm1.Show 0
End Sub

' dans le module du userform dans la macro du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub CommandButton1_Click()
Application.Visible = True
Unload Me
End Sub

l'application excel sera invisible tu ne verra que le userform



au plaisir

[dalbator]

Merci pour ton aide patrick
On arrive à quelques chose qui se rapproche du but...

Je viens de modifier mon exemple avec ton code. Par contre, cela faisait toujours apparaitre Excel en tache de fond...J'ai du passé showmodal = true pour le userform.
Et j'ai enlevé le "0" après show. A quoi correspond t-il ?

Par contre cela fait disparaitre excel de la barre de tache windows, on ne peut plus revenir directement sur mon application !

En fait, on peut, mais il faut réduire toutes les fenêtres actives... Ce n'est pas très pratique.

Peux-t-on créer une sorte de barre de tache windows factice qui se limiterais à réduire toutes les pages sauf l'application...

[ZebreLoup]

Et faire directement une application VB, ce ne serait pas plus pratique ?