[XL-2003] Création et ouverture de dossier dans userform

[perpitou]

BOnjour et bon début de semaine à tous!

J'ai plusieurs questions à vous poser.

J'aimerai créer et accéder à des documents à partir de mon fichier.

Par exemple, je veux classer les produits coca, fanta, ect...

Quand je clique sur coca j'aimerai pouvoir récupérer des docs pdf dans mon ordi sur coca et les classer dans un autre dossier dont l'utilisateur choisira l'emplacement.

Pour accéder au dossier de l'ordinateur j'utilise :

Code :

1
2
3
Private Sub CommandButton2_Click()
Shell "C:\WINDOWS\EXPLORER.EXE /n,/e,C:\", vbNormalFocus
End Sub

J'aimerai utilisé un autre bouton qui ouvre et crée un dossier sur son pc à l'emplacement que l'utilisateur souhaitera.

Après il fait de même pour orangina et les autres catégories.

Une fois cette opération enregistrée, j'aimerai pouvoir accéder à ce dossier à partir de mon fichier consulter ou modifier les documents coca.

Est ce possible? et de quelle manière?

Merci d'avance.
Cordialement

[perpitou]

Personne n'a de pistes?
J'aimerai au moins savoir si c'est possible? merci

[perpitou]

Sinon je crée mon premier bouton me permettant d'accéder à l'emplacement du fichier. Le second boutton me reprend le chemin du premier bouton pour accéder directement au dossier est ce possible?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton7_Click()
Dim finput As FileDialog
Set finput = Application.FileDialog(msoFileDialogFilePicker)
finput.Show
 
If finput.SelectedItems.Count = 0 Then Exit Sub
With Worksheets("Feuil1")
If Not finput Is Nothing Then
.Cells(1, 1).Hyperlinks.Add .Cells(1, 1), Address:=finput.SelectedItems(1)
End If
End With
End sub

Et après un second boutton pour utiliser Address
Mais cela se sauvegarde? Comme ça l'utilisateur pourra accéder au dossier directement.