IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Supprimer les fichiers d'un répertoire


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Novembre 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Âge : 49

    Informations forums :
    Inscription : Novembre 2009
    Messages : 9
    Points : 9
    Points
    9
    Par défaut Supprimer les fichiers d'un répertoire
    Bonjour à tous,

    Je viens solliciter votre aide sur un code qui ne fonctionne pas.

    Je voudrais supprimer tous les fichiers à la racine du répertoire w:\ qui commencent par "Export"

    voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    Sub clearW()
     
     
    Dim myFso, myFile, myFolder
    Dim f
     
    Set myFso = CreateObject("Scripting.FileSystemObject")
        'sélection du dossier à analyser
    Set myFolder = myFso.GetFolder("w:\")
     
        'boucle sur tous les fichier du dossier
    For f = 1 To 10
       myFile = Dir("w:\Export*" & ".xls")
     
     On Error Resume Next
     
          ' supprime le fichier qui commence par "Export"
    If myFile <> "" Then Kill myFile
     
    On Error GoTo 0
     
    Next f
     
    End Sub
    Pouvez-vous me dire où je me suis plantée ? ou avez une autre proposition ?

    merci d'avance

    Bonne journée !
    (et bon week-end pour les chanceux qui font le pont)

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Salut,

    a quoi te sert ta boucle sur f, qui ne sert pas semble-t-il... ?

    avant de mettre les On Error, il est important de comprendre les erreurs possibles pour les contourner ou les anticiper...
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Futur Membre du Club
    Inscrit en
    Novembre 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Âge : 49

    Informations forums :
    Inscription : Novembre 2009
    Messages : 9
    Points : 9
    Points
    9
    Par défaut
    Bonjour,

    merci pour ta réponse


    je pensais boucler sur les fichiers de 1 à 10 .....

    le fichier qui commence par "Export" est récupéré dans la variable MyFile
    s'il commence par export = détruire
    si non passe au suivant ...etc ...

    apparement ça le fait pas !

  4. #4
    Futur Membre du Club
    Inscrit en
    Novembre 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Âge : 49

    Informations forums :
    Inscription : Novembre 2009
    Messages : 9
    Points : 9
    Points
    9
    Par défaut
    erreur trouvée :

    il fallait mettre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If myFile <> "" Then Kill ("w:\Export*" & ".xls")
    bonne journée à tous

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 14/07/2012, 10h01
  2. [Batch] Parcourir un répertoire et supprimer les fichiers vides
    Par olivier.x dans le forum Scripts/Batch
    Réponses: 23
    Dernier message: 21/01/2010, 16h36
  3. Réponses: 5
    Dernier message: 23/06/2008, 15h47
  4. Réponses: 4
    Dernier message: 24/09/2004, 11h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo