Macro / VBA - fermeture fichier avec nom variable

Bonjour,

Dans un fichier A, j'ai une macro qui ouvre un fichier B (en permanence) et autre fichier C ou D ou ...

Quand la macro a fini de tourner, je voudrais pouvoir fermer ces fichiers là.

Pour l'ouverture j'ai le code suivant :

Ouverture du fichier excel de la SES

Workbooks.Open Filename:=Range("AH5").Value

' Ouverture du fichier excel pour le calcul des utilisations de composants + copier/coller de la colonne

Workbooks.Open Filename:= _

"\\CHABNS6\Workgroup\Engineering\Ressources_de_travail_N2\02_Documentation_N2\Codebook\Utilisation_item_electriques1.xlsm"

Columns("AH:AH").Select

Selection.Copy

' Collage du résultat dans le codebook électrique

Windows("Electrical_codebook_SES - test3.xlsm").Activate

Columns("AH:AH").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

' Fermeture des fichiers

Windows("Utilisation_item_electriques1.xlsm").Activate

ActiveWorkbook.Save

ActiveWindow.Close

Par contre quel code je dois mettre pour la fermeture du fichier qui peut s'appeler C, D ou Autre ? (dans le code source, le nom du fichier se trouve dans la cellule AH5 par exemple)

D'avance merci pour votre aide.

Bonjour Remi,

Je pense que le plus simple est de "nommer" tes fichiers au moment où tu les ouvres, par exemple :

book1 = ActiveWorkbook.Name

Et à la fin :

Workbooks(book1).Close

PS : Pense à utilise les balises de code stp

Merci, par contre comment fait-on pour nommer les fichier ?

Essaye comme ça, en espérant avoir bien compris quels fichiers tu voulais nommer/fermer

'Ouverture du fichier excel de la SES
Workbooks.Open Filename:=Range("AH5").Value
book1 = ActiveWorkbook.Name

' Ouverture du fichier excel pour le calcul des utilisations de composants + copier/coller de la colonne
Workbooks.Open Filename:= _
"\\CHABNS6\Workgroup\Engineering\Ressources_de_travail_N2\02_Documentation_N2\Codebook\Utilisation_item_electriques1.xlsm"
book2 = ActiveWorkbook.Name
Columns("AH:AH").Select
Selection.Copy

' Collage du résultat dans le codebook électrique
Windows("Electrical_codebook_SES - test3.xlsm").Activate
Columns("AH:AH").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' Fermeture des fichiers
Windows("Utilisation_item_electriques1.xlsm").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks(book1).Close
Workbooks(book2).Close

Merci beaucoup ca marche