déclencher un bouton dans un userform

[sylvain35]

bonjour à tous,

J'aimerais à l'ouverture de mon fichier excel, qu'un userform apparaissent (jusque là pas de souci). Mais en plus, cet userform dispose d'un bouton 'modifier', j'aimerais que le bouton modifier s'active ou se déclenche sans cliquer avec la souris, c'est juste pour l'ouverture du fichier.
J'ai essayé aevec la commande application.command. mais sans succès.

Merci du coup de main

sylvain35

 

[excalibur]

bonjour sylvain , le forum essai ce code Private Sub UserForm_Activate()
commmandbutton1 _click
End Sub'salutations' salutations

 

[sylvain35]

Rebonjour,

tout d'abord, merci pour la réponse. mais j'ai une erreur de compilation, je ne sais pas ou mettre le code... je l'ai mi dans le code de l'userform...

sylvain35

 

[excalibur]

rebonjour sylvain , le forum oui le code est au bon endroit si ton bouton s appelle modifier alors Private Sub UserForm_Activate()
modifier_click
End Sub'salutations' salutations

 

[sylvain35]

rebonjour à nouveau,

ça ne marche toujours pas je ne comprends pas , ci joint un petit exemple pour illustrer.

merci du coup de main

 

[excalibur]

bonjour sylvain , le forum je te joins un petit ex: tres simple salutations [file name=essai_20050808135220.zip size=11631]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20050808135220.zip[/file]

 

[sylvain35]

bonjour,

merci pour l'exemple mais j'aurais savoir comment peut-on mettre en automatique le fait de cliquer sur le bouton test de l'userform sans avoir bien sur à cliquer dessus, en fait j'en ai besoin pour un userform à l'ouverture de mon classeur. Puis par la suite, cet userform est appelé à fonctionner normalement en cliquer sur ses boutons. je ne sais pas si je suis assez claire ?

en tout cas merci quand même

 

[excalibur]

BONJOUR SYLVAIN ce code dans thisworkbook Private Sub Workbook_Activate()
userform1.Show
End Sub ' salutations

 

[excalibur]

j ai oublie bien sur tu supprime dans Private Sub UserForm_Activate()
modifier_Click' cette ligne
End Sub ' a+

 

[sylvain35]

bonsoir à tous,

merci encore ça marche parfaitement

bonne continuation