[XL-2013] Copie d'une WorkSheet (incluant un ListObject,..) dans un classeur d'une autre instance d'Excel

Option Explicit Sub test() On Error GoTo exit_sub Dim pApp As New Excel.Application pApp.Visible = True Dim pWorkBook As Workbook: Set pWorkBook = pApp.Workbooks.Add 'Sheet1 est la WorkSheet à copier du WorkBook de l'instance courante d'Excel contenant notamment le ListObject Sheet1.Copy pWorkBook.Worksheets(1) '<- ne fonctionne visiblement pas !! Debug.Print "ok" exit_sub: pApp.Quit Set pApp = Nothing End Sub

Citation:

Envoyé par Orbeaman

Bonjour,

Je n'ai pas vu l'intérêt de créer une nouvelle instance pour simplement dupliquer un onglet dans un nouveau fichier. Il vous suffit de réouvrir ce fichier avec votre nouvelle instance une fois créé.

Code:

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
 
Sub TestTransfertListObject()
 
Dim ShSource As Worksheet
Dim pWorkBook As Workbook
Dim pApp As Object
Dim Chemin As String, NomFichier As String
 
    On Error GoTo Exit_sub
 
    Chemin = ActiveWorkbook.Path
    NomFichier = "Test1.xlsm"
    Set ShSource = Sheets("Feuil1")
 
    ShSource.Copy
    Set pWorkBook = ActiveWorkbook
    With pWorkBook
         .SaveAs Filename:=Chemin & "\" & NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
         .Close
    End With
    Set pWorkBook = Nothing
 
    Set pApp = CreateObject("Excel.Application")
    With pApp
         .Visible = True
         Set pWorkBook = .Workbooks.Open(Filename:=Chemin & "\" & NomFichier)
         With pWorkBook
             ' Suite du programme.....
             '.....
              Debug.Print "ok"
              .Close savechanges:=True
         End With
 
     End With
 
 
    GoTo Exit_sub
 
Exit_sub:
 
    Set ShSource = Nothing
    Set pWorkBook = Nothing
 
    pApp.Quit
    Set pApp = Nothing
 
End Sub