Discussion :

[LeSqual]

Voila j'ai fait une petite macro qui imprime:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub impression() 
Sheets("Feuil1" ).Select 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
End Sub

Maintenant ce que je souhaite c'est faire un bouton d'impression qui réalise la même tâche que ma macro
donc je crée sur ma feuille un bouton à l'aide des useform
et une fois mon bouton crée je click dessus pour réecrire le code, donc j'obtiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click() 
Sheets("Feuil1" ).Select 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
End Sub

maintenant j'essaie de clicker sur le bouton mais il est "inactif", je ne peux que modifier sa taille ou son texte.

Merci , ENCORE UNE FOIS, pour votre aide

LeSqual

[ouskel'n'or]

Essaie en remplaçant

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ThisWorkBook.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sinon, essaie de faire précéder ta commande par la désignation de ta feuille -> Worksheets("Feuil1").select

Tu dis

A+

Edit

Extrait de l'aide : SelectedSheets : envoie une collection Sheets qui représente toutes les feuilles sélectionnées dans la fenêtre spécifiée. En lecture seule.

Tes feuilles doivent être sélectionnées

[Vesta]

Je pene qu'il te suffit seulement de repasser en mode execution, tu dois etre en mode création...

Pour ca ouvre la barre d'outils Boite a outils Controles tu devrais voir un triangle sur une regle et un crayon, il faut cliquer dessus.

Le bouton sera alors actif et tu sera passé en mode exécution.

[ouskel'n'or]

je crée sur ma feuille un bouton à l'aide des useform

Ton bouton est bien sur un userform ou est-il sur une feuille de calcul ?
A+