Xpress Blog'

Exemple pour la suppression de fichiers excel dans un dossier si existants

'On déclare le dossier et le type de fichier
directory = "CheminRéseauDossier"
Set obj = CreateObject("Scripting.FileSystemObject")
fileName = Dir(directory & "*.xl??")
        
Puis on supprime l'objet s'il existe 
If obj.FileExists(directory & fileName) Then
obj.DeleteFile (directory & fileName)
MsgBox ("Le fichier a ete supprime")


					

        If (mainworkBook.Sheets.Count > 1) Then
                        For i = 2 To mainworkBook.Sheets.Count
                        NomFeuille = mainworkBook.Sheets(i).Delete
                        Next 
       End If