[XL-2007] fermeture du classeur [Résolu]

[grisan29]

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

Code :

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 :

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 :

1
2
Application.Visible = True
Application.quit

pour ne ferme que le classeur

Code :

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 :

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

[grisan29]

bonsoir a vous
bluemonkey

ThisWorkbook.Close()

demande quelque chose a suivre comme active workbook.close

jfontaine il n'y a pas d'enchainement a respecter, jusque si je clic sur quit et save je voudrais que ce ne soit que ce classeur qui se ferme

cordialement

Pascal

[BlueMonkey]

Erreur de ma part.
J'ai corrigé dans le code précédent. (retrait des () après le Close )

[grisan29]

bonsoir blue monkey
maintenant c'est parfait mais c'est mieux avec thisworbook que activeworkbook

cordialement

Pascal

[jfontaine]

maintenant c'est parfait mais c'est mieux avec thisworbook que activeworkbook

C'est pourtant ce qui était proposé plus haut