Masquer excel

alf049

XLDnaute Junior
Bonjour,
pourriez-vous m'aider car je souhaiterai cacher Excel.:confused:
Je vous explique:
J'ai fait un formulaire sous Excel, et ce formulaire ne prend qu'1/3 de l'écran.
Je souhaite pour un confort visuel que les utilisateurs de ce formulaire ne voit pas en arrière plan la page EXCEL mais leur poste de travail voire même encore mieux une autre application.:p
On m'a soumis le script suivant:
Application.Visible = False
UserForm1.Show
qui répond à 50% de ma problématique, car si je l'applique il me manque le contenu de mes COMBOBOX ! :eek:
Voila donc si la communauté peux m'aider ...
 

Staple1600

XLDnaute Barbatruc
Re : Masquer excel

Bonjour à tous


• Une solution parmi d'autres possibles.

(code à mettre dans UserForm1 ( adapter si le nom de l'UserForm est différent) )

Pour tester:
mettre un CommandButton1 sur l'UserForm

Code:
'[COLOR=SeaGreen]///Déclarations ///[/COLOR]
Dim lAppWindowState As Long
[COLOR=SeaGreen] '/// ----------///[/COLOR]
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
With Application
    lAppWindowState = .WindowState
    .WindowState = xlMaximized
    Me.Move 0, 0, .Width, .Height
End With
End Sub
Private Sub UserForm_Terminate()
Application.WindowState = lAppWindowState
End Sub
 
Dernière édition:

ftho

XLDnaute Occasionnel
Re : Masquer excel

Bonjour tlm,

Bin...:eek:...qui voilà, mon petit bricolage coloré et animé que je t'ai proposé ne t'as pas plus ? :p

Essaye ce que Staple te propose sinon, ci-joint un exemple avec Application.Visible = False et le Combobox contient des données

@+ ;)

EXEMPLE
 

ftho

XLDnaute Occasionnel
Re : Masquer excel

Bonjour,

Pour charger tes combo et listbox, tu fais comme dab, ce n'est pas parce que excel n'est pas visible que tu ne peux pas récupérer les données, dans mon exemple l'ordre des commandes est
  1. rendre excel invisible
  2. charger la combo à l'initialisation du UserForm
 

Statistiques des forums

Discussions
315 133
Messages
2 116 603
Membres
112 802
dernier inscrit
Dan Marc