Discussion :

[etorria]

Bonjour au Forum !

Comment, en cliquant sur un Shape, lancer une impression ?

En effet, je souhaiterai avoir une boite de dialogue permettant de choisir l'imprimante et ensuite si oui ou non, je désire lancer l'impression.

Ci-joint un exemple pour mieux comprendre.

Cdt,

Etorria

[Jean-Pierre49]

Bonjour,

Clic Droit sur ton Shape
Puis Affecter une macro

[etorria]

Bonjour,

Clic Droit sur ton Shape
Puis Affecter une macro

En fait voici le début de code dans ma feuille où est placée le Shape :

Code :

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

1
2
3
4
5
Sub ImprimShape()
    Dim Shp As Shape
       Set Shp = Feuil1.Shapes("Alerte")
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

Je sais, c'est du n'importe quoi, mais bon pour un débutant comme moi...

A+
Etorria

[Jean-Pierre49]

Tu vas sur ton Shape tu fait clic droit tu as un menu qui apparait choisi Affecter une macro, tu selectionne ta macro "ImprimShape" et tu fait Ok

Quand tu va cliquer sur ton shape, ta macro va être lancée

Code pour ta macro

Code :

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

1
2
3
Sub ImprimShape()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

[etorria]

Ok !

Et si je veux imprimer par exemple une plage de cellules dans un autre onglet (Feuil2), quel est le code associé dans ce cas ?

Merci

a+
Etorria

[Jean-Pierre49]

Essaye

Code :

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

1
2
3
4
5
6
7
Application.ScreenUpdating = True
    Sheets("Feuil2").Select
    ActiveSheet.PageSetup.PrintArea = "$C$4:$F$29"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    Sheets("Feuil1").Select ' retour a ta feuille
Application.ScreenUpdating = False

A adapter