Coup de main final [RESOLU]

[herve62]

Bonjour
Voilà c'est fini .... ( comme la chanson ? )
Sauf que j'ai un fichier qui je n'arrive pas à fermer pour que tout soit propre
celui que j'ouvre au début pour aller chercher mes données
Donc c'est avec le bouton QUITTER
Pour le test , le Mois c'est MAI
Merci

 

[Roland_M]

Re : Coup de main final

bonjour,

tout en respectant ce que tu as fait, voir comme ceci ça fonctionne !

Private Sub Quitt_Click()
sauv = MsgBox(" enregistrement des données ?", 3, "sauvegarde data")
If sauv = vbYes Then
   Workbooks("Planning Permanence.xlsx").Close SaveChanges:=False
   ActiveWorkbook.Save: ActiveWorkbook.Close
ElseIf sauv = vbNo Then
   Workbooks("Planning Permanence.xlsx").Close SaveChanges:=False
   ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

 

[herve62]

Re : Coup de main final

Bonsoir
Merci Roland , mais .... cela ne ferme pas le fichier .xlsx ? ( j'ai copié / collé ton code )

 

[Roland_M]

Re : Coup de main final

re

reprend ce que j'ai mis après mon edit, car la première fois ce n'était pas bon !

 

[herve62]

Re : Coup de main final

Oh désespoir ....!! je ne vois pas😕

PS : ce n'est que pacotille mais j'aurai aimé supprimer tous ces "Workbooks..." avant dans les sub , mais le WITH
ne marchait pas ?

 

[Roland_M]

Re : Coup de main final

re

tu as bien repris le code ?
car ce code fonctionne chez moi !?

maintenant si tu veux fermer tous les classeurs on peut voir avec une boucle !

 

[herve62]

Re : Coup de main final

Re Roland
Ben oui j'ai copié TOUT ton code , mais
1 : je veux fermer l'appli
2 : fermer le fichier donnée

Je pense avoir compris !!! Donne ton avis : il faudrait que je quitte les DATA en PREMIER sinon si appli fermé comment fermer l'autre???
MAIS c'EST BIEN SUR ................................!!
Je teste aussi
A+

 

[herve62]

Re : Coup de main final

Désolé
encore une fois trop vite répondu
C'est juste EXCEL qui se ferme pas !!!! je pense que cela va aller : Application.quit
sinon pour raccourcir les expréssions ...workbook ?
Merci
Bonne soirée

 

[Roland_M]

Re : Coup de main final

re

alors comme ceci:

Private Sub Quitt_Click()
sauv = MsgBox(" enregistrement des données ?", 3, "sauvegarde data")
If sauv = vbCancel Then Exit Sub
If sauv = vbYes Then ActiveWorkbook.Save
'close tous les classeurs
Dim Wb As Workbook
For Each Wb In Workbooks
 If Wb.Name <> ThisWorkbook.Name Then Wb.Close SaveChanges:=False
Next
ActiveWorkbook.Close SaveChanges:=False
application.quit
End Sub

 

[Roland_M]

Re : Coup de main final

re

revoir comme ceci c'est ok !

Private Sub Quitt_Click()
sauv = MsgBox(" enregistrement des données ?", 3, "sauvegarde data")
If sauv = vbCancel Then Exit Sub
If sauv = vbYes Then ActiveWorkbook.Save
'close tous les classeurs
Dim Wb As Workbook
For Each Wb In Workbooks
 If Wb.Name <> ActiveWorkbook.Name Then Wb.Close SaveChanges:=False
Next
Application.DisplayAlerts = False
Application.Quit
End Sub

 

[herve62]

Re : Coup de main final [RESOLU]

Je laisse le code de ROLAND qui m'a permis de finir si d'autres ont un Pb de ce genre

Private Sub Quitt_Click()
sauv = MsgBox(" enregistrement des données ?", 3, "sauvegarde data")
If sauv = vbCancel Then Exit Sub
If sauv = vbYes Then ActiveWorkbook.Save
'close tous les classeurs
Dim Wb As Workbook
For Each Wb In Workbooks
 If Wb.Name <> ActiveWorkbook.Name Then Wb.Close SaveChanges:=False
Next
Application.DisplayAlerts = False
Application.Quit
End Sub

Bonne soirée à tous