OVH Cloud OVH Cloud

creation d'un bouton de commande lors de l'export d'une feuille

3 réponses
Avatar
rick
bonjour,

Quand j'exporte une feuillesur une autre classeur, est t'il possible de
créer par macro un bouton de commande, avec une macro à l'interieur.

si oui comment?

merci d'avance

3 réponses

Avatar
anonymousA
Bonsoir,

Va sur le site de Frédéric Sigonneau ou Excellabo. Il existe de nombreux
exemples de ce genre.Pour les comprendre, il te faudra sans doute
parcourir l'aide d'Excel. Par ailleurs, pour les exécuter et béneficier
de l'intellisense, il est necessaire de faire référence à la
bibilothèque Microsoft Visual Basic Extensibility 5.3 ( dans le menu
Outils/références de VBA)

A+

bonjour,

Quand j'exporte une feuillesur une autre classeur, est t'il possible de
créer par macro un bouton de commande, avec une macro à l'interieur.

si oui comment?

merci d'avance


Avatar
Clément Marcotte
Bonjour,

Es tu sur que l'on peut foutre un bouton de commande dans une feuille,
et de lui foutre une procédure dedans, et tout cela par automation ?

Le monsieur il ne veut pas mettre ses boutons dans une barre d'outils.

--
On apprend pas à un vieux singe à faire des grimaces
"anonymousA" a écrit dans le message de
news:4262c527$0$25020$
Bonsoir,

Va sur le site de Frédéric Sigonneau ou Excellabo. Il existe de
nombreux

exemples de ce genre.Pour les comprendre, il te faudra sans doute
parcourir l'aide d'Excel. Par ailleurs, pour les exécuter et
béneficier

de l'intellisense, il est necessaire de faire référence à la
bibilothèque Microsoft Visual Basic Extensibility 5.3 ( dans le menu
Outils/références de VBA)

A+

bonjour,

Quand j'exporte une feuillesur une autre classeur, est t'il
possible de


créer par macro un bouton de commande, avec une macro à
l'interieur.



si oui comment?

merci d'avance




Avatar
anonymousA
ben,

Depuis quand il ne serait pas possible de créer un bouton de dommande sur
une feuille par OLEObjects.Add puis de créer par programmation via
CreateEventProc p.e une procédure Click associée à ce bouton de commande p.e ?

Sub dest()

Dim dp As OLEObject

'on parcourt la collection des feuilles du fichier tata.xls une fois la
copie des feuilles 'faites

For Each s In Workbooks("tata.xls").Worksheets

'on crée un bouton par feuille
With s
Set dp = s.OLEObjects.Add(ClassType:="Forms.Commandbutton.1",
Left:=Range("A1").Left, Top:=.Range("A1").Top, Width:H, Height:H)
End With
'on lui donne un nom et une légende
With dp
.Name = "bouton"
.Object.Caption = "Retour"
End With
'on crée l'evenement Click associé au bouton
With
Workbooks("tata.xls").VBProject.VBComponents(s.CodeName).CodeModule
.InsertLines .CreateEventProc("Click", dp.Name) + 1, "Msgbox ""You
Clicked The Button"" "
End With

Next

'on active la fenetre d'application
AppActivate Application.Caption
End Sub


A+


Bonjour,

Es tu sur que l'on peut foutre un bouton de commande dans une feuille,
et de lui foutre une procédure dedans, et tout cela par automation ?

Le monsieur il ne veut pas mettre ses boutons dans une barre d'outils.

--
On apprend pas à un vieux singe à faire des grimaces
"anonymousA" a écrit dans le message de
news:4262c527$0$25020$
Bonsoir,

Va sur le site de Frédéric Sigonneau ou Excellabo. Il existe de
nombreux

exemples de ce genre.Pour les comprendre, il te faudra sans doute
parcourir l'aide d'Excel. Par ailleurs, pour les exécuter et
béneficier

de l'intellisense, il est necessaire de faire référence à la
bibilothèque Microsoft Visual Basic Extensibility 5.3 ( dans le menu
Outils/références de VBA)

A+

bonjour,

Quand j'exporte une feuillesur une autre classeur, est t'il
possible de


créer par macro un bouton de commande, avec une macro à
l'interieur.



si oui comment?

merci d'avance