boucle sur checkbox avec nom variable
Bonjour
Je passe par un UF pour l'ouverture des fichiers. l'utilisateur doit cocher les fichiers qu'il souhaite ouvrir.
dans ma feuille commandes, j'ai inscrit en colonne A le nom des checkbox, le nom du fichier en B et en C le chemin d'accès.
dans le UF il y a 5 boutons incluant 4 boutons (check box) associés à un fichier et 1 bouton pour "tous". je veux que quand bouton1 est vraie, on teste l'ouverture du fichier et/ou on l'ouvre, puis on test si bouton2 est vraie...
mes checkbox sont nommés sur la base suivante "Box_" + valeur de cellule en colonne A.
je teste les cellules de A6 à A9.
seulement, mon nombox engendre une erreur de compilation, qualificateur incorrect.
comment dois-je nommer ce nombox si je veux qu'il correspondent au bouton du UF en changeant de nom. (c'est une variable qui est défini par les cellules de A6 à A9 dans ma feuille "commandes". le nom des boutons dans UF est identique à la valeur de la cellule A6 à A9...
est-ce un range, string, object ??
mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| Private Sub btnOK_Click()
Dim cell, plage As Range
Dim nombox As String
Dim i As Integer
Dim chemin, nomfichier, ouvrefichier As String
Set plage = Range("A6:A9")
For Each cell In plage
i = cell.Row
nombox = "Box_" & cell.Value
If nombox.Value = True Then 'nombox.value est le nom de mon checkbox 1, puis checkbox2 défini en colonne A6 à A9 et prend une valeur différente...
ThisWorkbook.Activate
Sheets("Commandes").Select
nomfichier = Range("B:" & i).Value & ".xlsm"
chemin = Range("D:" & i).Value
ouvrefichier = chemin & "\" & nomfichier
MsgBox ThisWorkbook.Name
For Each wb In Application.Workbooks
If wb.Name = nomfichier Then ordre = "oui"
Next wb
If ordre = "oui" Then
Windows("nomfichier").Activate
Else
MsgBox "le classeur n'est pas ouvert"
If Dir(chemin & "\" & nomfichier, vbArchive) <> "" Then 'Le fichier existe
MsgBox "le fichier existe dc on ouvre"
ChDir chemin
Workbooks.Open Filename:=ouvrefichier
Else
MsgBox "Le fichier " & nomfichier & " est introuvable ou n'existe pas !" & Chr(10) _
& "Veuillez vérifier l'existence du fichier, son nom et son chemin d'accès dans la feuille Commandes." _
, vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
End If
End If
End If
Next cell
ThisWorkbook.Activate
Unload Me
UserForm3_ouverture_file.Hide
End Sub |