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
et
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
Merci de votre aide sans FSO.
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
Partager