copier coller + impression en VBA

[jacfld49]

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]

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]

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]

Re : copier coller + impression en VBA

Bonjour,
Le fichier à tester
A+
kjin

 

[jacfld49]

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]

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