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 :

Copier une partie des répertoires et fichiers d'un dossier [XL-2010]


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
    Inscrit en
    Octobre 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 8
    Par défaut Copier une partie des répertoires et fichiers d'un dossier
    Bonjour!
    En VBA sous excel, je cherche, à l'aide d'une macro, à copier tous les dossiers et fichiers d'un répertoire sans le fichier "toto.xls". Merci d'avance!
    Cordialement.

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Sur ce post, j'ai mis un exemple avec FSO

    http://www.developpez.net/forums/d10...eurs-fichiers/

  3. #3
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, sous VBE menu Outils/References Cocher Microsoft Scripting Runtime

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Private Sub RecopierDossier(ByVal sDossierACopier As String, ByVal sDossierDestination As String)
    Dim FSO As Scripting.FileSystemObject
     
        Set FSO = New Scripting.FileSystemObject
        FSO.CopyFolder sDossierACopier, sDossierDestination, True
        Set FSO = Nothing
    End Sub
    Une fois la copie effectuée, adapter en rajoutant un kill du fichier non désiré ..... sur la Copie

    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub RecopierDossier(ByVal sDossierACopier As String, ByVal sDossierDestination As String)
    Dim FSO As Object
        Set FSO = CreateObject("Scripting.FileSystemObject")
        FSO.CopyFolder sDossierACopier, sDossierDestination, True
        Set FSO = Nothing
    End Sub
    PS : à lire http://warin.developpez.com/access/fichiers/

  4. #4
    Membre habitué
    Homme Profil pro
    Inscrit en
    Octobre 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 8
    Par défaut
    Merci pour les infos, mais le problème est que je ne peux pas copier le fichier que je ne veux pas car il est utilisé par un autre programme; si j'essaye de tout copier, la macro bug!

  5. #5
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    l'aide d'une macro, à copier tous les dossiers et fichiers d'un répertoire sans le fichier "toto.xls". Merci d'avance!
    A cette lecture, on est bien ok, qu'on ne copie pas physiquement des fichiers dans un fichier excel.
    Il s'agit bien de leurs chemin d'accès ?

  6. #6
    Membre habitué
    Homme Profil pro
    Inscrit en
    Octobre 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 8
    Par défaut
    En fait, je me suis mal expliqué! Le fichier d'exemple "Toto.xls" n'est en réalité, pas un fichier .xls, mais un fichier du logiciel Lotus, qu'il m'est impossible de copier par macro excel. C'est pour cela que je veux l'isoler et copier tous les autres fichiers et répertoires vers une autre destination.

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

Discussions similaires

  1. Copier une partie d'un fichier texte
    Par psgkiki dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/08/2010, 12h32
  2. Créer une archive avec une partie des sous-répertoires
    Par sclinard dans le forum Entrée/Sortie
    Réponses: 1
    Dernier message: 21/07/2010, 11h07
  3. copier une partie de fichier vers un autre
    Par Dx_ter dans le forum Solaris
    Réponses: 6
    Dernier message: 11/11/2009, 10h03
  4. copier une partie d'un fichier texte dans un autre
    Par Valarauko dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 23/10/2007, 21h17
  5. copier une partie d´un fichier dans un autre
    Par makohsarah dans le forum Langage
    Réponses: 8
    Dernier message: 23/08/2006, 09h53

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