Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Lancement propre d'un Userform.

Lancement propre d'un Userform.

2 réponses
Avatar
Florian
Bonsoir,

J'ai un petit programme, à base de userforms, je souhaite qu'à l'activation
des macros, un userform se lance.
Pas de pb dans le workbook_Open, je mets le lancement du Userform, et
également Application.visible =false.
Mon Pb est que l'on voit le fichier Excel pendant 2 secondes au lancement
des macros, comment dois-je faire afin de lancer le Userform très proprement
sans rien derrière.
Merci
Flo riant
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Alain CROS
Bonjour.

Une possibilité ---> 1 fichier vbs
Tu copie ceci dans notepad et tu enregistre en vbs

Dim XlApp
Set XlApp = CreateObject("Excel.Application")
XlApp.Workbooks.Open("Le Nom Complet De Ton Fichier Xls")
Set XlApp = Nothing

Dans ton fichier xls

Dans le module ThisWorkbook

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Dans le module de UserForm1

Private Sub UserForm_Terminate()
Application.Visible = True
End Sub

Alain CROS

"Florian" a écrit dans le message de news: #
Bonsoir,

J'ai un petit programme, à base de userforms, je souhaite qu'à l'activation
des macros, un userform se lance.
Pas de pb dans le workbook_Open, je mets le lancement du Userform, et
également Application.visible úlse.
Mon Pb est que l'on voit le fichier Excel pendant 2 secondes au lancement
des macros, comment dois-je faire afin de lancer le Userform très proprement
sans rien derrière.
Merci
Flo riant




Avatar
Florian
BOnjour,
Le pb est que je dois exporter le fichier un peu partotut.
Désolé.
Flo riant


-----Message d'origine-----
Bonjour.

Une possibilité ---> 1 fichier vbs
Tu copie ceci dans notepad et tu enregistre en vbs

Dim XlApp
Set XlApp = CreateObject("Excel.Application")
XlApp.Workbooks.Open("Le Nom Complet De Ton Fichier Xls")
Set XlApp = Nothing

Dans ton fichier xls

Dans le module ThisWorkbook

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Dans le module de UserForm1

Private Sub UserForm_Terminate()
Application.Visible = True
End Sub

Alain CROS

"Florian" a écrit dans le message de
news: #

Bonsoir,

J'ai un petit programme, à base de userforms, je
souhaite qu'à l'activation


des macros, un userform se lance.
Pas de pb dans le workbook_Open, je mets le lancement
du Userform, et


également Application.visible úlse.
Mon Pb est que l'on voit le fichier Excel pendant 2
secondes au lancement


des macros, comment dois-je faire afin de lancer le
Userform très proprement


sans rien derrière.
Merci
Flo riant





.