Incrémentation date avec impressions multiples

Bonjour,

Depuis quelques temps j'ai un petit souci avec l'impression de mon fichier.

Il s'agit d'un fichier pour inscrire le nom des chauffeurs pour chaque véhicule, et ce pour chaque jour. Evidemment je ne change pas la date à la main, ça incrémente à chaque impression. Cependant il n'imprime plus dans le bon ordre.. Ne fusse que sur une impression d'une semaine complète hors week-end, le jeudi (le plus souvent) se décale avant le mercredi ou après le vendredi.

C'est embêtant car quand j'imprime 60 ou 80 feuilles d'affilées, je suis obligé de trier toutes les feuilles manuellement. Sur de grosses quantités de feuilles le décalage peut se faire sur d'autres feuilles..

J'ai déjà essayé avec d'autres imprimantes, même résultat.

En pièce-jointe le fichier.

Merci !

Bonjour Thrrybo

Si j'ai bien compris, c'est peut-être mieux comme ça

Sub Imprimer()
  Dim NbCopie As Variant, NbImp As Integer
  ' Boucler tant que 0 indiqué
  Do
    NbCopie = InputBox("Nombre de copies :", "Imprimer")
    If NbCopie = "" Then Exit Sub
  Loop While NbCopie = 0
  ' Lancer l'impression
  Application.EnableEvents = False        'évite le lancement de BeforePrint
  With ActiveSheet
    For NbImp = 1 To NbCopie
      .PrintOut , Collate:=True
      .[A1] = .[A1] + 1
      If Weekday(Range("A1"), vbMonday) > 5 Then .[A1] = .[A1] + 2
    Next
  End With
  Application.EnableEvents = True
End Sub

A+

Bonjour Bruno,

Toujours le souci

Quand le premier jour à imprimer est un lundi et que je ne fais qu'une semaine ça à l'air de fonctionner.

Par après j'ai testé avec 12 feuilles. Il m'a sorti comme cela :

18/03 ; 19/03 ; 21/03 ; 25/03 ; 20/03 ; 28/03 ; 1/04 ; 22/03 ; 26/03 ; 27/03 ; 29/03 ; 2/04

Bonjour,

Pour moi, impossible avec ma façon de procéder

Donnez-nous la procédure que vous suivez exactement ?
Quelle imprimante utilisez-vous ?

A+

Bonjour,

Tout simplement Fichier -> Imprimer -> Imprimer -> Entrer le nombre de copie -> Valider

J'ai essayé avec 2 imprimantes : Lexmark MS521 et Ricoh C5500

Merci !

Bonjour

Mon dieu mais a quoi sert le code donné alors

Je ne comprends pas, il faut juste lancer ce code, il s'occupe de tout

Bonjour Bruno,

Cela ne change rien, le code s'exécute de la même manière après avoir indiqué le nombre de copies

Re,

Navré de vous décevoir, mais nous ne devons pas parler de la même chose

Voici mon édition PDF avec le code donné

Vous verrez que les pages sont imprimées dans l'ordre

En PDF cela à l'air de fonctionner, même avec l'ancien code. Mais en impression ça ne veut pas je ne comprends pas..

Merci,