Code vba action bouton

[soune26]

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.

 

[Pierrot93]

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
@+

 

[soune26]

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!

 

[Pierrot93]

Re : Code vba action bouton

Re,

essaye ceci :

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 :

Public Sub CommandButton1_Click()
'Ton code
End Sub

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

bon après midi
@+

 

[soune26]

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

 

[Pierrot93]

Re : Code vba action bouton

Re,

Non cela ne marche pas!

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
@+