Ouverture Execl sur USERFORM

[3idm]

Bonjour et joyeux Noël à tous les connecté ainsi qu'au Forum.

J'ai créé un Userform1 qui s'ouvre en plein écran à l'ouverture d'Excel. J'ai placé dans " ThisWorkbook " le code suivant :
'----------------------------------
Private Sub Workbook_Open()
Userform1.Show 0
End sub
'----------------------------------
Jusqu'ici tous va bien, à l'ouverture du fichier Excel, le Userform1 s'affiche.
Malgrés cela, on apperçoi au lancement, un court instant, la feuil1, ainsi que son interface, icones, cellules, barre d'outils.... d'Excel, et cela me géne, pour diverses raison propres à mon appli.

Avez-vous une solution pour suprimer cela ????

Merci d'avance de votre attention et peut-être de vos solutions entre 2 coupes de bulles.

🙂A vous lire🙂

 

[Pierrot93]

Re : Ouverture Execl sur USERFORM

Bonjour 3idm

essaye peut être comme ceci :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Userform1.Show 0
Application.ScreenUpdating = True
End Sub

bon noël
@+

Edition : attention peut être réinitialiser le raffraichissement en fin d'initialisation de l'USF

 

[3idm]

Re : Ouverture Execl sur USERFORM

Merki de ton intérêt Pierro
Ta solus ne change rien, j'ai toujours le même déroulement.😱
JE m'y replonge

 

[Pierrot93]

Re : Ouverture Execl sur USERFORM

Bonjour 3idm

une autre solution peut être :

Application.Visible = False
UserForm1.Show 0
Application.Visible = True

l'affichage devrait être plus court, sinon selectionner à l'ouverture du classeur une feuille vide...

bonne journée
@+

 

[3idm]

Re : Ouverture Execl sur USERFORM

Rebonjour
J'ai essayé, le phénoméne est le même mais en moin long, et cela me va bien, car on n'a plus le temps de lire les cellules en feuil1.
En attendant ta réponse, j'avais également mis toutes les polices en couleur blanche des cellule à la fermeture du fichier, histoire de les masquer...
C'est un peu tiré par les cheveux, mais fonctionne également, Systéme "D"😀

Merci pour ton temps et à charge de Revanche
A+

 

[excalibur]

Re : Ouverture Execl sur USERFORM

boonjour 3idm pierrot peut etre avec une petite tempo !!!
Option Explicit
Dim pausetime, start
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show 0
pausetime = 0.5
start = Timer
Do While Timer < start + pausetime
DoEvents
Loop
Application.Visible = True
End Sub

 

[3idm]

Re : Ouverture Execl sur USERFORM

Merci, c aussi une solution....
J'ai résolu mon pb en masquant la feuil1 en quittant, et en l'affichant aprés le codes "UserForm1.Show 0".

Merci encore à tous les deux
😉