1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
| Sub Principal_CB_Utilisateurs()
Etiquettes
Données
Mise_en_forme_Utilisateurs
End Sub
Sub Etiquettes()
Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="C2163", Address:="", _
AutoText:="", LaserTray:=wdPrinterManualFeed, ExtractAddress:=False, _
PrintEPostageLabel:=False, Vertical:=False
End Sub
Sub Données()
Dim Fichier_source As String
Selection_fichier_source:
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Veuillez sélectionnez le fichier source BELOP"
.AllowMultiSelect = False
.Show
End With
Fichier_source = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
'Si pas de fichier sélectionné alors terminer le programme
If Fichier_source = "" Then
End 'stopper la procedure
End If
'Contrôle du format
If Right(Fichier_source, 4) <> ".txt" Then
MsgBox "Le fichier d'étiquettes BELOP doit être un fichier texte (*.txt)", vbExclamation, "Format de fichier incorrect !"
GoTo Selection_fichier_source
End If
ActiveDocument.MailMerge.OpenDataSource Name:=Fichier_source, Format:=wdOpenFormatEncodedText, ConfirmConversions:=True ', ReadOnly:=False, LinkToSource:=True, Encoding:=1252
End Sub
Sub Mise_en_forme_Utilisateurs()
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Code_barre"""
Selection.TypeParagraph
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Utilisateur"""
Selection.TypeParagraph
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Centre_coût"""
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:="Centre de coût : "
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
Selection.HomeKey Unit:=wdLine
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.TypeText Text:="Utilisateur : "
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
Selection.HomeKey Unit:=wdLine
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Size = 36
Selection.Font.Name = "Code-128"
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1
WordBasic.MailMergePropagateLabel
End Sub |
Partager