G
guillaume_10000
Guest
bonjour,
je veux faire une macro permettant l'impression auto à partir d'une base (liste d'une colonne se trouvant dans un autre fichier excel que celui d'où je veux lancer l'impression)
j'ai fait un petit tour pour trouver comment faire pour imprimer à partir d'une liste se trouvant déjà sur la même feuille, mais par contre pour accéder à un autre fichier, là je trouve pas....
voici ce sui j'ai copier du forum...
Sub Impression_auto()
compteur = Range("K1").End(xlDown).Row
For i = 3 To compteur
Range("K" & i).Select
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$47"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Range("B4").Select
End Sub
quelqu'un peut il m'aider?
merci
guillaume
je veux faire une macro permettant l'impression auto à partir d'une base (liste d'une colonne se trouvant dans un autre fichier excel que celui d'où je veux lancer l'impression)
j'ai fait un petit tour pour trouver comment faire pour imprimer à partir d'une liste se trouvant déjà sur la même feuille, mais par contre pour accéder à un autre fichier, là je trouve pas....
voici ce sui j'ai copier du forum...
Sub Impression_auto()
compteur = Range("K1").End(xlDown).Row
For i = 3 To compteur
Range("K" & i).Select
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$47"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Range("B4").Select
End Sub
quelqu'un peut il m'aider?
merci
guillaume
