Interaction entre deux fichiers excel

[awa123]

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")"

    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

 

[job75]

Re : Interaction entre deux fichiers excel

Bonjour awa123,

wb.Sheets.Add.Move After:=wb.Sheets(wb.Sheets.Count)

A+

 

[job75]

Re : Interaction entre deux fichiers excel

Re,

OK pour le Like (19h50), mais un petit merci fait plus plaisir.

A+

 

[awa123]

Re : Interaction entre deux fichiers excel

mille merci job75