Problème de rafraichissment labels avant impression...

[Jerome87]

Bonjour à tous

Voilà j'ai un fichier excel qui permet d'imprimer des étiquettes avec des champs variables.

J'ai un onglet "CONTROLE" qui me donne 2 variables en cellule "L2", et "R2" (cette cellule "R2" est incrémentée à chaque impression).
Je retranscris ces 2 textes dans l'onglet "FEUILLE-DC", ou 4 labels "TYPEx" prennent la valeur de L2 , et 4 autres labels "SNx" prennent la valeur de "R2".
Ensuite je fais un aperçu avant impression.

Le 1er fonctionne très bien. Le 2ème non, j'ai la même valeur des labels "TYPEx" et "SNx" que l'impression d'avant. Lorsque l’aperçu avant impression est terminé, seulement à ce moment là les labels se mettent à jour.
Au 3ème essai, les labels se sont mis à jour, et du coup le label "SNx" à pris 2 valeurs d'un coup. Etc etc...

En bref, mes labels se mettent à jour du coup une fois sur deux seulement !

Existe t-il un moyen de rafraichir ces labels ?

Ci dessous mon code :

Sub MISEENPAGE()
'
' MISEENPAGE Macro


'RAZ DES CHAMPS
Worksheets("CONTROLE").Calculate 'recalcul de la feuille CONTROLE

Worksheets("FEUILLE-DC").TYPE1.Caption = "" 'RAZ des labels avant impression
Worksheets("FEUILLE-DC").TYPE2.Caption = ""
Worksheets("FEUILLE-DC").TYPE3.Caption = ""
Worksheets("FEUILLE-DC").TYPE4.Caption = ""
Worksheets("FEUILLE-DC").PUISSANCE1.Caption = ""
Worksheets("FEUILLE-DC").PUISSANCE2.Caption = ""
Worksheets("FEUILLE-DC").PUISSANCE3.Caption = ""
Worksheets("FEUILLE-DC").PUISSANCE4.Caption = ""
Worksheets("FEUILLE-DC").SN1.Caption = ""
Worksheets("FEUILLE-DC").SN2.Caption = ""
Worksheets("FEUILLE-DC").SN3.Caption = ""
Worksheets("FEUILLE-DC").SN4.Caption = ""
Application.ScreenUpdating = True 'rafraichissement ?

'CREATION ETIQUETTES

With Sheets("CONTROLE")
If .Range("O2").Value = "DC" Then 'Si l'équipement est de type "DC", alors on va chercher la feuille d'impression DC
Sheets("FEUILLE-DC").Select

Application.ScreenUpdating = True 'rafraichissement ?
Worksheets("FEUILLE-DC").TYPE1.Caption = Sheets("CONTROLE").Range("L2").Value 'on récupère le modèle d'équipement
Worksheets("FEUILLE-DC").TYPE2.Caption = Sheets("CONTROLE").Range("L2").Value
Worksheets("FEUILLE-DC").TYPE3.Caption = Sheets("CONTROLE").Range("L2").Value
Worksheets("FEUILLE-DC").TYPE4.Caption = Sheets("CONTROLE").Range("L2").Value
Worksheets("FEUILLE-DC").PUISSANCE1.Caption = Sheets("CONTROLE").Range("N2").Value 'on récupère la puissance de l'équipement
Worksheets("FEUILLE-DC").PUISSANCE2.Caption = Sheets("CONTROLE").Range("N2").Value
Worksheets("FEUILLE-DC").PUISSANCE3.Caption = Sheets("CONTROLE").Range("N2").Value
Worksheets("FEUILLE-DC").PUISSANCE4.Caption = Sheets("CONTROLE").Range("N2").Value
Worksheets("FEUILLE-DC").SN1.Caption = Sheets("CONTROLE").Range("R2").Value 'on récupère le numéro de série (incrémenté) de l'équipement
Worksheets("FEUILLE-DC").SN2.Caption = Sheets("CONTROLE").Range("R2").Value
Worksheets("FEUILLE-DC").SN3.Caption = Sheets("CONTROLE").Range("R2").Value
Worksheets("FEUILLE-DC").SN4.Caption = Sheets("CONTROLE").Range("R2").Value

Else
Sheets("FEUILLE-AC").Select 'sinon l'équipement est de type "AC"
End If
End With

'IMPRESSION
Application.ScreenUpdating = True 'rafraichissement ?
Range("A1:AB7").Select 'mise en page
Range("AB7").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$7"
'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" 'impression imprimante par défaut
ActiveWindow.SelectedSheets.PrintPreview 'apercu avant impression
'INCREMENTATION

Sheets("CONTROLE").Select
Cells.Find(What:=Sheets("CONTROLE").Range("J2").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate 'recherche de la réf de l'équipement dans BDD
ActiveCell.Offset(0, 6).Select 'décalage pour récupérer le champ incrément
ActiveCell.FormulaR1C1 = (ActiveCell.Value + 1) 'incrémentation

'ENREGISTREMENT
Sheets("CONTROLE").Select
ActiveWorkbook.SAVE 'enregistrement


End Sub

Merci à vous et bon dimanche !

 

[Jerome87]

Re : Problème de rafraichissment labels avant impression...

Non... je ne suis quand même pas le seul à avoir eu ce bug sur excel ??