Mise en page ne marche pas dans ma macro Fermé

Question

Bonjour, 
Voici un fichier qui est une copie épurée de ce que j'ai fait pour mon client. J'ai une macro qui copie la FACTURE dans une nouvelle, la renomme selon le numéro de facture, la met dans une liste (pour garder un suivi), et remet la FACTURE en blanc. J'ai plein de choses importantes pour la protection du fichier. Donc, le mot de passe est toto. 
Mon problème est que je n'arrive vraiment pas à définir la zone d'impression de chaque nouvelle facture (toutes celles qui comportent un numéro comme nom de feuille). Il faut que ça s'imprime en 1 page. Qu'est-ce qui cloche dans ma macro svp  ???
J'ai excel 2010. Merci.
https://www.cjoint.com/c/GCewXmXJJB0

Frenchie83 · Answer

Bonjour
Redéfinissez la taille de votre zone d'impression
Remplacez
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$54"
 par
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$51"

mettez        .PaperSize = 119  en remarque
Avec ces 2 modifs, cela semble correct. Essayez
Cdlt

atinauJ · Answer

ça ne fonctionne toujours pas. Je précise que c'est la nouvelle facture créée qui demeure en 4 pages et que je n'arrive pas à la réduire en une page avec la fonction mise en page/ajuster en une page de hauteur et une page de largeur. 
merci

Frenchie83 · Answer

Bonjour
Bizarre, ça fonctionne plutôt bien chez moi.
Revoici votre fichier, attention, j'ai remplacer "Picture" par "Image" pour tester, je n'ai pas remis comme c'était, si ça plante à ce niveau là, refaite l'opération inverse.
https://www.cjoint.com/c/GCfn20KM0Hw
et l'aperçu avant impression

Essayez à nouveau
Cdlt

atinauJ · Answer

j'ai testé ton fichier et ça bug à la ligne: PrintQuality = 600
pourquoi ?

atinauJ · Answer

j'essaie de voir ce que tu as changé, à part l'image, car je dois appliquer le changement dans mon vrai fichier, et l'image en question, c'est le logo du client.
peux-tu me dire où est mon erreur dans ma mise en page svp ?
merci

atinauJ · Answer

pour la zone d'impression, je dois la garder à ActiveSheet.PageSetup.PrintArea = "$A$1:$C$54"  car il y a d'autres informations de mon client (numéros de taxes, entre autre) qui sont dans les dernières lignes.
J'ai mis en remarque la ligne PaperSize = 119
Dans le fichier que tu m'as envoyé, ça marche. Mais quand je change ces données dans l'original, ça ne marche pas :(
Même si je refais une macro juste pour l'histoire de la zone d'impression de la feuille à droite de FACTURE, et que je copie les nouvelles données de cette macro dans l'original, ça refuse encore de définir la zone d'impression. je ne comprends plus rien.

atinauJ · Answer

ces lignes sont nécessaires dans mon originale. 
J'ai eu une idée. Au lieu d'essayer d'appliquer les changements dans mon original, j'ai fait l'inverse. J'ai pris ton fichier, j'y ai rajouté les vrais informations de mon client (logo, taxes, etc...) et ça semble fonctionner jusqu'à date... chez moi.
Je vais le tester à mon bureau demain (car j'ai pas la même version excel qu'à la maison) et il faut aussi que ça puisse fonctionner sur l'ordi de mon client.
je croise les doigts 
merci. Je t'en redonne des nouvelles demain.