Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code vba action bouton

S

soune26

XLDnaute Junior
Bonjour à tous,

Mon problème est que je ne connais pas le code pour activé un bouton sur VBA
j'ai bien essayé celui-là :

ActiveSheet.Shapes("Button 1").Select

Mais cela ne m'actionne pas la macros!!

Je vous toutes ma macro pour que vous puissiez voir dans quel contexte je cherche:

Sub ENVOIRDV()
'
' ENVOIRDV Macro
'

'
ActiveWindow.WindowState = xlNormal
Workbooks.Open Filename:= _
"C:\Documents and Settings\vincentb.SRV-MARTIN\Bureau\ISO MACROS\RDV PRIS.xlsm"
Sheets("Feuil1").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Windows("ISO2000.xlsm").Activate
Range("D4").Select
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("I4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("D14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("D16").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("D18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("H4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("H4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ISO2000.xlsm").Activate
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("RDV PRIS.xlsm").Activate
Range("K4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Workbooks.Open Filename:= _
"C:\Documents and Settings\vincentb.SRV-MARTIN\Bureau\ISO MACROS\ENVOI RDV.xlsm"
Range("A8").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE('[RDV PRIS.xlsm]Feuil1'!R1C13,"" "",'[RDV PRIS.xlsm]Feuil1'!R2C1,'[RDV PRIS.xlsm]Feuil1'!R4C1)"
Range("B8").Select
ActiveCell.FormulaR1C1 = _
"='[RDV PRIS.xlsm]Feuil1'!R4C10+'[RDV PRIS.xlsm]Feuil1'!R4C11"
Range("C8").Select
ActiveCell.FormulaR1C1 = "=30"
Range("D8").Select
ActiveCell.FormulaR1C1 = "='[RDV PRIS.xlsm]Feuil1'!R4C3"
ActiveSheet.Shapes("Button 1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("ISO2000.xlsm").Activate
ActiveWindow.WindowState = xlMaximized

End Sub


Est-ce que quelqu'un peut m'aider.
 
Dernière édition:
Trier par date Trier par votes

Pierrot93

XLDnaute Barbatruc
Re : Code vba action bouton

Bonjour,

A priori tu peux supprimer la ligne en rouge dans ton code ne sert à rien.. Pour affecter une macro à ton bouton, click droit sur l'objet => affecter une macro...
bon après midi
@+
 
Vote positif 0 Vote négatif
S

soune26

XLDnaute Junior
Re : Code vba action bouton

Bonjour Pierrot,

Non ce que je veux obtenir c'est que la macro actuelle m'active une autre macro(affecter sur un bouton) dans un autres classeur sans clic sur le bouton de cet autre classeur!
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Code vba action bouton

Re,

essaye ceci :
Code: 
Workbooks("classeur2.xls").Sheets("Feuil1").CommandButton1_Click
le classeur2 dans lequel se trouve le bouton doit être ouvert...
la procédure déclenchée par le bouton doit être publique et placée dans le module de la feuille concernée du classeur 2 :
Code: 
Public Sub CommandButton1_Click()
'Ton code
End Sub

code valable pour des objets de la boite à outils contrôles (activeX)...

bon après midi
@+
 
Vote positif 0 Vote négatif
S

soune26

XLDnaute Junior
Re : Code vba action bouton

Non cela ne marche pas!
J'ai tout essayé et je ne vois pas comment y arrivé, alors si quelqu'un a une autre idée????
Merci d'avance.

Voilà la deuxième Macro:

Option Explicit

Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
Dim Cell As Range

For Each Cell In Range("A8:A" & Range("A22").End(xlUp).Row)
Set MyItem = myOlApp.CreateItem(olAppointmentItem)

With MyItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 1) ' Attention : format mm/dd/yy
.Duration = Cell.Offset(0, 2) 'minutes
.Location = Cell.Offset(0, 3)
.Save
End With

Set MyItem = Nothing
Next Cell
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Code vba action bouton

Re,

Non cela ne marche pas!
Cliquez pour agrandir...

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ? chez moi avec les infos données ce la fonctionne sans problème.... fais des tests avec des procédures simples, et vérifies que ton bouton est du bon type.....

bonne soirée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
16
Affichages
309
Phil69970
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
329
robpellan52
R
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
180
Francky79
F
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
725
TooFatBoy
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
445
gwenn49
G
O
  • Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
515
olivier388
O
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
363
Usine à gaz
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
426
fanou06
F
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
617
mouchtre
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…