XL 2013 Lancer et arreter un même userform à partir d'un module

creolia · 20 Juin 2021

Bonjour à tous

je viens vous demander un peut d'aide svp peut ton lancer un userform1 suivit de son arret automatiquement à partir d'un module je vous explique j'utilise un userform1 pour afficher un Webrowser le soucis le site que j'utilise est en intranet et je doit lancer une fois USF le site s'affiche et me demande un code je dois refermer l'USF et relancer et la tous fonctionne. cela est dut à une signature numérique pour contourner sa je souhaiterais trouver une macro qui lance usf puis le referme et le relance pouvez vous m'aider svp.

Dudu2 · 20 Juin 2021

Bonjour,

Je ne comprends pas bien comment un UserForm "affiche" un Web Browser.

Pour ouvrir un UserForm modal: UserForm1.Show
Pour fermer un UserForm modal: dans l'exécution du UserForm: Unload UserForm1

Pour ouvrir un UserForm non modal: UserForm1.Show VbModeless
Pour fermer un UserForm non modal: n'importe où Unload UserForm1

patricktoulon · 20 Juin 2021

bonsoir tout les deux

je viens vous demander un peut d'aide svp peut ton lancer un userform1 suivit de son arret automatiquement à partir d'un module

bien sur que oui c'est possible moyennant le codage d'une fonction Show perso

il est possible de lancer un userform en mode modal ou pas et qu'il se ferme après une temps défini au lancement

pour cela on va créer une fonction "show" perso dans le userform
que l'on va appeler par exemple "ShowTemp"

cette fonction doit être accessible d'un module comme la "Show" native elle sera donc en public

je vais argumenté cette fonction avec

un argument pour le mode (modal ou pas)
et un argument pour le temps que je veux qu'il reste affiché

donc dans le userform

Code:

Public Function ShowTemp(umodal, t)
Application.OnTime Now + TimeValue("00:00:0" & t), "ferme"
UserForm1.Show umodal
End Function

voila c'est pas bien compliqué
des le déclenchement de cette fonction je programme l'appelle d'une sub "ferme" AVANT!!!!!LE SHOW et je show le userform avec l'argument umodal
maintenant l'appel de cette fonction dans un moduleet la sub "ferme"

VB:

Sub test(): UserForm1.ShowTemp 1, 2: End Sub

Sub ferme(): Unload UserForm1: End Sub

et voila mes amis le userform s'affiche et se ferme 2 secondes après
c'est bon c'est OK pour tout le monde ?
c'est comme chez Renault "simple"

qu'est ce que c'est bien ce application.ontime il déclenche la sub ferme même en mode modal

XL 2013 Lancer et arreter un même userform à partir d'un module

creolia

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires