Macro Save et Quitt

[Antho35]

Bonjour,

J'ai créer une petit application avec u boutton quitter ayant ce code là

Sub savequitt_QuandClic()
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Ce fichier est mis sur un espace commun, il a été créer sur mon poste et mis sur un serveur pour être utilisable par plusieur utilisateur, le bouton quitter ne marche que sur mon poste, pour le reste des utilisateur il a enregistrement mais pas de fermeture de l'appliocation

Pourriez vous m'aider

Merci

 

[Pierrot93]

Re : Macro Save et Quitt

Bonjour,

le bouton quitter ne marche que sur mon poste, pour le reste des utilisateur il a enregistrement mais pas de fermeture de l'appliocation

sans doute plus d'un classeur ouvert..

If Workbooks.Count = 1

ne serait ce que le classeur de macro perso + ton classeur...

bon après midi
@+

 

[Antho35]

Re : Macro Save et Quitt

Merci Pierrot, pas d'autre classeur ouvert, sauf a mon avis le perso qu'on ne voir pas

Que modifier dans le code ?

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

essaye ceci, en supposant que le nom du classeur de macro perso n'ait pas été modifié par les utilisateurs...

Option Explicit
Sub test()
If Workbooks.Count = 1 Or (Not ClasseurExiste("perso.xls") Is Nothing And Workbooks.Count = 2) Then
    'application.quit
End If
End Sub

Function ClasseurExiste(c As String) As Workbook
On Error Resume Next
Set ClasseurExiste = Workbooks(c)
End Function

perso, j'aime pas trop que l'on me force à quitter Excel... surtout que sur d'anciennes versions l'utilisateur peut perdre son boulot....

 

[Antho35]

Re : Macro Save et Quitt

Re Pierrot,

Je ne vois pas le "save" je met ce code à la place de l'autre ?

Le code était dans un "module" et non dans le workbook

Merci

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

modifie comme suit, à placer dans un module standard :

Option Explicit
Sub test()
ThisWorkbook.Save
If Workbooks.Count = 1 Or (Not ClasseurExiste("perso.xls") Is Nothing And Workbooks.Count = 2) Then
    Application.Quit
Else
    ThisWorkbook.Close
End If
End Sub
Function ClasseurExiste(c As String) As Workbook
On Error Resume Next
Set ClasseurExiste = Workbooks(c)
End Function

 

[Antho35]

Re : Macro Save et Quitt

Re,

Non rien ne se passe, enregistrement mais pas de fermeture, même sur mon poste.

Merci

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

fonctionne chez moi sous 2003.... Faut voir ensuite combien de classeurs sont ouverts et quel est le nom du classeur de macro perso...; A noter que d'autres classeurs peuvent être ouverts et masqués..

 

[Antho35]

Re : Macro Save et Quitt

Ok, mais cela est diificle à savoir et cela depend des mommentla peut etre 2 mais devant peut etre plusieur ouvert en meme temps....

N'y a t-il pas une macro plus simple ?

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

une autre approche :

Option Explicit
Sub test()
Dim wn As Window, i As Integer
For Each wn In Windows
    If wn.Visible Then i = i + 1
Next wn
ThisWorkbook.Save
If i = 1 Then
    Application.Quit
Else
    ThisWorkbook.Close
End If
End Sub

 

[Antho35]

Re : Macro Save et Quitt

Re,

Meme probléme obliger a quitter ave la croix de fermeture.

Merci

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

faut voir ce que vaut i.... difficile de t'en dire plus, ce code fonctionne aussi chez moi... pas d'autre idée...

 

[Antho35]

Re : Macro Save et Quitt

et comment tu peux voir ce que vaut "i"

 

[Pierrot93]

Re : Macro Save et Quitt

BONJOUR,

dans la fenêtre des variables locales.... dans l'éditeur vba => barre de menu => affichage => fenêtre variables locales, ensuite tu exécutes le code pas à pas...

 

[Antho35]

Re : Macro Save et Quitt

Et tu veux que te transmettre quelques chose si oui dit moi quoi

Merci pour ta perseverance