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
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!