Discussion :

[chito79000]

Bonjour,

L'objet est très clair je n'arrive pas a trouver le code pour fermer le fichier en fonction des valeurs de deux cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
z = Sheets("Feuil1").Range("A1").Value
a = Sheets("Feuil1").Range("A2").Value & ".xlsx"
Workbooks.Open Filename:=z & a

[Kimy_Ire]

Bonjour chito79000,

Tu as besoin de valeurs pour fermer un fichier ? C'est-à-dire ?
ThisWorkbook.Close True te permet de fermer en sauvegardant...

Cordialement,
Kimy

[chito79000]

Merci de votre retour
Sauf que par la suite, je suis sur un autre fichier.

[Invité]

Bonsoirs,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Wb as  Workbook
z = Sheets("Feuil1").Range("A1").Value
a = Sheets("Feuil1").Range("A2").Value & ".xlsx"
set Wb=Workbooks.Open(z & a)
Wb.close false
set Wb = Nothing