Re : Creation d'un nouveau Classeur et copie d'un onglet
Bonjour,
Problème avec la dernière section de ton code.
Pourquoi veux-tu créer une seconde instance d'Excel avec : Set xlApp = CreateObject("Excel.Application")
Dans ton code, le nom de la feuille "CAUSE" est écrit avec un S et sans S. Quel est le vrai nom?
Quelque chose comme ceci devrait être suffisant. Les variables sont habituellement déclarées
dans le haut de la procédure...
'Creation New File Fournisseur
Dim XlBook As Workbook
Dim xlData As Worksheet
Dim NewFile As String
Set XlBook = Workbooks.Add
NewFile = "LOB_" & strCustomerFileName & "_" & strCustomerFactoryName & ".xls"
XlBook.SaveAs (pstrPathExport & NewFile)
Set xlData = XlBook.Worksheets(1)
xlData.Name = "DATA"
xlBookSrc.Sheets("Causes").Copy _
before:=XlBook.Sheets(2)