Problèmes PageSetup BUG

Bonjour,

j'ai un problème lors de la génération d'un fichier excel.
J'utilise Excel 2010 mais je dois produire des ".xls"

J'ai une macro dans un fichier excel A (XLS) qui génère un fichier excel B (XLS).

J'arrive à faire à peu près tout ce que je veux mais je rencontre un bug étonnant : j'ai une fonction qui règle des paramètres d'impression, le code s’exécute mais le résultat n'est pas au rendez vous.

La chose étonnante est que je n'ai pas le résultat voulu lorsque j'exécute la macro d'un bloc, mais j'obtiens le résultat voulu lorsque je l'exécute en pas à pas !! :cry:

voici le code de la fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Definir_zone_impression(ws As Worksheet) 'On recherche le nombre de lignes totale Dim nbLigneTotale As Integer nbLigneTotale = 6 While ws.Range("B" & nbLigneTotale) <> "" nbLigneTotale = nbLigneTotale + 1 Wend Application.PrintCommunication = False   With ws.PageSetup .PrintArea = "$A$1:$AN$" & nbLigneTotale .PrintTitleRows = "$4:$5" .PaperSize = xlPaperA3 .Orientation = xlLandscape .FitToPagesTall = False .FitToPagesWide = 1 End With End Sub

---

Et l'appel à cette fonction se fait dans la fonction principale par :

Code:

---

1 2	Call Definir_zone_impression(Workbooks(Nom_fichier).Sheets(1))

---

Pouvez vous m'aider ?

C'est ton while qui est mal paramétré ou alors c'est tes $ qui font "bugger" ton code. Tas pas besoin de fixer les cellules non ? Tu peux les enlever.

Bonjour,

As tu testé en faisant une pose dans ton code avec DoEvents ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Test()   Dim I As Long   'ici ton code...   'ici une pose For I = 1 To 10000   DoEvents   Next I   'puis l'appel Call Definir_zone_impression(Workbooks(Nom_fichier).Sheets(1))   End Sub

---

Pour trouver la dernière ligne utilisée en colonne B, tu n'est pas obligé de boucler, tu peux faire :

Code:

---

1 2 3 4 5 6

With ws   nbLigneTotale = .Cells(.Rows.Count, 2).End(xlUp).Row   End With

---

au lieu de :

Code:

---

1 2 3 4 5

nbLigneTotale = 6 While ws.Range("B" & nbLigneTotale) <> "" nbLigneTotale = nbLigneTotale + 1 Wend

---

Hervé.

J'ai essayé de rajouter des "DoEvents", ça ne change rien.

J'ai amélioré le code en remplaçant le while, ça ne change rien.

Je pense que c'est lié au Application.PrintCommunication
Dans un cas (execution en un bloc), la fenêtre n'a pas le focus et dans l'autre cas, elle l'a.
Ça doit être une histoire comme ça mais c'est très flou.

Je pense que c'est aussi lié aux propriétés d'impression de la feuille source qui pilote la création du fichier excel.
Je viens de faire un test : Dans mon fichier excel A (celui qui génère), je change les paramètres d'impressions (je sélectionne une imprimante qui accepte le A3).
Je génère le fichier, pas de problème !!
Je quitte le fichier A (sans sauvegarder), je le relance, je regénère, ça ne marche pas.

J'en conclus que les paramètres du fichier B sont "reliés" (je ne sais comment dire) aux paramètres du fichier générateur.
C'est très étonnant, je n'y comprends rien et surtout je ne vois pas de solution car je ne peux pas savoir à l'avance quelle imprimante "par défaut" va être connectée à la personne qui utilisera le fichier A.