récupérer nom de fichier et Fermer XLA partagée

[Polpoye]

bonjour,
comment récupérer le nom du classeur ouvert dans une variable? (le but au final est de femer un XLA si mon fichier XLS n'est plus ouvert ! )

ca, ca marche pas :'(

/* dans le ThisWorkbook du XLA */
Dim wbk
----------
Sub Quitter()
Set wbk = activeworkbook
If TypeName(Wbk) = " " Then Me.Close
End Sub
---------

 

[STéphane]

bonjour


if wbk.name ="toto" then wbk.close savechanges:=false

attention me.close n'est pas très sûr

bye
stephane

 

[Polpoye]

Merci pour cette vivacité et ce PRECIEUX conseil...
Bonne fin d'appétit si il vous (= les génies de de ce forum qui répondent a nos pitites questions.... // attention ceci n'est pas une formule!! // ) de manger entre deux reponses.

Bonne continuation.