bonjour à tous , dans une feuille excel, j`ai placé un bouton et je voudrais
qu`en cliquant ce bouton l`impression et l`enregistrement se fasse
automatiquement.
Que dois-je faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J
Bonjour rémi accroche ça à ton bouton cela te donne, en plus, le choix de la zone à imprimer sur les feuilles que tu as sélectionnées. tu adapte à tes besoins bon courage J@@
Sub ImprSelection() Application.ScreenUpdating = False zoneImpr = InputBox("Entrer la zone d'impression", "Zone d'impression") For Each sht In ActiveWorkbook.Windows(1).SelectedSheets With sht .PageSetup.PrintArea = zoneImpr .PrintOut ' .PrintPreview End With Next ActiveWorkbook.Save End Sub
"remi lantin"
bonjour à tous , dans une feuille excel, j`ai placé un bouton et je voudrais qu`en cliquant ce bouton l`impression et l`enregistrement se fasse automatiquement. Que dois-je faire ?
Bonjour rémi
accroche ça à ton bouton
cela te donne, en plus, le choix de la zone à imprimer sur les feuilles que
tu as sélectionnées.
tu adapte à tes besoins
bon courage
J@@
Sub ImprSelection()
Application.ScreenUpdating = False
zoneImpr = InputBox("Entrer la zone d'impression", "Zone d'impression")
For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
With sht
.PageSetup.PrintArea = zoneImpr
.PrintOut
' .PrintPreview
End With
Next
ActiveWorkbook.Save
End Sub
"remi lantin"
bonjour à tous , dans une feuille excel, j`ai placé un bouton et je
voudrais
qu`en cliquant ce bouton l`impression et l`enregistrement se fasse
automatiquement.
Que dois-je faire ?
Bonjour rémi accroche ça à ton bouton cela te donne, en plus, le choix de la zone à imprimer sur les feuilles que tu as sélectionnées. tu adapte à tes besoins bon courage J@@
Sub ImprSelection() Application.ScreenUpdating = False zoneImpr = InputBox("Entrer la zone d'impression", "Zone d'impression") For Each sht In ActiveWorkbook.Windows(1).SelectedSheets With sht .PageSetup.PrintArea = zoneImpr .PrintOut ' .PrintPreview End With Next ActiveWorkbook.Save End Sub
"remi lantin"
bonjour à tous , dans une feuille excel, j`ai placé un bouton et je voudrais qu`en cliquant ce bouton l`impression et l`enregistrement se fasse automatiquement. Que dois-je faire ?
