Ouverture automatique de l'userform

Bonsoir,

Débutant en VBA je voudrais que mon formulaire s'ouvre en automatique, systématiquement.

J'ai donc récupéré un bout de code (qui fonctionne).

'***********************
' Procédure pour démarrer le formulaire en automatique
'***********************

Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False
Load Userform1
Userform1.Show 0
End Sub

Lorsque je lance le formulaire une première fois il s'ouvre en automatique sans passer par la case "ouverture de la feuille excel".

MAIS

Lorsque je le ferme et que je le relance à nouveau c'est directement la feuille excel qui s'ouvre et non l'userform.

Existe t-il une combine pour que ma fenêtre d'userform s'ouvre instantanément et à chaque reprise.

Merci pour votre aide et vos conseils.

Stéphane,

Bonjour Goose, bonjour le forum,

Le fichier fait exactement ce que tu indiques dans le code. Il affiche l'UserForm1 à l'ouverture du fichier... Ensuite tu parles de fermer, mais fermer quoi, le fichier ou l'UserForm1 ?

Bonsoir Thau Thême,

Lorsque je ferme, c'est userform que je quitte.

Afin de mieux comprendre je vous confie le fichier.

Steph,

Bonjour toutes et tous

coucou Thauthème

@tester aperçu

Note: j'ai mis en sorte lorsqu'on ferme l'userform la feuille du classeur s'ouvre, juste pour tester (voir bouton de l'usf)

crdlt,

André

Bonsoir André,

Merci pour votre implication.

Nous y sommes presque.

Votre code permet en effet d'ouvrir le formulaire à chaque fois que je clique sur le fichier, ce qui n'était pas le cas auparavant.

Toutefois, lorsque je ferme le formulaire j'ai accès à la feuille du fichier.

L'idée serait que les personnes qui vont se servir du formulaire ne puisse avoir accès qu'au formulaire et rien qu'au formulaire. Et qu'elles n'aient aucune vue ni aucun accès à la feuille du fichier.

Je ne sais pas si mon explication est très claire.

En tout cas, merci pour l'effort.

Steph,

Re,

peut être comme cela

ci-joint,

@ tester aussi en fermant le classeur Excel

Application.DisplayAlerts = False
Application.Quit
ActiveWorkbook.Close True
Application.DisplayAlerts = True

crdlt,

André

Bonjour André,

Merci pour ce code, tout fonctionne parfaitement comme je l'espérais.

Bon week-end et à bientôt.

Stéphane,

Bonjour toutes et tous

merci de ton retour, également bon weekend/ week-end

crdlt,

André