Mise à jour text box par boucle ne fonctionne pas pour impression
Bonjour
J'ai crée une automatisation d'un formulaire avec une liste de données assez conséquente.
Deux pages :
1. "DATA" avec les info
2. "F_281_QA" :Formulaire avec un screen shot d'un formulaire papier et des text box
principe : Une boucle sur les données avec mise à jour des textbox et impression du formulaire
problème :
Si je lance cette macro avec suivis manuel (une ligne en rouge et besoin de F5 pour relancer) tout fonctionne et mes fichier imprimés sont différent.
Si je lance direct mes fichiers sont tous identique, comme si les text box ne se mettaient pas a jour.
J'ai tenté application.wait sans succes.
Si vous avez des idées c'est avec plaisir. le code ci dessous :
Sub remplissage()
Dim lastline As Long
lastline = Worksheets("DATA").Range("A65536").End(xlUp).Row
For a = 2 To lastline
'client
clientName = Worksheets("DATA").Cells(a, 1).Value
Worksheets("F_281_QA").TextBox1 = clientName
'Description
DESC = Worksheets("DATA").Cells(a, 4).Value
Worksheets("F_281_QA").TextBox2 = DESC
'Pays
Pays = Worksheets("DATA").Cells(a, 9).Value
Worksheets("F_281_QA").TextBox3 = Pays
'DateBesoin
DateBesoin = Worksheets("DATA").Cells(a, 7).Value
Worksheets("F_281_QA").TextBox4 = DateBesoin
'Nom
Nom = Worksheets("DATA").Cells(a, 10).Value
Worksheets("F_281_QA").TextBox5 = Nom
'DateJour
aujourdhui = Worksheets("DATA").Cells(1, 11).Value
Worksheets("F_281_QA").TextBox6 = aujourdhui
'SKUPATHEON
SKUPatheon = Worksheets("DATA").Cells(a, 3).Value
Worksheets("F_281_QA").TextBox7 = SKUPatheon
'SKUCLIENT
SKUClient = Worksheets("DATA").Cells(a, 2).Value
Worksheets("F_281_QA").TextBox8 = SKUClient
'FCCNUMBER
FCC = Worksheets("DATA").Cells(a, 6).Value
Worksheets("F_281_QA").TextBox9 = FCC
'NomFichier
'NomFichier = "DR_F_281_" & SKUPatheon & "_" & DESC
'Application.Wait (Now + TimeValue("00:00:01"))
Call imprimer
Next a
End Sub
Sub imprimer()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub