Microsoft 365 simuler clic sur un bouton macro

Usine à gaz · 17 Avril 2022

Bonjour à toutes et à tous

J'en ai une autre pour ce dimanche matin lol

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

VB:

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 · 17 Avril 2022

Re Lionel,

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

A+

Usine à gaz · 17 Avril 2022

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 · 17 Avril 2022

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

Code:

Public Sub CommandButton1_Click()

Et tu l'appelle comme ça

Code:

 Userform.CommandButton1_Click

Usine à gaz · 17 Avril 2022

dysorthographie à dit:
Bonjour,
C'est simple tu passes ta méthode en public

Code:

Public Sub CommandButton1_Click()

Et tu l'appelle comme ça

Code:

Userform.CommandButton1_Click

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

Usine à gaz · 17 Avril 2022

Re Gérard, Re dysorthographie

C'est un "Sub CommandButton1_Click()" et je ne vois pas comment faire Grrrrrrrrrrrrrrr

dysorthographie · 17 Avril 2022

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 · 17 Avril 2022

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 · 17 Avril 2022

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 · 17 Avril 2022

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

Usine à gaz · 17 Avril 2022

dysorthographie à dit:
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 · 17 Avril 2022

VB:

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 · 17 Avril 2022

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

Microsoft 365 simuler clic sur un bouton macro

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Discussions similaires