Bonjour le Forum,
Je récupère dans une feuille Excel un certain nombre de fichiers présent dans un répertoire par :
Dim rw As Long
Dim Chemin As String, LesFichiers As String
Chemin = 'C: \\Bébé\\'
LesFichiers = Dir(Chemin, vbNormal)
rw = 2
Do While LesFichiers <> ''
Cells(rw, 1) = LesFichiers
rw = rw + 1
LesFichiers = Dir()
Loop
Ensuit je crée un menu (ControlPopup) et autant de Boutons (ControlButton) qu'il y a de fichiers.
…
Set NewSubMenu = NewMenu.Controls.Add(Type:=msoControlPopup)
NewSubMenu.Caption = 'Toinou'
Set NewButton = NewSubMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = Cells(LaLigne, 1)
.OnAction = 'Macro1'
…
Le problème est que .On action = '…' attend le nom d'une macro.
Ne sachant pas à l'avance combien de fichiers je vais avoir et quels seront leurs noms, je ne peux pas affecter les macros que je souhaite associer à ces boutons.
En l'occurrence je veux ouvrir le fichier sélectionné par le bouton (Workbooks.Open..)
Résultat, je me retrouve avec un joli Menu et pleins de boutons qui ne me servent à rien.... grmlrd.
J'espère m'être clairement expliqué ( pas toujours évident ) et vous remercie par avance de toute l'aide que vous pourrez m'apporter.
Je récupère dans une feuille Excel un certain nombre de fichiers présent dans un répertoire par :
Dim rw As Long
Dim Chemin As String, LesFichiers As String
Chemin = 'C: \\Bébé\\'
LesFichiers = Dir(Chemin, vbNormal)
rw = 2
Do While LesFichiers <> ''
Cells(rw, 1) = LesFichiers
rw = rw + 1
LesFichiers = Dir()
Loop
Ensuit je crée un menu (ControlPopup) et autant de Boutons (ControlButton) qu'il y a de fichiers.
…
Set NewSubMenu = NewMenu.Controls.Add(Type:=msoControlPopup)
NewSubMenu.Caption = 'Toinou'
Set NewButton = NewSubMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = Cells(LaLigne, 1)
.OnAction = 'Macro1'
…
Le problème est que .On action = '…' attend le nom d'une macro.
Ne sachant pas à l'avance combien de fichiers je vais avoir et quels seront leurs noms, je ne peux pas affecter les macros que je souhaite associer à ces boutons.
En l'occurrence je veux ouvrir le fichier sélectionné par le bouton (Workbooks.Open..)
Résultat, je me retrouve avec un joli Menu et pleins de boutons qui ne me servent à rien.... grmlrd.
J'espère m'être clairement expliqué ( pas toujours évident ) et vous remercie par avance de toute l'aide que vous pourrez m'apporter.