vba - Supprimer un fichier ouvert

Bonjour,

Je voudrais supprimer tous les fichiers se trouvant dans un répertoire :

Code:

---

1 2 3 4 5 6 7 8

StrPath="C:\Exports" Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(StrPath & "\FichesTemp") Then Set Files = FSO.GetFolder(StrPath & "\FichesTemp").Files For Each File In Files Kill File Next File end if

---

Ce la fonctionne bien sauf si l'un des fichiers est ouvert ?
Comment faire ?

Merci bien.

Bonjour

Il faut fermer le fichier... C'est le seul moyen, à mon avis. Si tu essayes, via l'explorateur, de fermer un fichier ouvert, tu auras un message d'erreur... Ben par vba, c'est pareil...

Alors, oui... on est bien d'accord mais je ne connais pas la syntaxe pour fermer un "File".

Merci!

Bonjour tlm,

Ce ou ces fichiers ouverts le sont sur ton PC ou sur le PC d'un autre utilisateur ?

Si c'est le second cas, je ne vois pas d'autre solution que de prendre le téléphone et de lui demander (gentillement) de le fermer.

Avec une petite gestion d'erreur, tu pourrais déjà supprimer tous ceux qui ne sont pas ouverts

Code:

---

1 2 3 4 5 6 7 8 9

StrPath="C:\Exports" Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(StrPath & "\FichesTemp") Then Set Files = FSO.GetFolder(StrPath & "\FichesTemp").Files For Each File In Files On Error Resume Next Kill File Next File end if

---

Une autre idée pourrait être de gérer l'erreur en stockant "quelque part..." les noms complets des fichiers qui n'ont pas pu être supprimés, et de:
soit relancer au travers d'une boucle jusqu'à ce qu'il n'y ait plus d'erreurs (pas bon, à mon avis...)
soit de les garder dans un fichier log, une table access, une feuille Excel, ... pour tenter de les supprimer à nouveau lors d'une prochaine tentative...

:salut:

Juste pour dire que ce genre de traitement de nettoyage est quelquechose qui est typiquement à exécuter au startup du pc (ou du serveur) pour assurer un maximum d'efficacité.

Tu peux aussi lancer ce traitement de manière automatique avec un certain timing entre les runs. Cela te donnera un résultat le meilleur possible.

;)

Ok,
Merci beaucoup pour toutes vos réponses.
En fait ces fichiers sont (potentiellement) ouverts sur les ordis de mes clients quand ils lancent la macro.

Je croyais qu'il existait un moyen de fermer des "file"... mais comme ce sont tous des Ppt, je vais passer par un classique :

Code:

---

1 2 3

For Each Pres In ppApp.Presentations Pres.Close Next

---

Encore merci.