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é...