Chris57
XLDnaute Occasionnel
Bonjour à tous
au boulot depuis des années j'utilise une macro complémentaire qui créé un bouton si on ouvre un classeur de tel ou tel nom :
Voici cette macro complémentaire :
Donc si un classeur nommé PROG_DE_MARCHE_xxxxxxxxx ou PROG_APPEL_xxxxxxxx est ouvert il créé un bouton et y affecte la macro d'un autre classeur nommé quant à lui PROGRAMME DE CHARGE CEH.xlsm
Mais suite à une modif j'ai un bug que je n'explique pas : lorsque je clique sur le bouton créé, il me fait un bug dans la ligne que j'ai mise en rouge. L'erreur est "l'indice n'appartient pas à la séletion".
En fait quand je clic sur le bouton, il ouvre le fameux classeur PROGRAMME DE CHARGE CEH.xlsm contenant la macro. Même si je colle un macro vide à ce bouton, le défaut est le même.
Quelqu'un a une idée ?
au boulot depuis des années j'utilise une macro complémentaire qui créé un bouton si on ouvre un classeur de tel ou tel nom :
Voici cette macro complémentaire :
Private Sub AppXl_Workbookopen(ByVal Wb As Workbook)
' VERIFIE SI LE CLASSEUR OUVERT EST UN PROGRAMME DE CHARGE CODAP
For Each classeur In Workbooks
' Si un classeur nommé "PROG_DE_MARCHE*" est ouvert
If Left(classeur.Name, 15) = "PROG_DE_MARCHE_" Then
Sheets("Prog_CEH").Select
' Crée un bouton affecté par macro du PROGRAMME DE CHARGE CEH
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 500.25, 51#, 106.5, 40.25).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 20
Selection.Characters.Text = "Cliquer ici pour avoir la version CEH"
Selection.Font.Bold = True
Selection.OnAction = "'L:\UP78\PROGRAMME DE CHARGE\PROGRAMME DE CHARGE CEH.xlsm'!RECUP"
' Si un classeur nommé "PROG_APPEL_*" est ouvert
ElseIf Left(classeur.Name, 11) = "PROG_APPEL_" Then
Sheets("Prog_CEH").Select
' Crée un bouton affecté par macro du PROGRAMME DE CHARGE CEH
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 500.25, 51#, 106.5, 40.25).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 20
Selection.Characters.Text = "Cliquer ici pour avoir la version CEH"
Selection.Font.Bold = True
Selection.OnAction = "'L:\UP78\PROGRAMME DE CHARGE\PROGRAMME DE CHARGE CEH.xlsm'!RECUP"
End If
Next classeur
End Sub
Donc si un classeur nommé PROG_DE_MARCHE_xxxxxxxxx ou PROG_APPEL_xxxxxxxx est ouvert il créé un bouton et y affecte la macro d'un autre classeur nommé quant à lui PROGRAMME DE CHARGE CEH.xlsm
Mais suite à une modif j'ai un bug que je n'explique pas : lorsque je clique sur le bouton créé, il me fait un bug dans la ligne que j'ai mise en rouge. L'erreur est "l'indice n'appartient pas à la séletion".
En fait quand je clic sur le bouton, il ouvre le fameux classeur PROGRAMME DE CHARGE CEH.xlsm contenant la macro. Même si je colle un macro vide à ce bouton, le défaut est le même.
Quelqu'un a une idée ?