[XL-2010] Interaction entre deux fichiers excel

Bonjour,

je voudrais qu'en fonction d'un nombre (calculé sur la feuille active) le code vba ouvrira un autre fichier excel et lui insérera des nouvelles feuilles , le problème est que le code suivant créer les feuille sur le fichier excel sur lequel il est et pas sur "Workbooks("Feuille de présence.xlsm")" là où j'ai précisé

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
    Sub generer_feuille_presence()
 
 
        Dim DernCol As Integer
        Dim wb As Workbook
        Dim ws As Worksheet
        Dim nombre As Integer
 
        With ActiveSheet
 
 
            Dercol = ActiveSheet.Cells(3, Cells.Columns.Count).End(xlToLeft).Column
 
 
            Set wb = Workbooks.Open("C:\Users\\Desktop\Feuille de présence.xlsm")
            Set ws = wb.Worksheets(1)
 
 
            For i = 3 To Dercol
 
                If .Cells(3, i) <> "" Then
 
                    Workbooks("Feuille de présence.xlsm").Sheets.Add.Move After:=Sheets(Sheets.Count)
 
                End If
            Next i
 
 
        End With
    End Sub

si vous pourriez m'aider

merci beaucoup