Bonjour,
Je rencontre un pb pour imprimer certaines pages d'un document Word, impression lancée depuis Excel en VBA.
Avant d'entrer dans le détail de mon pb, je vous décris mon fichier Word :
- une première section de 34 pages avec numérotation des pages (de 1 à 34) dans l'en-tête
- plusieurs sections (4) d'1 ou 2 pages sans numérotation de page dans l'entête
- Section de 6 pages avec numérotation dans l'entête (de 35 à 41), qui correspond en réalité aux pages 41 à 47 du document Word
- plusieurs sections d'une ou 2 pages
- Nombre totale de pages : 50
Mon problème maintenant !
En fonction des besoins, je lance l'impression des différentes sections depuis Excel les unes après les autres. Pas de pb jusqu' à la 5ème section. Mais ça ne va plus après !
La ligne de code utilisée est la suivante :
avec oRs.Fields("Pages").value = "41-47" à ce moment là.
Code : Sélectionner tout - Visualiser dans une fenêtre à part wrdApp.PrintOut Range:=wdPrintRangeOfPages, Copies:=oRs.Fields("Nb_copies").value, Pages:=oRs.Fields("Pages").value
Je m'attend donc à ce que Word m'imprime les 6 pages de ma 6ème section numéroté de 35 à 41 or non, l'impression commence à la page numéroté 41 (la 47ème du document Word) et ce pour 4 pages puisqu'il n'y en n'a pas plus derrière !
C'est le même résultat en utilisant :
A noter également que c'est le même résultat en utilisant la fonction standard d'impression depuis Word directement !
Code : Sélectionner tout - Visualiser dans une fenêtre à part wrdApp.PrintOut Range:=wdPrintFromTo, From:="41", To:="47", Copies:=oRs.Fields("Nb_copies").value
C'est un peu compliqué à expliquer mais j'espère que c'est suffisemment clair pour que quelqu'un puisse m'aider à trouver une solution à ce pb (si il y en a une !)
Merci d'avance
Partager