copier coller + impression en VBA

jacfld49 · 1 Septembre 2008

bonsoir à tous,

Je voudrais copier la plage A3:T52 de l'onglet PLJOUR2 dans l'onglet SUIVIAPLIC et dans la meme plage et qu'ensuite s'imprime la feuille SUIVIAPLIC de la plage A3:AB52
Tous cela par macro . Est-ce possible?
merci

kjin · 1 Septembre 2008

Re : copier coller + impression en VBA

Bonsoir,
Peut-être comme ceci

Sub SUIVIAPPLIC()
ActiveSheet.Range("A3:T52").Copy
Sheets("SUIVIAPPLIC").Range("A3").PasteSpecial xlPasteAll
Application.CutCopyMode = False
With ActiveSheet
.PageSetup.PrintArea = "$A$3:$AB$52"
.PrintOut Copies:=1
End With
End Sub

A+
kjin

jacfld49 · 2 Septembre 2008

Re : copier coller + impression en VBA

bonjour kjin,le forum,

Est ce que tu peux me dire ou placer le code STP et il faut aussi que le bouton de commande pour imprimer la feuille suiviapplic soit placer sur la feuille PLJOUR2.
merci

kjin · 2 Septembre 2008

Re : copier coller + impression en VBA

Bonjour,
Le fichier à tester
A+
kjin

jacfld49 · 2 Septembre 2008

Re : copier coller + impression en VBA

rebonjour kjin,le forum,

les données du tableau se transfert sans problème mais par contre à l'impression , ça n'imprime que la plage A3:T52 de l'onglet suiviapplic alors que je voudrais que ça imprime la plage A3:AB52 de l'onglet suiviapplic.
merci

kjin · 2 Septembre 2008

Re : copier coller + impression en VBA

Bonjour,
Modifie la macro comme ceci

Sub TransfertImpression()
ActiveSheet.Range("A3:T52").Copy
With Sheets("SUIVIAPPLIC")
.Range("A3").PasteSpecial xlPasteAll
Application.CutCopyMode = False
.PageSetup.PrintArea = "$A$3:$AB$52"
.PrintOut Copies:=1
End With
End Sub

A+
kjin

copier coller + impression en VBA

jacfld49

XLDnaute Occasionnel

Pièces jointes

kjin

XLDnaute Barbatruc

jacfld49

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Pièces jointes

jacfld49

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires