Impression automatisée

Bonjour à tous,

J'ai un fichier excel qui possède 12 onglets. Ces 12 onglets correspondent à des rapports de validation de courbes de tendance (résultats mensuels d'analyses diverses). Sur chaque rapports/onglet j'ai un tableau qui reprend mes résultats, et ce tableau est associé à un graphique.

Afin de gagner du temps, j'ai créé un macro qui permet d'imprimer "en 1 clic" ces 12 onglets. Le problème c'est que lors de l'impression, ça me change l'axe des ordonnées. Sur l'image ci-dessous, sur le 1er rapport imprimé l'axe affiche bien les valeurs 60,0 - 55,0 - 50,0 - ...etc alors que sur les 11 autres rapports imprimé l'axe affiche 6,0 - 5,5 - 5,0

Impossible de comprend pourquoi ça me fait ça alors que sur mon fichier tous mes graphiques sont correct.

Avez-vous une idée ?

Pour info ma macro est la suivante (j'ai réduit à 3 onglets pour ce post) et elle se trouve sur un fichier à part :

Private Sub CommandButton1_Click()

    Workbooks.Open "C:\Users\Desktop\Trends.xls"

Sheets("RDT 1831-40").Cells(7, 2).Value = Me.TextBox1.Value
Sheets("RDT 1831-40").Cells(131, 3).Value = Me.TextBox2.Value
Sheets("RDT 1831-40").Cells(131, 11).Value = Me.TextBox2.Value
Sheets("RDT 1831-40").Cells(134, 3).Value = Me.TextBox3.Value
Sheets("RDT 1831-40").Cells(134, 11).Value = Me.TextBox4.Value
Sheets("RDT 1831-40").PrintOut

Sheets("RDT 1831-120").Cells(7, 2).Value = Me.TextBox1.Value
Sheets("RDT 1831-120").Cells(131, 3).Value = Me.TextBox2.Value
Sheets("RDT 1831-120").Cells(131, 11).Value = Me.TextBox2.Value
Sheets("RDT 1831-120").Cells(134, 3).Value = Me.TextBox3.Value
Sheets("RDT 1831-120").Cells(134, 11).Value = Me.TextBox4.Value
Sheets("RDT 1831-120").PrintOut

'[...]

Sheets("RDT 2714-40").Cells(7, 2).Value = Me.TextBox1.Value
Sheets("RDT 2714-40").Cells(131, 3).Value = Me.TextBox2.Value
Sheets("RDT 2714-40").Cells(131, 11).Value = Me.TextBox2.Value
Sheets("RDT 2714-40").Cells(134, 3).Value = Me.TextBox3.Value
Sheets("RDT 2714-40").Cells(134, 11).Value = Me.TextBox4.Value
Sheets("RDT 2714-40").PrintOut

    Workbooks("Trends.xls").Close True

Unload Me

End Sub
sans titre

Bonjour,

c'est impossible de trouver le problème sans avoir le fichier excel...

Au final c'est bon. Après 1 journée à m'arracher les cheveux j'ai trouvé la solution

J'ai décoché la case "Lier à la source" lorsque l'on fait un clic droit sur l'axe, puis dans "Mise en forme de l'axe..." --> "Nombre"

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!

Rechercher des sujets similaires à "impression automatisee"