Discussion :

[article50]

Bonjour cher tous,
Merci d'avance de bien vouloir vous pencher sur mon problème.

Ce que je veux faire c'est :
- lister 5 fichiers présents dans un répertoire donné,
- récupérer les noms de fichiers (nom1, nom2, nom3, nom4, nom5) pour qu'ils deviennent "légende" de 5 OptionButtons nommées respectivement :
optB1,
optB2,
optB3,
optB4,
optB5

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private sub importDoc
 
Application.ScreenUpdating = False
Dim numero As String
numero = 0
 
Dim myPath As String, myFile As String
myPath = ActiveDocument.Path & Application.PathSeparator & "mondossier"
myFile = Dir(myPath & "\*.doc*")
 
Do While myFile <> ""
numero = numero + 1
MsgBox = "optB" & numero & ".Caption" ' ---> ça fonctionne! 5 msgbox se succèdent et indiquent "optB1.caption", "optB2.caption", "optB3.caption" jusque 5. 
 
???? = myFile
myFile = Dir()
Loop
End Sub

???? je ne trouve pas par quel moyen je peux exploiter "optB" & numero & ".Caption" = myFile
pour que obtenir optB1 = "nom1",
optB2 = "nom2",
...

D'avance merci pour votre aide

[ZenZiTone]

B
Ce que je veux faire c'est :
- lister 5 fichiers présents dans un répertoire donné,
- récupérer les noms de fichiers (nom1, nom2, nom3, nom4, nom5) pour qu'ils deviennent "légende" de 5 OptionButtons

Il y aura toujours 5 fichiers pour 5 boutons ou c'est juste un exemple?

Pour ton cas il faudra boucler sur tous les éléments de ton formulaire dont le type est OptionButtons et leur affecter à tour de rôle le nom du fichier associé.

[article50]

Il y aura toujours 5 fichiers pour 5 boutons ou c'est juste un exemple?

Pas nécessairement. En fait, je veux balayer un dossier contenant un certains nombre de fichiers et je veux les importer dans mon formulaire pour les rendre "cliquables".
A mon niveau, je me suis dit qu'il serait plus facile de me limiter à 5 fichiers, les plus récents... Cela serait déjà très bien.

Comment puis-je boucler sur tous les éléments de mon formulaire dont le type est OptionButtons et leur affecter à tour de rôle le nom du fichier associé?

[ZenZiTone]

Comment puis-je boucler sur tous les éléments de mon formulaire dont le type est OptionButtons et leur affecter à tour de rôle le nom du fichier associé?

Dans ton formulaire tu as quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form.Controls

C'est une liste d'objets recensant tous les contrôles de ton formulaire, dont les fameux OptionButton. Tu devras donc, pour chaque contrôle de ton formulaire faire le test suivant : "est-ce que mon contrôle est de type OptionButton". Si oui, tu affectes la propriété Caption (celle qui affiche le texte) avec le nom d'un fichier.

Petite question : pourquoi l'utilisation des OptionButton qui est, me semble-t-il, un contrôle du VB6?

Si tu n'as pas un nombre définit de fichier je ne te conseille pas d'utiliser les boutons. Ne pas connaitre le nombre de boutons à afficher inclus qu'il faut gérer leurs affichage en fonction du nombre et de la place qu'ils prennent : c'est pas évident et il est difficile d'arriver à un résultat "joli" et ergonomique.

Tu peux essayer d'utiliser les treeview qui me semble plus correspondre à ton besoin.

[article50]

Merci pour cette nouvelle réponse fort intéressante!

Je découvre "les treeview" c'est effectivement bien de çà dont il s'agit. Va falloir plonger dedans et je vais m'y atteler dès que possible

Tu devras donc, pour chaque contrôle de ton formulaire faire le test suivant : "est-ce que mon contrôle est de type OptionButton". Si oui, tu affectes la propriété Caption (celle qui affiche le texte) avec le nom d'un fichier..

Oui, c'est çà que je souhaite parvenir à faire! Mais je n'ai malheureusement aucune idée du comment je peux mettre tout çà en musique.. Un petit code, ou début de code raccord au mien, serait vraiment le bienvenu.

[ZenZiTone]

Oui, c'est çà que je souhaite parvenir à faire! Mais je n'ai malheureusement aucune idée du comment je peux mettre tout çà en musique.. Un petit code, ou début de code raccord au mien, serait vraiment le bienvenu.

Voici un petit lien qui explique ça.

Je te conseilles cependant d'utiliser les TreeView si tu as le temps de regarder comment ça fonctionne. Ca sera plus simple à manipuler côté développement et plus facile à appréhender côté utilisateur.

[article50]

un tout grand merci
j'ai maintenant des bonnes pistes pour pouvoir avancer