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 :

VBA Copier/Coller dossier et sous Dossier avec leurs contenue


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Ingénieur
    Inscrit en
    Décembre 2018
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : Décembre 2018
    Messages : 98
    Par défaut VBA Copier/Coller dossier et sous Dossier avec leurs contenue
    Bonjour,

    Je voudrait en cliquant sur un bouton de mon UserForm, une vérification se fasse si j'ai un dossier présent ou non dans mon dossier sélectionner dans ma Combox1.

    Si le dossier n'est pas présent, ouvrir une fenêtre où j'irais chercher mon dossier et le copier coller se ferrais automatiquement avec le chemin de ma ComboBox1.

    J'ai déjà une partie du code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Public Function DossierExiste1(MonDossier As String)
       If Len(Dir(MonDossier, vbDirectory)) > 0 Then
          DossierExiste1 = True
       Else
          DossierExiste1 = False
       End If
    End Function
    et
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub CommandButton6_Click()
    Dim Mypath As String
    Mypath = Parent & "\projets\" & ComboBox1 & "\" & "toto"
        If DossierExiste1(Mypath) = True Then
            MsgBox "Le dossier existe...", , "toto"
        Else
            MsgBox "Le dossier n'existe pas...", , "toto"
                                                                            'Ouvrir fenêtre
                                                                            ' Dossier Sélectionner
                                                                            ' Copier Dans MyPath sans "toto"
     
        End If
    End Sub
    Merci de votre aide sans FSO.

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    J'ai déjà une partie du code
    Ah.
    Dis-nous alors ce que contient réellement la variable Parent dans
    Mypath = Parent & "\projets\" & ComboBox1 & "\" & "toto"
    (si tu ne le sais pas, l'utilisation d'une bête msgbox devrait t'en informer.

  3. #3
    Membre confirmé
    Homme Profil pro
    Ingénieur
    Inscrit en
    Décembre 2018
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : Décembre 2018
    Messages : 98
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Parent = Mid(ThisWorkbook.Path, 1, InStrRev(ThisWorkbook.Path, "\") - 1)
    Si le dossier n'existe pas, il y a un message qui s'affiche et je voudrait ensuite qu'une fenêtre s'ouvre pour que l'utilisateur puisse aller chercher le dossier.

    Ce dossier contient des sous dossier avec des fichiers dans chacun d'eux. et je voudrait que ce dossier soit copier où je fait ma recherche.

    De plus l'adresse où se trouve le dossier à copier n'est pas connue, c'est l'utilisateur qui doit aller le chercher.

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Tu n'as absolument pas répondu à la question que je t'ai posée et que tu éludes sans sourciller.
    Bonne chance.

  5. #5
    Membre confirmé
    Homme Profil pro
    Ingénieur
    Inscrit en
    Décembre 2018
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : Décembre 2018
    Messages : 98
    Par défaut
    Je viens de comprendre ta question

    C:\Dossier1

    Comme le dossier1 peut changer de nom je ne le mets pas en dur dans le code.

  6. #6
    Membre confirmé
    Homme Profil pro
    Ingénieur
    Inscrit en
    Décembre 2018
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : Décembre 2018
    Messages : 98
    Par défaut
    Je n'arrive pas à m'en sortir avec mon copier coller.

    J'arrive à faire mon teste de savoir si mon dossier est présent. Si mon dossier est présent mon bouton ne s'affiche pas.

    Quand le dossier n'est pas présent le bouton s'affiche.

    Le problème arrive là c'est au moment où je clique sur le bouton pour ouvrir une fenêtre Windows pour récupérer (sélectionner) mon dossier et le chemin de la copie. Partie ou je n'arrive pas à le faire.

    Le chemin d'arrivé est connue.

    Merci de votre aide.

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

Discussions similaires

  1. Copier / Coller / Repartir en sous dossier
    Par polak7474 dans le forum Scripts/Batch
    Réponses: 2
    Dernier message: 14/04/2017, 10h44
  2. [XL-2010] copier coller des lignes sous condition avec un changement de texte sur la ligne copiée.
    Par a.ouguerzam dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 10/11/2014, 16h48
  3. [Batch] Copier dans dossier et sous dossier
    Par 123Roulement dans le forum Scripts/Batch
    Réponses: 5
    Dernier message: 26/05/2012, 00h59
  4. [Snow Leopard] Problème de droits avec un dossier, ses sous-dossier et ses fichiers
    Par rambc dans le forum Apple
    Réponses: 21
    Dernier message: 07/03/2010, 10h18
  5. Copier un fichier dans un dossier sur le serveur avec PHP
    Par dotnet_kbma dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 31/01/2010, 21h27

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