Code pour l'ouverture d'un dossier [Résolu]

[majudis]

Bonjour,

je galère pour trouver le code qui me permet d'ouvrir un dossier sur mon disque dur. Je voudrais mettre derrière un bouton de mon formulaire, un code qui ouvre en fonction du nom taper dans une inputbox :

Du genre :

Code :

1
2
3
Dim Chemin As String
 
Chemin = inputbox("quel dossier voulez vous ouvrir ?")

Supposons que je tape "Dossier1"

Ouverture du dossier ("C:\'" & Chemin & "')

Et si le dossier n'existe pas qu'il me mette une Message Box avec "Ce répertoire n'existe pas, souhaitez vous le créer ?"

Je vous remercie d'avance pour votre aide

Bonne journée à tous

[Aegnor]

Bonjour,

je vous suggère d'utiliser plutôt les API windows afin d'ouvrir les fenêtres windows de sélection de répertoire. Non seulement c'est beaucoup plus "classe" au niveau interface mais c'est aussi beaucoup plus fiable car vous n'avez pas à tester toutes les différentes saisies possibles des utilisateurs.

Vous trouverez le code dans la FAQ : http://access.developpez.com/faq/?pa...Rep#select_rep

Je l'utilise régulièrement dans mes programmes et je n'ai pas le moindre problème avec.

Une fois le chemin récupéré, vous n'avez plus qu'à lancer un shell pour ouvrir l'explorateur au répertoire désiré :

Code :

shell "explorer /e, """ & CheminRepertoire & """",vbMaximizedFocus

Cordialement,

[keita]

bonjour à tous
Essaie ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim fs As New FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
Dim Chemin As String, rept As String
Chemin = InputBox("quel dossier voulez vous ouvrir ?")
rept = "C:\" & Chemin
If fs.FolderExists(rept) = False Then
      If MsgBox("Ce repertoire n'existe pas!" & vbCrLf & "souhaitez-vous le créer maintenant?", vbInformation + vbDefaultButton1 + vbYesNo, "Monappli") = vbNo Then
          Set fs = Nothing
          Exit Sub
       End If
      MkDir rept
      MsgBox "Le repertoire " & rept & vbCrLf & "a été crée avec succès.", vbExclamation, "MonAppli"
      Set fs = Nothing
End If
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = rept
    .Show
End With

@+

[majudis]

Bonjour,

Merci beaucoup ce code fonctionne parfaitement bien. Je m'étais mal orienter concernant la création du dossier, mais surtout pour l'ouverture.

En tout cas ce code est parfait pour mon formulaire.

Encore merci et bonne journée