comment récupérer le nom d'un fichier

[paul87]

Bonjour à tous, bonjour le Forum,
comment fait on pour remplacer par exemple le xxx le nom du fichier ouvert en cours juste pour fermer celui ci et pasles autres si il y en a d'ouverts

Workbooks("[COLOR="Blue"]xxx[/COLOR].xls").Close

Merci

 

[Cousinhub]

Re : comment récupérer le nom d'un fichier

Bonjour,

si c'est vraiment le classeur actif, tu peux mettre ainsi :

ActiveWorkbook.Close False

Le False, si tu ne veux pas enregistrer les modifications, sinon, tu mets True

 

[paul87]

Re : comment récupérer le nom d'un fichier

rebonjour et merci à toi, bhbh
ça marche, mais pas complètement,...
le fichier se ferme bien, mais pas complètement, il reste en bas dans la barre des taches...
je ne veux pas utiliser

application.quit

qui fermerai tous les fichiers.xls..
je veux juste fermer définitivement le fichier en cours
c'est pour cela que je voulais essayer avec

Workbooks("[COLOR="Blue"]nom du fichier[/COLOR].xls").Close

mais je ne saispas comment faire pour récupérer dans le code ce nom

Encore Merci

 

[Cousinhub]

Re : comment récupérer le nom d'un fichier

Re-,

essaie :

Sub fermer()
Dim x As String
x = ActiveWorkbook.Name
Workbooks(x).Close False
End Sub

 

[paul87]

Re : comment récupérer le nom d'un fichier

Oui,
Grand MERCI à toi bhbh...
ce coup ci ça marche,...
c'est bien le nom du fichier qu'il fallait
Encore merci,
bonne soirée