Discussion :

[Nico451]

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.

[unparia]

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.

[Nico451]

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.

[unparia]

Tu n'as absolument pas répondu à la question que je t'ai posée et que tu éludes sans sourciller.
Bonne chance.

[Nico451]

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.

[Nico451]

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.