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

paul87

XLDnaute Impliqué
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

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

bhbh

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

Bonjour,

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

Code:
ActiveWorkbook.Close False
Le False, si tu ne veux pas enregistrer les modifications, sinon, tu mets True
 

paul87

XLDnaute Impliqué
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
Code:
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
Code:
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
 

bhbh

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

Re-,

essaie :

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

paul87

XLDnaute Impliqué
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
 

Discussions similaires


Haut Bas