fermeture et reouverture fichier

[angoul]

bonjour,

je suis a la recherche d'une petite astuce pour que quand on clique sur le mot fermer, sa me ferme mon application et 1 seconde apres sa reouvre le fichier.

voila mon code :
Private Sub CommandButton19_Click()
FrmCaisse.Hide
End Sub

peut ton mettre un petit message aussi en cliquand sur le meme bouton
comme par exemple, voulez vous sortir
et comment

merci

 

[pascal21]

Re : fermeture et reouverture fichier

bonjour
qu'entends tu par application?
d'après ton code tu cache un userform nommé frmCaisse
voilà ce que j'ai compris

 Private Sub CommandButton19_Click()
unload.FrmCaisse
FrmCaisse.show
End Sub

maintenant si ce n'est pas ce que tu voulais
mets nous un petit fichier en pièces jointes avec 2 ou 3 mots d'explication
à te lire

 

[angoul]

Re : fermeture et reouverture fichier

oui tu a raison pour userform, je connait pas trop les mots technique
j'ai copier ton petit code et sa me met un message d'erreur
"erreur de compilation
argument non facultatif"
a tu une autre idée?

 

[excalibur]

Re : fermeture et reouverture fichier

bonjour angoul le forum
Private Sub CommandButton19_Click()
Unload Me
FrmCaisse.show
end sub
ou
Private Sub CommandButton19_Click()
FrmCaisse.Hide
FrmCaisse.Show
end sub
mais dans ce cas la hide ne decharche pas user en memoire donc tu conserves les anciennes donnees cel depend de ce tu veus faire
pour le message il faut approfondir on ferme l userform !! puis on le reouvre !!! on le laisse fermer !!! explique excatement autrement pas facile
un code basique qui ferme userform
Private Sub CommandButton19_Click()
Dim Msg, Style, Title, Response
Msg = " voulez vous sortir!! CLIQUEZ OUI SINON CLIQUEZ NON !! "
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " quitter "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Unload Me
End If
End Sub

 

[angoul]

Re : fermeture et reouverture fichier

merci la fonction
" Private Sub CommandButton19_Click()
Unload Me
FrmCaisse.show
end sub"
marche super et le message texte aussi

par contre j'ai un autre probleme
j'ai creer un bouton fermer directement sans message avec le code
" Private Sub CommandButton20_Click()
FrmCaisse.show
end sub"
mais j'ai un message qui me dit
"erreur 400
feuille deja affiché; affichage modal impossible"
sa veut dire quoi sa et je doit faire quoi pour que sa marche

 

[excalibur]

Re : fermeture et reouverture fichier

re angoul le forum

Private Sub CommandButton20_Click()
Unload Me
end sub"