Je cherche a associer un bouton d'un userform à l'ouverture d'un dossier.
En cliquant sur le bouton, j'Aimerais que ce la m'ouvre un dossier en question.
Après de la recherche sur le net, je me permets de venir vers vous car je n'ai pas trouvé de réponse à mon petit problème.
J'ai trouvé des codes pour ouvrir une page excel, word, pdf, site web... mais pas un dossier direct...
Re : Bouton userform en tant que lien vers un dossier
Bonjour,
regarde peut être ceci :
Code:
Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With
Re : Bouton userform en tant que lien vers un dossier
Salut Pierrot93
Alors ton code marche, mais pas aussi précisement que ce que je cherche à faire.
Le code ouvre directement " mes documents "
Et je voudrais qu'il ouvre un dossier plus précis, j'ai donc intégré le lien windows de mon dossier tel quel :
Private Sub CommandButton5_Click()
Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "F:\A440 ressource\A440 Publishing music\A440 Publishing Catalog\A440 - CATALOGUE\Music"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With
End Sub
Mais ça ouvre toujours le dossier " mes docuements "
Crois tu que c'est possible d'ouvrir directemetn le dossier que je voudrais ?
Sachant que le fichier excel et le dossier en question sont tout les 2 sur le même disque dur externe...
Re : Bouton userform en tant que lien vers un dossier
Merci pour ton aide mais malheureusement ca ne marche pas chez moi, une erreur apparait :" Compile error, variable not defined "
Je viens de me rendre compte également que la fenêtre d'Exploration ne me permet pas de lancer la lecture de fichier audio... lorsque l'on explore les dossiers et sous dossiers, aucun fichiers contenus n'apparait..
Re : Bouton userform en tant que lien vers un dossier
Alors quand je met ce code :
Private Sub CommandButton5_Click()
Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "Music"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With
End Sub
Ca m'ouvre le dossier parent de mon fameux dossier "music"
Re : Bouton userform en tant que lien vers un dossier
donc comme ceci ?
Private Sub CommandButton5_Click()
Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "Music"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With
End Sub
Re : Bouton userform en tant que lien vers un dossier
donc avec ce code :
Private Sub CommandButton5_Click()
Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\Music\"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With
End Sub
malheureusement toujours le même résultat avec " mes documents "