Userform

[TOFEIGHT]

Salut,

J'aimerai créer un userform qui s'afficherait à l'ouverture d'un classeur. Ce userform comprendrait plusieurs boutons qui renverrait vers des fichiers excel ou autre grâce à un lien hypertexte. Cela est-il possible et comment?

Merci.

 

[Jacques87]

Bonjour

pour créer un userform qui apparaît à l'ouverture de ton WorkBook, il faut :
1) créer l'userform
2) créer une procédure évenementielle :
Private Sub Workbook_Open()
UserForm1.Show
End Sub

Maintenant pour la suite il te faudra construire tes controls en fonction de tes besoins et leur coller une macro toujours en fonction de tes besoins

Je ne peux pas être plus précis car ta question elle même est vaste et peu précise

Bon courage

 

[TOFEIGHT]

C'est parfait pour les boutons etc, je devrais me débrouiller.

Est-il possible que le classeur se ferme lorsqu'on quitte le userform?

En fait je voudrait utiliser ce userform comme plateforme pour plusieurs utlisateurs. Celui-ci sera en lecture seule et en partage sur un réseau.

Merci pour les infos.

Tof

 

[Jacques87]

Bonsoir

Aucun problème : dans l'évènement 'UserForm-Deactivate' il te suffit soit
1) Application.Quit et tu quiteras Excel
2) ActiveWorkBook.Close et le fichier actif sera fermé

Bonne soirée

 

[TOFEIGHT]

OK j'ai copié l'évenement dans le workbook comme cela

Private Sub Workbook_Open()
UserForm1.Show
End Sub
Private Sub Workbook_Deactivate()
ActiveWorkbook.Close
End Sub

Mais cela ne fonctionne pas. Rien ne se passe lorsque je ferme le userform mais quand je ferme le classeur j'ai un message d'erreur d'exécution 1004.

Merci

 

[PascalXLD]

Bonjour

Comme te l'avais dit Jacques ce n'est pas dans Private Sub Workbook_Deactivate() mais

Private Sub UserForm_Deactivate()
activeworkbook.close
End Sub

 

[TOFEIGHT]

Autant pour moi,

ca marche.

Merci beaucoup.