Discussion :

[grisan29]

bonjour a vous tous
j'ai ce code qui fonctionne bien derriere un bouton sur la feuille

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
quit_save.Show
 
End Sub

mais je voudrais qu'il ne sauve que le classeur concerné et qu'il ne concerne que ce classeur et non tous ceux qui sont ouvert
et dans l'usf quit_save il y a

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_activate()
Dim T As Double
Me.Repaint
T = Timer + 5 'Délai 5 seconde dans mon exemple. pas obligatoire!
Do While T <= Timer
    DoEvents
Loop
ThisWorkbook.Save
Me.Hide
 
Application.Visible = True
Application.quit
End Sub

merci par avance

Pascal

[BlueMonkey]

Bonsoir,

Pour fermer le classeur courant avec fenêtre d'enregistrement s'il y a changement : ActiveWorkbook.Close

[jfontaine]

Bonjour,


Ton code nous apprend que tu appels la méthode Show d'un objet, mais on ne sait pas ce que représente "quit_save". Un userform peut etre?

mais je voudrais qu'il ne ferme que le classeur concerné et non tous ceux qui sont ouvert

Le code proposé ne correspond pas à l'action de fermeture de classeur
Impossible donc de répondre a cette demande sans plus d'information

[grisan29]

bonjour a vous
il y a eu croisement lors de la modif du post

cordialelment

Pascal

[jfontaine]

il y a eu croisement lors de la modif du post

Ok

mais je voudrais qu'il ne sauve que le classeur concerné et qu'il ne concerne que ce classeur et non tous ceux qui sont ouvert
et dans l'usf quit_save il y a
Code :Sélectionner tout - Visualiser dans une fenêtre à part

Pas sur d'avoir tout compris

Le code ci dessous ferme l'instance d'Excel en cours. Il est normal que tous les classeurs se ferment.

Code :

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

1
2
Application.Visible = True
Application.quit

pour ne ferme que le classeur

Code :

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

ThisWorkbook.Close

[grisan29]

bonsoir Jfontaine
parfois il m'arrive de travailler sur 2 classeurs pour mes essais (mais ca fume) donc j'ai mis derriere un bouton d'un des classeur la fonction de quitter et sauver mais je ne voudrais pas que les autres classeurs ouvert soit fermés en meme temps,si je decide de fermer ce classeur avant les autres
j'espère avoir été plus clair

cordialement

Pascal

[jfontaine]

mais je ne voudrais pas que les autrresclasseursouvert soit fermé en meme temps

Pas si clair que ca.

Peux tu décrire l'enchainement de fermeture des classeurs et application.

[BlueMonkey]

Re.

La fonction de quitter et sauver mais je ne voudrais pas que les autrresclasseursouvert soit fermé en meme temps

Comme indiqué par Jfontaine ou mon post précédent, pour ne fermer que le classeur contenant le bouton,
qui affiche la fenêtre "quit_save".

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
Private Sub UserForm_activate()
   Dim T As Double
   Me.Repaint
   T = Timer + 5 'Délai 5 seconde dans mon exemple. pas obligatoire!
   Do While T <= Timer
       DoEvents
   Loop
   ThisWorkbook.Save
   Me.Hide
  Application.Visible = True 

Application.quit
   ThisWorkbook.Close
    ' ou bien  ActiveWorkbook.Close
End Sub