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 :

Suppression d'un fichier en VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2015
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Décembre 2015
    Messages : 9
    Par défaut Suppression d'un fichier en VBA
    Bonjour,

    La macro suivante permet de copier un fichier avec une extension Pdf et le déplacer vers un autre répertoire et de le supprimer une fois la copie est faite.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub test()
     
        DestinationFile = ThisWorkbook.Path
        nomFichier = Dir("C:\*.PDF")
        sourceW = "C:\"
        Do While Len(nomFichier) > 0
            FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
            Kill sourceW & nomFichier
            nomFichier = Dir
        Loop
    End Sub
    La copie s’effectue bien, mais la suppression ne se fait pas et j’ai le message suivant :
    « Erreur d’accès Chemin/Fichier » à la ligne 8
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Kill sourceW & nomFichier
    Où se situe le problème ?

    Merci de votre aide.

  2. #2
    Membre éclairé
    Homme Profil pro
    Constructeur ossature bois
    Inscrit en
    Mars 2014
    Messages
    897
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Constructeur ossature bois
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Mars 2014
    Messages : 897
    Par défaut
    Salut Antoine,

    Chez moi aucun problème
    le Kill se passe bien, sauf cette partie qui ne veux rien dire "problème d'argument" que j'ai mis en commentaire dans le code ci-dessous mais ça c un autre problème:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub test()
     
        DestinationFile = ThisWorkbook.Path
        nomFichier = Dir("F:\resonateur.pdf")
        sourceW = "F:\"
        Do While Len(nomFichier) > 0
            FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
            Kill sourceW & nomFichier
     
            'nomFichier = Dir
        Loop
    End Sub
    Si tu as respecté l'enregistrement de ton classeur, l'existance de ton fichier pdf, et bien pas de souci, quand tu regardes mon code la seule chose que j'ai changé c'est le nom du fichier et la source

    Redit nous
    Seb

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonjour,


    avant de faire cela avec une macro as tu essayé de supprimer le fichier par l'explorateur de windows ?

  4. #4
    Membre habitué
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2015
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Décembre 2015
    Messages : 9
    Par défaut
    Bonjour,


    Oui, mais celà n'a pas résolu mon problème.

  5. #5
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Citation Envoyé par antoinesop Voir le message
    Bonjour,


    Oui, mais celà n'a pas résolu mon problème.
    pas de problème pour la suppression depuis l'explorateur ?

  6. #6
    Membre éclairé
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2014
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2014
    Messages : 35
    Par défaut Windows 10 impossible de Kill un fichier à la racine de l'OS
    Bonjour,

    Sur Windows 10, si l'OS est installé sur le disque C, il refuse l’accès à la racine pour l'instruction Kill, du coup il faudrait ranger les PDF dans un dossier et non à la racine.
    J'ai également testé avec FSO et pareil.

    @+

Discussions similaires

  1. Suppression de toutes les macros VBA d'un fichier Excels
    Par PJ_VBA dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 23/09/2012, 18h35
  2. suppression d'un fichier en VBA
    Par Naoned005 dans le forum Macros et VBA Excel
    Réponses: 26
    Dernier message: 16/05/2012, 11h56
  3. [VBA-E]Empécher la suppression d'un fichier excel
    Par lio62 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 05/02/2007, 20h55
  4. Réponses: 2
    Dernier message: 11/08/2003, 13h43
  5. [LG]suppression dans un fichier
    Par cedrick essale dans le forum Langage
    Réponses: 5
    Dernier message: 10/08/2003, 15h22

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