Sortie d'Excel

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 18 Mai 2005

• #2

Bonjour,

Voici le code à placer dans VBA - Thisworkbook

Code:

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

😉

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 18 Mai 2005

• #3

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

 

Vote positif 0 Vote négatif

R

Riddick

XLDnaute Occasionnel

• 18 Mai 2005

• #4

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]

 

Pièces jointes

• Classeur1_20050518115053.zip

  9.4 KB · Affichages: 31

Vote positif 0 Vote négatif

F

Francis

Guest

• 18 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 18 Mai 2005

• #6

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.


😉

 

Vote positif 0 Vote négatif