Sujet Précédent Sujet Suivant

Mise en page ne marche pas dans ma macro

Fermé
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 - 4 mars 2017 à 23:52
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 - 5 mars 2017 à 16:48
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
A voir également:

7 réponses

Réponse 1 / 7
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 mars 2017 à 06:58
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
0
Réponse 2 / 7
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
5 mars 2017 à 14:44
ç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
0
Réponse 3 / 7
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 mars 2017 à 14:59
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
0
Réponse 4 / 7
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
5 mars 2017 à 15:10
j'ai testé ton fichier et ça bug à la ligne: PrintQuality = 600
pourquoi ?
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 mars 2017 à 16:12
mettez-la en remarque
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
5 mars 2017 à 16:16
c'est ce que j'ai fait. Mais cette ligne est importante pour quoi au juste ?
Est-ce que ça va affecter la qualité d'impression ?
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337 > atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017
5 mars 2017 à 16:21
Comme son nom l'indique, c'est la qualité d'impression, il est lié au type d'imprimante. le fait de le mettre en remarque n'affectera pas l'impression puisqu'il n'est pas reconnu.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
5 mars 2017 à 16:13
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
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 mars 2017 à 16:22
Je n'ai touché rien de plus que ce que j'ai signalé dans mon premier post
0
Réponse 6 / 7
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
5 mars 2017 à 16:35
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.
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 mars 2017 à 16:45
Autre solution, supprimer quelques lignes vides ou bien les réduire .
Exemple:
-lignes de 4 à 5, de 16 à 19,
-réduire la largeur des colonnes( la colonne C .
0
Réponse 7 / 7
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
5 mars 2017 à 16:48
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.
0

Discussions similaires

[PIX] Commencer chaque poème sur une nouvelle page
ETHAN -
Willzac -

19 réponses
[référencement] Ne pas être référencé
kij_82 -
Searaphina -

10 réponses