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.