Discussion :

[phanoulevoyou]

Bonjour à tous,

j'ai un fichier où les feuilles ne sont pas visibles car l'application a été mise en invisible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.visible = false

Donc à l'ouverture j'ai un Userform qui s'ouvre et l'utilisateur se doit de remplir les différents champs qui l'intéresse.
Au moment de valider, une msgbox lui demande s'il veut faire une nouvelle demande. Si oui alors, l'userform du départ se réinitialise.

Mon problème est sur ce point là, dans ma commande j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If MsgBox("Souhaitez-vous faire une nouvelle demande ?", vbYesNo, "Fermer ou Nouvelle Demande...") = vbYes Then
    Unload Me
    usfConges.Show
Else
Unload Me
ActiveWorkbook.Close False
End If
End Sub

Le hic est quand le code arrive à Unload me, il prend en compte le Queryclose de mon userform qui contient le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim sh As Worksheet
Unload Me
Application.Visible = True
For Each sh In Sheets
 sh.Visible = True
Next sh
ActiveWorkbook.Close False
End Sub

Résultat, il me ferme l'application.

Ce que j'aimerai c'est appeler le programme de mon Userform lors de l'initialisation (Private sub userform_initialize()) lors de la commande Oui pour faire une nouvelle demande.
Est-ce possible ?
Si ce n'est pas possible, qu'avez-vous comme solution ?

Merci... Cordialement,
PLV.

[EngueEngue]

1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
application.enableevents=false
unload me
application.enableenvents = true

2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

userfrom.hide

[phanoulevoyou]

Bonjour EngueEngue,

la partie de ta réponse doit être placée où exactement ?
Dans la commande de mon bouton Valider ou dans le Queryclose de mon USF ?

L'explication de ton code : en gros tu bloques l'application, puis tu réinitialises l'userform puis tu débloques l'application...

A quoi va me servir l'userform.hide ? car lui il ferme l'USF met n'efface pas les données... enfin moi je dis ça mais je n'y connais pas grand chose, la preuve je suis dans le forum à chercher une réponse...

Cdlt,
PLV

[EngueEngue]

Je n'avais pas compris ta question... C'est tout simple. enlève le querry close et mets le dans ton VB. ou alors mets tous tes champs à "" et recopie le code de ton initialize dans ton vbyes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If MsgBox("Souhaitez-vous faire une nouvelle demande ?", vbYesNo, "Fermer ou Nouvelle Demande...") = vbYes Then
    Unload Me
    usfConges.Show
Else
Dim sh As Worksheet
 
Application.Visible = True
For Each sh In Sheets
 sh.Visible = True
Next sh
ActiveWorkbook.Close False
Unload Me
End Sub
End If
End Sub

[phanoulevoyou]

OK pour rassembler mon code dans le QueryClose...

Le problème c'est que j'ai beaucoup en code dans mon initialisation lors de l'ouverture de mon USF.
Je ne peux pas tout simplement appeler la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub userform_initialize()

[phanoulevoyou]

Juste une question supplémentaire...

N'existe pas une solution qui appellerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub userform_initialize()

un peu comme on appelle une fonction via Call...

Cdlt,
PLV