Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

arbo depuis combos (Résolu)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion misteryann
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

misteryann

XLDnaute Occasionnel
Bonjour au EXCELlents forumeurs.
J'ai remis mon costume de scénariste et je cherche un réalisateur.
Voilà le truc:
J'ai une USF avec 3 combos
La première choisi le dossier du répertoire dans lequel se trouve mon fichier Excel;
La deuxième choisi le sous dossier;
La troisième donne les fichiers du sous répertoire;
Le bouton ouvrir doit ouvrir le fichier pdf correspondant.

Bien sûr le nombre de dossiers, sous dossiers et fichier est évolutif, sinon ce ne serai pas marrant.

J'espère que je suis assez compréhensible... le fichier joint pour voir ce que je souhaite...

Merci à celles et ceux qui vont se pencher dessus.
Cordialement
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : ouverture d'un pdf après choix dans 3 combo

Bonjour.

Bon, ben puisque vous tenez à refaire ce que GetOpenFilename fait déjà bien mieux…
Ajoutez un Label nommé LabInfo.
VB: 
Option Explicit

Private Sub UserForm_Initialize()
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
ChDir ".."
LabInfo = CurDir
SousDossiers
End Sub

Sub SousDossiers()
Dim Doss As String
Me.ComboBox1.Clear
On Error Resume Next
If Len(CurDir) > 3 Then Me.ComboBox1.AddItem "(racine)"
Doss = Dir("*", vbDirectory)
Do While Doss <> ""
   If GetAttr(Doss) And vbDirectory Then If Left$(Doss, 1) <> "." Then Me.ComboBox1.AddItem Doss
   Doss = Dir: Loop
End Sub

Private Sub ComboBox1_Change()
Dim NomFic As String
If ComboBox1.ListIndex = -1 Then Exit Sub
ChDir IIf(ComboBox1.Text = "(racine)", "..", ComboBox1.Text)
Me.ComboBox2.Clear
NomFic = Dir("*.pdf")
Do While NomFic <> ""
   Me.ComboBox2.AddItem NomFic
   NomFic = Dir: Loop
SousDossiers
LabInfo = CurDir
End Sub
 
Vote positif 0 Vote négatif
Re : ouverture d'un pdf après choix dans 3 combo

Merci Bernard.
Que dois-je changer pour que la cb 1 n' affiche que les répertoires ou se trouve le fichier xl et pas l'ensemble des répertoire de la clef?
Comme cela pas besoin de sélectionner 2 fois la cb 1
Je suis exigeant, je sais...
Mais ce serait la cerise sur le gâteau...

Merci pour votre aide plus que précieuse.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : ouverture d'un pdf après choix dans 3 combo

Mettre en commentaire l'instruction ChDir ".." je suppose. C'est vous qui l'aviez mise remarquez.
Vous pouvez aussi l'écrire comme ça :
VB: 
Option Explicit

Private Sub UserForm_Initialize()
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
'ChDir ".."
LabInfo = CurDir
SousDossiersEtFichiersPDF
End Sub

Sub SousDossiersEtFichiersPDF()
Dim Doss As String, NomFic As String
Me.ComboBox1.Clear
On Error Resume Next
If Len(CurDir) > 3 Then Me.ComboBox1.AddItem "(racine)"
Doss = Dir("*", vbDirectory)
Do While Doss <> ""
   If GetAttr(Doss) And vbDirectory Then If Left$(Doss, 1) <> "." Then Me.ComboBox1.AddItem Doss
   Doss = Dir: Loop
Me.ComboBox2.Clear
NomFic = Dir("*.pdf")
Do While NomFic <> ""
   Me.ComboBox2.AddItem NomFic
   NomFic = Dir: Loop
Select Case Me.ComboBox2.ListCount
   Case 0: LabInfo = CurDir & vbLf & "Ne contient aucun fichier PDF."
   Case 1: LabInfo = CurDir & vbLf & "Contient un seul fichier PDF."
   Case Else: LabInfo = CurDir & vbLf & "Contient " & Me.ComboBox2.ListCount & " fichiers PDF."
   End Select
LabInfo.BackColor = IIf(Me.ComboBox2.ListCount > 0, &H98FFC8, &HEDCBFF)
End Sub

Private Sub ComboBox1_Change()
Dim NomFic As String
If ComboBox1.ListIndex = -1 Then Exit Sub
ChDir IIf(ComboBox1.Text = "(racine)", "..", ComboBox1.Text)
SousDossiersEtFichiersPDF
End Sub
 
Vote positif 0 Vote négatif
Re : ouverture d'un pdf après choix dans 3 combo

Ben c'est tout simplement génial...
EXACTEMENT ce qu'il faut.
Trop fort, cela va me permettre de continuer à développer mon fichier.

Un Grand Grand Merci.

Bonne journée.

Trop content là!!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
5 K
jeff1494
B
  • Question Question
Lister pdf dans un sous répertoire + Hyperlinks
Réponses
9
Affichages
2 K
Byfranck
B
  • Question Question
Recherche d'une Liste de Fichiers
Réponses
1
Affichages
1 K
pedrag31
L
  • Question Question
Idée pour créer un fichier PDF depuis PDF CREATOR
Réponses
14
Affichages
27 K
Orpheu
O
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…