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