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

Re,

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

non, vérifie ce que vaut i, logiquement > 1....

 

[Antho35]

Re : Macro Save et Quitt

Bonjour;

Sur un nouveau classeur la derniére macro de pierrot marche parfaitement, sauf lorsque le classeur est ouvert seul (marche uniquement sur plusieurs classeur exel ouvert en même temps)

Je comprend rien du tout là

Merci pour votre aide

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

est ce que ton "vrai" fichier n'a pas été ouvert / enregistré avec plusieurs fenêtres ??? (barre de menu => fenêtre => nouvelle fenêtre) si c'est le cas fermer les fenêtres supplémentaires et enregistrer le fichier avant fermeture...

 

[Antho35]

Re : Macro Save et Quitt

Visiblement non, meme le deuximé code marche un classeur vide. Alors là...... dans mon vrai fichier qui déasse les 12mo il y a plein de code vba. n'y aurait il pas un code qui rentait en comflit ?

Y a t-il un code a mettre a un endroit pour contpurner les comflit ?

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

pour interrompre les procédures événementielles :

Application.EnableEvents = False
'ton code
Application.EnableEvents = True

 

[Antho35]

Re : Macro Save et Quitt

a mettre je supose au début et à la fin du code ?

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

oui...

 

[Antho35]

Re : Macro Save et Quitt

Avec ce code j'obtient le message erreur de compilation instruction incoreherante à l'exterieur d'une procédure

 

[Pierrot93]

Re : Macro Save et Quitt

Re,

il faut bien sur le placer à l'intérieur de la sub...

Sub test()
Application.EnableEvents = False
'ton code
Application.EnableEvents = True

End Sub

 

[Antho35]

Re : Macro Save et Quitt

Pieerot, accepterai tu que je t envoi mon fichier par mail et que tu regarde ce qui ne va pas (je sais c'est pas comforme à la chartre du forum) il a peut etre un truc qui m'échappe.

 

[Antho35]

Re : Macro Save et Quitt

Ah ca me convient mieux déjà, je teste demain sur des poste utilisateurs autre que le miens et te tiens au courant. voir si ça ne met pas en complit le reste de l'outils.