UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

[Ilino]

Bonsoir forum
Je cherche à réaliser un seule bouton qui joue le rôle de deux codes VBA (imprimer et/ou enregistrer)
c-a-d quand je clic en premier lieu il imprime et en deuxième clic il enregistre est _il possible ??
Grazie

 

[Dranreb]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Bonsoir
Vous pouvez tester et modifier son Caption par exemple (s'il s'agit bien d'un CommandButton et non pas d'un bouton de formulaire)
Cordialement.

 

[Ilino]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Bonsoir JP Bonsoir darnerb
JP merci pour l’exemple good Idea , je vais l’adapter a mon programme… si tu permet j’ai autre souci sur le bouton lui mémé comment faire changé le caption du bouton de Imprimer au enregistrer et réciproque lors de clic.
THINKS

 

[Dranreb]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Dans la procédure évènement du bouton, affecter une autre constante String à son Caption, c'est tout.

 

[Ilino]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Salut Dran
merci thinks grazie pour la réponse ;mais je ne sais pas si tu m'as bien compris!!!???
NB / Je ne suis pas bien placé dans les code VBA😱

 

[patoq]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Salut Ilino Salut Dranreb,

Et voila

A plus

 

[Dranreb]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Enregistrer" Then
   ThisWorkbook.Save
   CommandButton1.Caption = "Imprimer"
Else
   ThisWorkbook.PrintOut
   CommandButton1.Caption = "Enregistrer"
   End If
End Sub

C'était si compliqué à appliquer comme je le disais ?

 

[Ilino]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

WAOH super GRAZEI
OH Désolé BONJOUR PATOQ
Merci pour l'example
ma question est il possible de remplacer le CommandButton par ToggleButton ???
encore merci merci grazei un tres bon exmple utile

 

[patoq]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Et un ToggleButton un :

 

[Ilino]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

Salut
et merci tous le monde pour votre aide Épouvantable merci Dranreb ,Grazei JP, merci&grazei patoq
Bonne Nuit A+

 

[Ilino]

Re : UN BOUTON POUR DEUX CODES (imprimer +enregistrer)

OUPS SORRY patoq avant d'aller dormir j'ai oublie autre chose??😱
lors d'enregistrement ya pas d'autre possibilité d'enregistrer seulement la feuille active et non pas le classeur ???
😱