Discussion :

[comme de bien entendu]

Bonjour,

J'ai ouvert les fichiers qui étaient dans un repertoire, j'ai obtenu une liste de fichier que j'ai ouvert.
avec

Code :

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

1
2
3
4
5
6
For i = 1 To .FoundFiles.Count
                MsgBox .FoundFiles(i)
                FichierAOuvrir = .FoundFiles(i)
                TableauFich(i) = FichierAOuvrir
 
            Next i

Maintenant je veux fermer mes fichiers et même en écrivant en dur
mon code avec

Code :

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

 Workbooks("L:\RoFa\2007\02. February RF\G&A\72000 - RF July.xls").Close SaveChanges:=False

Ca me renvoie l'erreur

Run time erreur 9
subscript out of range

D'avance merci de vos idées. Peut être y a t'il un concept que j'ai raté...

[ouskel'n'or]

Quand tu fermes un fichier ouvert son nom perd le chemin

Code :

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

Workbooks("72000 - RF July.xls")...

ÇA SUFFIT !

Edit
Ensuite

Code :

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

Workbooks("72000 - RF July.xls").close False

SUFFIT AUSSI

[comme de bien entendu]

Merci bien.
Qu'est ce qu'on est bête quand on sait pas.