Commandbutton pour ouvrir un dossier
Bonjour a tous,
Voila je cherche depuis ce matin sur google juste un petit code vba qui me permettrait en cliquant sur le commandbutton sur une feuille excel d'afficher un dossier spécifié. Par exemple juste je lui demande d'ouvrir C:\Mes documents et la il maffiche la fenetre..... ca a lair tres simple mais j'ai rien trouvé.... je sais que je peux faire un hyperlink mais le probleme est que je veux ce bouton dans un userform....
Dailleurs autre petite question.. j'ai créé un userform avec une liste deroulante qui maffiche tous les onglet afin de pouvoir y aller mais je voulais savoir commet faire pour n'afficher que certains onglet dans la liste deroulante?
Voila jespere que quelqu'un pourra m'aider!!!
Merci d'avance
afficher un dossier spécifié
Bonsoir balinos
pour la première question
un petit shell devrai faire l'affaire.
Code:
Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & "C:\Chemin\du\Document", vbNormalFocus
Remplacez "C:\Chemin\du\Document" par le bon chemin.
Pour la seconde question
Essayez de mettre le nom des onglets dans un tableau et initialisez le combobox avec les données du tableau
Code:
1
2
3
4
5
6
7
8
9
| Dim tabComboBox1 As Variant
'initialisation du tableau
tabComboBox1 = Array("Feuil1", "Feuil3", "Feuil5")
'initialisation du ComboBox1
ComboBox1.List() = tabComboBox1
'on affiche autant de lignes que de données dans le tableau
ComboBox1.ListRows = UBound(tabComboBox1) + 1
'on affiche le premier élément
ComboBox1.ListIndex = 0 |
Salutations
Probleme avec la derniere macro...
Re bonjour,
Merci bcp pour ta reponse car louverture des dossier avec shell marche parfaitement!!
Par contre je narrive pas a suivre tes indications pour ce qui est de la combobox...
Voila le code que j'ai pr la combobox:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.List = RecupF
End Sub
Function RecupF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
If .Visible Then
ReDim Preserve T(J)
T(J) = .Name
J = J + 1
End If
End With
Next I
RecupF = T
End Function
Private Sub ComboBox1_LostFocus()
ComboBox1.Value = ""
End Sub |
Voila, il est pas tres joli!!
Non seulement ce code me fait apparaitre tou les onglet de mon worksheet mais en plus il me fait apparaitre un userform que j'ai créé... je pense quil ya plus simple...
Et j'avais une derniere question... Est il possible de copier tout un dossier dans un fichier excel pour que mes liens soit actif meme quand le fichier excel na pas acces au reseau....je ne sais pas si c tres claire..
Par exemple sur une feuille de mon fichier, j'ai creer un lien pour ouvrir un dossier du reseau afind de lancer un fichier pdf.Puis je copier le dossier dans excel?
Merci bcp pr ton aide en tout cas!!!
