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 :

rech commande pour déplacer des fichiers dans un liste vers un autre dossier [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Février 2010
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 11
    Points : 8
    Points
    8
    Par défaut rech commande pour déplacer des fichiers dans un liste vers un autre dossier
    Bonjour Daniel,

    Je cherche à déplacer des photos d'un répertoire à un autre en suivant une liste de fichier dans Excel 2010.
    Mes recherches m'ont conduites à ta proposition dans cette discussion que j'ai modifiée en fonction de mes répertoires :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub Transfert()
     
        Dim C As Range, Source As String, Desti As String
     
        Source = "P:\French Digital Tour\__FDT_2015\Jugement_FDT_2015\Couleur"
     
        Desti = "P:\French Digital Tour\__FDT_2015\Jugement_FDT_2015\Couleur\Retenues"
     
        For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))
            If Dir(Source & C.Value) <> "" Then
                Name Source & C.Value As Desti & C.Value
            End If
        Next C
    End Sub
    Mais cela ne semble pas fonctionner.
    Je parcours bien la liste de fichiers à déplacer mais aucun d'eux n'est déplacés.
    Petite précision je suis sous Excel 2010 et je suis loin d'être un expert en VBA.
    Peux-tu m'aider?

    D'avance merci.
    Cordialement
    Mistral

  2. #2
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Points : 14 363
    Points
    14 363
    Par défaut
    Bonjour,

    Ajoute un "\" à la fin de "Source" et "Desti".

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    Février 2010
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 11
    Points : 8
    Points
    8
    Par défaut Remerciement
    A mon tour de te remercier chaleureusement car cela fonctionne parfaitement et m'évite des heures derrière l'écran à chercher des photos.

    Je suis débutant en VBA et je très loin de tout comprendre, par contre suite à cette première étape les idées fusent.
    Serait-il possible de :
    - Avoir une boîte de dialogue dans laquelle on pourrait choisir le répertoire dans lequel se trouvent les photos à déplacer.
    - Créer dans se même répertoire un sous répertoire, en rajoutant "Retenues" au chemin trouvé, dans lequel seraient copier les photos.

    D'avance merci.
    Mistral

  4. #4
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Points : 10 166
    Points
    10 166
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Citation Envoyé par Mistral13200 Voir le message
    Avoir une boîte de dialogue dans laquelle on pourrait choisir le répertoire dans lequel se trouvent les photos à déplacer.
    - Créer dans se même répertoire un sous répertoire, en rajoutant "Retenues" au chemin trouvé, dans lequel seraient copier les photos.

    D'avance merci.
    Mistral
    Tu peux utiliser toutes les boîtes de dialogue d'Excel en VBA. La première place à regarder c'est dans l'aide de VBA. Cherche Dialog.

    Sinon, tu peux faire comme tous (du moins presque tous) les "experts" d'Excel ont fait un jour ou l'autre dans leur vie : Enregistrer une macro.

    Cela donne un canevas de procédure VBA que l'expérience va te montrer à compléter et à élaguer.

    Si l'onglet "Développeur" du ruban n'est pas affiché, il faut le faire en fouillant dans la Personnalisation d'Excel.

    Un autre truc extrêmement intéressant durant l'écriture du code dans l'éditeur VBA :

    Un clic sur un mot-clef et

    Souvent, cela évite de perdre 2 ou 3 heures à attendre la réponse dans un forum.

  5. #5
    Futur Membre du Club
    Profil pro
    Inscrit en
    Février 2010
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 11
    Points : 8
    Points
    8
    Par défaut
    Merci à toi pour ces bons conseils.
    Je vais essayer de m'en sortir seul.

    Cordialement
    Mistral

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

Discussions similaires

  1. [XL-2013] rech commande pour déplacer des fichiers dans un liste vers un autre dossier
    Par cmoithiery dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 03/11/2015, 13h18
  2. Réponses: 0
    Dernier message: 26/12/2014, 17h30
  3. Problème pour déplacer des fichiers
    Par kurul1 dans le forum C++Builder
    Réponses: 16
    Dernier message: 07/03/2007, 17h25
  4. Réponses: 3
    Dernier message: 30/11/2006, 12h38
  5. Réponses: 3
    Dernier message: 12/04/2006, 21h44

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