Imprimer avec incrémentation

Bonjour,

J'ai créer un bon de commande et j'aimerais imprimer un nombre X de copies et qu'à chaque fois le #PO est incrémenté de 1.

Je ne connais pas VBA, mais si vous me dites comment faire je tenterai de le faire.

Votre aide est grandement apprécié. J'ai joint mon fichier. J'utilise Excel 2010.

Merci.

Elieange

Bonjour Elieange,

j'ai fait un exemple avec PrintPreview pour le test, changer pour Print pour un essaie réel.

Sub Print_PO()
Dim noPO As Integer, i As Integer
noPO = CInt(Right(Range("E3"), 6))
For i = 1 To 2
 Range("E3").Value = Year(Date) & "-" & Format(noPO + i, "000000")
 ActiveSheet.PrintPreview
Next
End Sub

Bonjour sabV,

Ce que tu as fait peut parfaitement convenir. Par contre, j'ai parfois à imprimer jusqu'à 100 copies d'un seul coup, alors je dois cliquer sur "imprimer" à chaque fois.

J'ai vu que "gmb" avait déjà répondu à cette question et il suggère une façon qui serait parfaite pour moi (voir NV PCTRLV1). Le problème c'est que je ne sais pas comment l'introduire dans mon fichier. Si tu pouvais m'aider de nouveau, ce serait grandement apprécié. Sinon, j'utiliserai ta façon de faire, elle est mille fois mieux que d'avoir à incrémenter moi-même.

Merci beaucoup.

Elieange

Bonjour,

j'ai apporter une petite modification,

Sub Print_PO()
Dim noPO As Integer, i As Integer, n As Integer
noPO = CInt(Right(Range("E3"), 6))
n = InputBox("Entré le nombre de PO à imprimer", "Imprimer")
If CInt(n) = 0 Then Exit Sub
For i = 1 To n
 Range("E3").Value = Year(Date) & "-" & Format(noPO + i, "000000")
 ActiveSheet.PrintPreview 'pour le test
' ActiveSheet.Print  'pour un essaie réel
Next
End Sub