Discussion :

[oscar.cesar]

bonjour
j'ouvre le fichier excel " MONFICHIER"
j'effectue des calculs et saisies diverses infos via des userform combobox ....
j'ai cree un bouton que j'appelle "FERMER"
il ferme les userforms ouverts et en plus je voudrais qu'il ferme le fichier courant (le fichier ouvert) sans preciser le nom ?
Actuellement j'ai le code suivant

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton8_Click() 'bouton FERMER
UserForm_initialize
Unload UserForm1
Workbooks("NomFichier").Close SaveChanges:=True
End Sub

[oscar.cesar]

rebonjour
Je suis pas certain mais voila ce que j'ai trouvé

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton8_Click() 'bouton FIN
UserForm_initialize
Unload UserForm1
ActiveWorkbook.Close SaveChanges:=True ferme le fichier actif
 
End Sub

[tomy7]

a mon avis tu peux faire un truc du style:

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
16
sub bouton fermer ()
thisworkbook.x = true
end sub
 
ds this worbook:
 
public x as boolean
 
private sub workbook_Beforesave........(.....)
userformmdp.show
if x = true then
x = false
cancel = false
else 
cancel = true
end if

end sub

j ai fais ce code pour un before save je pense qu il est applicable avec un before close

[oscar.cesar]

bonjour

merci de ta reponse
mais je prefere faire simple
j'ai rajouter la ligne suivante mais cela ne marche pas

Code :

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

1
2
 
Application.Quit 'quit excel

dans le code du bouton

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton8_Click() 'bouton FIN
UserForm_initialize
Unload UserForm1
ActiveWorkbook.Close SaveChanges:=True ferme le fichier actif
Application.Quit 'quit excel
End Sub