bonjour

j'avai un code comme sa
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Workbooks.Open Filename:= _
            "C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i)
            ActiveWindow.Visible = False
            Range("A1:N6").Select 'selection des cellules a copier
            Selection.Copy ' copie des cellules
            Windows("test2.xls").Activate ' active la fenetre de test2
            ActiveWorkbook.Worksheets(1).Activate 'active la fenetre de test2
            Range("A" & lastline).Select 'selectionne la dernier ligne
            ActiveSheet.Paste 'colle les cellules recuperées
qui devrais me permetre de copies des cellules d'un .xls a un autre...maisle fait de faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWindow.Visible = False
empeche la la copie ( si j'enleve cette ligne la copie marche sans probleme) auriez vous un solution pour copier sans etre visible?


merci