Ouvrir un sous dossier et écrire le nouveau chemin dans un variable
j
Bonsoir les amis! j'ai besoin un peu d"aide pour ouvrir un sous dossier nommé "Daten" qui se situe dans le dossier "VBA". Mon code me permet en effet de faire cela mais je dois toujours selectionner le dossier "VBA" en premier et apres on me demande par l'inputbox si je veux ouvrir le sous dossier... si je choisi le sous dossier directement par l'Inputbox ca me fait erreur... je voudrai bien pouvoir choisir le sous dossier "Daten" directement aussi.
Set fileExplorer = Application.FileDialog(msoFileDialogFolderPicker)
'To allow or disable to multi select
fileExplorer.AllowMultiSelect = False
With fileExplorer
If .Show = -1 Then 'Any folder is selected
strPath = .SelectedItems.Item(1)
oui_non = InputBox("Ouvrir le sous dossier? oui ou non 0?")
If oui_non = oui Then
strSubFolder = InputBox("Quel sous dossier voulez vous ouvrir? ")
If strSubFolder <> "" And Not Dir(strPath & "\" & strSubFolder, vbDirectory) = "" Then
strPath = strPath & "\" & strSubFolder
Else
MsgBox "Existe pas!, Path ist : " & strPath
End
End If
Else
End
End If
Else ' else dialog is cancelled
MsgBox "You have cancelled the dialogue"
End
strPath = "" ' when cancelled set blank as file path.
End If
End With
End IfMerci pour votre aide
Hello,
Remplace ta variable strPath par le sous dossier directement.
et garde ce code :
Set fileExplorer = Application.FileDialog(msoFileDialogFolderPicker)
'To allow or disable to multi select
fileExplorer.AllowMultiSelect = False
With fileExplorer
If .Show = -1 Then 'Any folder is selected
strPath = .SelectedItems.Item(1)
Else
End
End If
Else ' else dialog is cancelled
MsgBox "You have cancelled the dialogue"
End
strPath = "" ' when cancelled set blank as file path.
End If
End With
End IfR@g