Discussion :

[House MD]

Bonjour,

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

Code :

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

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.

[Pierre Fauconnier]

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

[House MD]

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

Merci!

[fring]

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 :

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

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

[Pierre Fauconnier]

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

[Godzestla]

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.

[House MD]

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 :

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

1
2
3
For Each Pres In ppApp.Presentations
   Pres.Close
Next

Encore merci.