Sub CreerEtiquettes()
Dim App As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille, FeuilleSource, FeuilleLog As Excel.Worksheet
Dim magasin, produit, ref, nom_fichier, gencode, err, m(6), r(6), p(6), c(6), g(6), n(6), nc(6), d(6) As String
Dim source As Workbook
Dim commande, nb_colis, i, j, pcb, lpp, nbepp As Integer
Dim date_envoi As Date
Dim Wbk As Excel.Workbook
' Initialisation des variables
Set source = Excel.Workbooks("EtiquettesLogistique.xlsm")
Set FeuilleSource = source.Sheets("Informations")
'Création du classeur résultat
nom_fichier = ActiveWorkbook.Path & "\Etiquettes_" & magasin & "_" & commande & "_" & produit & ".xlsx"
Set App = CreateObject("Excel.Application")
App.DisplayAlerts = False
App.SheetsInNewWorkbook = 1
Set Classeur = App.Workbooks.Add
' Fermeture du fichier s'il existe déjà
For Each Wbk In Excel.Workbooks
If UCase(Wbk.Path & "\" & Wbk.Name) = UCase(nom_fichier) Then
Wbk.Close False
End If
Next
' Enregistrement
Classeur.SaveAs (nom_fichier)
App.Visible = True
Set Feuille = Classeur.Worksheets(1)
Feuille.Name = "Etiquettes"
App.SaveWorkspace
lpp = FeuilleSource.Range("I1").Value
nbepp = FeuilleSource.Range("I2").Value
' Recopie du template
FeuilleSource.Rows("7:" & (lpp + 6)).Select
Selection.Copy
Feuille.Range("A1").Select
ActiveSheet.Paste
App.SaveWorkspace
End Sub