Microsoft 365 simuler clic sur un bouton macro

[Usine à gaz]

Bonjour à toutes et à tous 🙂

J'en ai une autre pour ce dimanche matin lol

Code de CommandButton1 (affichage du bouton = "RDV")

Private Sub CommandButton1_Click()
        If MsgBox("Avez-vous vérifié si pas en Outre Mer ?", vbQuestion + vbYesNo) <> vbYes Then
        'Sheets("RdV_transfert").Cells(dl, 4) = "OK agenda"
        Unload Me
        Sheets("Appels").Select
        ActiveCell.Offset(0, 3) = "X"
        ActiveCell.Offset(0, -5).Copy
        ActiveCell.Offset(0, -10).Select
        Sheets("Appels").Shapes("bulle1_affectez").Visible = True
        Exit Sub
        Else
        'MsgBox "Bouton intitulé :" & Me.CommandButton1.Caption
        ActiveSheet.Unprotect Password:=""
        Sheets("Table").Range("c6") = "RendezVous"
        [i15] = ""
        [D4] = "=IF(AND(RC[-1]="""",R[2]C[-1]=""RendezVous""),""         RdV : Date/H et Mn"","""")"
        Clignote
        [b8:c38] = ""
        [d8:e38] = ""
        [n4] = "ouvert"
        'If ActiveCell.Offset(0, 9) = "RdV Fait"
        [f8] = "=IF(AND(Appels!R11C10="""",R[-2]C[-3]=""RdV Fait"", ""Important : sans n° de Portable pas d'envoi de SMS possible""),"""")"
        [C4].Select
        Sheets("Table").Shapes("Table Connecteur droit1").Visible = False
        Sheets("Table").Unprotect Password:=""
        Sheets("Table").Range("I4") = "Affectation Appel OK"
        Sheets("Table").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        Unload Me
        End If
    'End If
End Sub

Je voudrais simuler le clic sur l'un de mes boutons (selon choix)
Il y a : "CreateObject("wscript.shell").SendKeys "{xxxxxxx}"
Je ne vois pas comment lui affecter le nom du bouton, par exemple :
"CreateObject("wscript.shell").SendKeys "{CommandButton1}"

Auriez-vous le bon code ?
Je continue mes recherches ...
Un grand merci par avance,
lionel 🙂

 

[job75]

Re Lionel,

Des macros sont affectées aux boutons, il suffit de les appeler.

A+

 

[Usine à gaz]

Re Gérard 🙂
"il suffit de les appeler"
C'est peut-être tout simple mais là mes neurones explosent lol
Je voudrais "les appeler directement" sans avoir à cliquer sur les boutons 🙂

 

[dysorthographie]

Bonjour,
C'est simple tu passes ta méthode en public

Public Sub CommandButton1_Click()

Et tu l'appelle comme ça

 Userform.CommandButton1_Click

 

[Usine à gaz]

Bonjour,
C'est simple tu passes ta méthode en public

Public Sub CommandButton1_Click()

Et tu l'appelle comme ça

 Userform.CommandButton1_Click

Bonjour dysorthographie et merci pour ce retour 🙂
Je ne sais pas trop faire ça mais je vais essayer 🙂
lionel,

 

[Usine à gaz]

Re Gérard, Re dysorthographie 🙂
C'est un "Sub CommandButton1_Click()" et je ne vois pas comment faire Grrrrrrrrrrrrrrr 😡

 

[dysorthographie]

Tu sais pas remplacer Private sub par public sub?

Un fois passé en public ton sub est accessible en dehors du Userform

Userform.CommandButton1_Click(

 

[Usine à gaz]

Re-bonjour,

Effectivement, j'ai déclaré en public sub,
Mais je ne vois toujours pas comment simuler le clic sur le bouton, par exemple avec:
"CreateObject("wscript.shell").SendKeys "{CommandButton1}"
Pour ne pas avoir à cliquer sur le bouton RDV (ou autre bouton choisi) :

lionel 🙂

 

[dysorthographie]

Je te l'ai dit à la place de CreateObject("wscript.shell").SendKeys "{CommandButton1}" tu mets
Userform.CommandButton1_Click

Comme s'appel ton Userform ?

 

[Usine à gaz]

Re-Bonjour 🙂
J'ai fait un petit fichier test que je joins à ce #post"
lionel 🙂

 

[Usine à gaz]

Je te l'ai dit à la place de CreateObject("wscript.shell").SendKeys "{CommandButton1}" tu mets
Userform.CommandButton1_Click

Comme s'appel ton Userform ?

il s'appelle : UsFMsgTest
🙂

 

[dysorthographie]

Sub test4()
  MsgBoxPerso4 "", "RDV,Rappel,Pas Rappeler,Tant mieux,C'est tant pis !,ANNULER", "CLIC SUR LA BONNE AFFECTATION"
  MsgBoxPerso4 "", "RDV,Rappel,Pas Rappeler,Tant mieux,C'est tant pis !,ANNULER", "CLIC SUR LA BONNE AFFECTATION", "RDV"
End Sub

' Procédure générale de mise en place des éléments
Sub MsgBoxPerso4(Prompt As String, Button As String, Title As String, Optional Bt As String = "")
  TabBtn = Split(Button, ",")
  UsFMsgTest.Caption = Title
  UsFMsgTest.Label1.Caption = Prompt
  Select Case Bt
    Case "RDV": UsFMsgTest.CommandButton1_Click
    Case "Rappel"
    Case "Pas Rappeler"
    Case "ANNULER"
    Case Else: UsFMsgTest.Show (1)
    End Select
End Sub

 

[Usine à gaz]

Re dysorthographie 🙂
Merci pour ton code 🙂
Ce n'est pas encore ce à quoi je souhaite arriver mais ça me donne une idée.
Je reviendrai quand j'aurai approfondi.
Merci à toi,
lionel 🙂