Sortie d'Excel

[Francis]

Bonjour le forum,

j'ai une 'incohérence' avec ce code:
Private Sub sortie()

MsgBox 'Utilisateur non référencé'
Application.Quit

End Sub

Il me ferme le classeur mais pas Excel?

Y a t'il un paramêtre qui pourait me faire ça?
Merci du coup de main.

Francis

 

[Dan]

Bonjour,

Voici le code à placer dans VBA - Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox 'Utilisateur non référencé'
Application.Quit
End Sub

Accès à Thisworkbook :

- vas dans VBA et faisant CTRL+R pour visualiser la fenêtre Project VBA (à gauche)
- Double clique sur Thisworbook puis place le code dans la fenêtre de droite
- enregistre ton fichier avant de fermer.

Bon travail

 

[Francis]

Bonjour Dan, le Forum,

J'ai effectivement ce genre de code avec private sub Workbook_Beforeclose(), mais cette partie de code est dû a des circonstances anormales. J'aurai donc souhaité fermer tout bonement Excel.

@+ Dan

Francis

 

[Riddick]

Bonjour Francis Dan

c'est bizarre pour moi:

Application.quit Ferme excel et le fichier
Activewindows.close Ferme que le fichier

teste si le fichier en pièce jointe marche sur ton PC.... [file name=Classeur1_20050518115053.zip size=9609]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050518115053.zip[/file]

 

[Francis]

Bonjour Riddick, Re Dan, le forum

Oui chez moi aussi, mais Application.Quit n'est pas ds Workbook_beforeclose j'ai donc trouvé une astuce qui consiste a mettre une valeur ds une cellule et de fermer mon classeur. Ds la proc de fermeture tester cette cellule et soit fermer le classeur ou quitter Excel.

Bonne journée.

Francis

 

[Dan]

Francis,

en relisant ton 1er message et le dernier j'ai l'impression de ne plus comprendre ta demande.
Avec ce que je t'ai donné tu fermes le classeur et aussi Excel.

Peux-tu :
- réexpliquer ce que tu veux exactement faire étape par étape.
- me donner la version d'Excel.