Discussion :

[fring]

Oui c'est vrai, je n'y pensais plus, il y a les contrôles de formulaire.
La syntaxe est différente, raison pour laquelle ton test ne fonctionne pas.
Pour ajouter un bouton et y associer une macro :

Code :

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

1
2
3
4
With Sheets("MaFeuille").Buttons.Add(10, 5, 100, 50) '<-- (Left, Top, Width, Height)
    .Caption = "Mon Bouton"
    .OnAction = "MaMacro"
End With

[steph68b]

ce n'est pas mon test, c'est celui de l'aide d'excel

ok, je vais me pencher sur la question OnAction aujourd'hui et je (re)fais signe!

ok, alors verdict:
-> soit y a un truc si énorme que je ne le vois pas
-> soit il y a encore un problème

j'ai essayé plusieurs versions, mais il y a toujours un hic sur le OnAction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With Sheets("calendrier").Buttons.Add(0.75, 16.5, 146, 24) '<-- (Left, Top, Width, Height)
    .Caption = "mise en page3"
    '.OnAction = "MaMacro"
 
    '.OnAction = Sheets("paramètres").formatte2      'erreur d'exécution 1004: impossible de définir la propriétré OnAction de la classe Button
    '.OnAction = "Sheets(""paramètres"").formatte2"  'erreur d'exécution 1004: impossible de définir la propriétré OnAction de la classe Button
    '.OnAction = "call formatte2"                    'erreur d'exécution 1004: impossible de définir la propriétré OnAction de la classe Button
 
    .OnAction = "formatte2"                         'au clic: impossible de trouver la macro "fichier.xls'!formatte2'
 
End With

et ce qui me turlupine dans le dernier cas: le " et les 2 '
-> impossible de trouver la macro "fichier.xls'!formatte2'

il va sans dire que la sub formatte2 existe belle et bien puisque je l'utilise aussi ailleurs... mais avec 3 signes d'ouverture/fermeture de chaine, clair que ça ne passe pas!

ok, trouvé!

Code :

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

.OnAction = "Feuil4.formatte2"

-> il faut effectivement préfixer la fct par sa feuille
-> mais pas au format VBA, simplement le format feuille de calcul


hé ben c pas mal tout ça maintenant...

allez, dernier petit challenge si c'est possible:
-> outils/macro/macro
-> masquer la liste des macros

avec un pass le VBE est bloqué, mais certaines macros sont encore affichées dans la liste (EXECUTER ou ANNULER)... pas très propre quoi...

[Didier Gonard]

Bonjour,

-> masquer la liste des macros

mets

Code :

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

Option Private Module.

en haut de module.

PS : si le nom de la macro est connue, elle reste accessible via le menu macro par son nom....

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[steph68b]

mes sources / macros sont dans les feuilles, pas dans les modules

EDIT:

ok, c'est bon, 2 solutions en fait:
-> soit déclarer sub PRIVATE
-> soit utiliser Optional Factice As String dans la déclaration


bien, bien, bien... commence à avoir de la gueule mon p'tit truc!

je me donne encore la journée pour voir ce que je pourrais améliorer, avec votre aide si besoin est, et je fermerai le topic ensuite

[Didier Gonard]

bonjour,

euh.... ce sont des macros xl4 ?




cordialement,

Didier

[steph68b]

2003 non, mais bonne question, je dois encore voir aussi le "portage" vers 2007 & 2010, si tout est 100% compatible

[Didier Gonard]

Bonjour,

vois les différents tutos sur le VBA Excel de DVP


Les Feuilles, ce sont les feuilles de classeur, si tu clic droit sur un onglet, tu pourras voir qu'il y possibilité de feuilles de macros à surtout ne pas employer.

Si tu a mis tes macros dans un Module de feuille (dossier Microsoft Excel Objets), tu es bien dans un Module, mais d'un genre particulier et normalement une macro sub basique n'a trop rien à y faire...

Il faut pour ce que tu veux à ce moment là la déclarer en Private Sub (Option Private Module est interdit dans ces modules objet), tout ça a des répercutions, donc vois les tutos....

cordialement,

Didier

[steph68b]

solution que j'avais fini par trouver oui, mais j'éditais le post ci-dessus pour le dire qd tu as répondu

alors là, tout de suite, je vois bien un truc qui serait sympa MAIS à mon avis impossible...... sinon tous les virus s'engouffreraient là dedans!

-> activer automatiquement l'option "activer les macros" à l'ouverture du fichier

[nchal]

Salut,

On va dire que je suis à 97.5% sûr que c'est impossible. Tu peux au mieux certifié ta macro en espérant que le niveau de sécurité chez l'utilisateur n'est pas trop élevé.

[fring]

Tu peux en être sûr à 100%

[steph68b]

je viens de tester sous 2007 et à priori ma petite appli tourne bien aussi... sous réserve d'activer la confiance au projet vba, comme pour 2003.

ce qui me pose une autre question:
1.) peut-on déterminer si le fichier est lancé par 203/2007/2010?
2.) et dans le cas 2007/2010, peut-on activer automatiquement l'onglet "développeur" dans le bandeau (pour accéder ensuite aux options de sécurité des macros et faire les bon s réglages)?

[nchal]

Salut,

Oui tu peux tester la version.

Code :

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

1
2
3
4
5
6
 'on contrôle la version de Office, si c'est office 2007 et supérieur ou autre, = 12 pour 2007, = 11 pour 2003, True = 2007, False = 2003
    If Val(Application.Version) >= 12# Then
        VersionChecker = True
    Else
        VersionChecker = False
    End If

J'ai la flemme de chercher comment activer le bandeau Developper mais sa doit se trouver.

[steph68b]

impec' maintenant encore qq'un pour le bandeau et roule Raoul!

[fring]

et dans le cas 2007/2010, peut-on activer automatiquement l'onglet "développeur" dans le bandeau (pour accéder ensuite aux options de sécurité des macros et faire les bon s réglages)?

Serait-ce ça que tu cherches ?

Code :

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

Application.CommandBars.FindControl(, 3627).Execute

[steph68b]

à priori non: la méthode 'execute' de l'objet '_CommandBarButton' a échoué

[fring]

c'est la commande pour le menu 2007 comme demandé, normal que ça coince si tu essaies avec 2003.

[steph68b]

tu penses quand même bien que j'ai testé pour 2007 qd même...

[fring]

Tu penses bien que moi aussi quand même

Dans un classeur vierge, exécute cette macro

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
19
20
Sub FindControlID()
Dim B As Object, Nb As Integer
Dim X As Integer, DerL As Integer
 
Nb = Application.CommandBars.Count
[A1].Resize(, 2).Value = Array("Caption", "ID")
DerL = [A65536].End(xlUp).Row + 1
 
For X = 1 To Nb
    For Each B In Application.CommandBars.Item(X).Controls
    Cells(DerL, 1) = B.Caption
    Cells(DerL, 2) = B.ID
    DerL = DerL + 1
    Next
Next
 
Range("A1:B1").EntireColumn.AutoFit
Set a = Nothing: Set B = Nothing
 
End Sub

Dans la colonne Caption, tu devrais trouver "Sécurité...", vérifie que son ID est bien 3627

[steph68b]

effectivement, ça colle pourtant...

[fring]

Tu as bien l'onglet Développeur dans le ruban ?