mahjouba.shop
Messages postés1Date d'inscriptionvendredi 7 mai 2021StatutMembreDernière intervention 7 mai 2021
-
7 mai 2021 à 10:29
Whismeril
Messages postés18424Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention 9 juin 2023
-
7 mai 2021 à 12:51
BONJOUR
JE VOUS ADRESSE UN BOUT DE FICHIER POUR CORRECTION SVP
'Impression de la fiche
With Sheets("Template_etiquette")
.Visible = True
.Cells(1, 1).Value = max_score
'Mettre le nom sur l'étiquette sauf pour UPS où on met le numéro de colis
If Sheets("BDD").Cells(ligne_vide, 5).Value <> "R.C" Then
.Cells(2, 1).Value = Nom.Value
Else
.Cells(2, 1).Value = num_colis.Value
End If
If Sheets("BDD").Cells(ligne_vide, 5).Value <> "U.P.S" Then
.Cells(2, 1).Value = Nom.Value
Else
.Cells(2, 1).Value = num_colis.Value
End If
.PageSetup.PrintArea = "$A$1:$A$2"
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
.Visible = Hidden
End With
LORSQUE JE DEMANDE UNE ETIQUETTE AVEC LE NUM COLIS POUR "RC3" c est le nom qui s imprime par contre pour "UPS" c est bon