Discussion :

[ogenki]

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

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open(Filename:="C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i)).Worksheets(1).Range("A1:N6").Copy Destination:=Workbooks("test2").Worksheets(1).Cells(lastline, 1)

[Pierre Fauconnier]

Bonjour

Comme tu tentes dans ton code de sélectionner des cellules, il faut bien que le classeur source soit actif...

En utilisant un objet de type Workbook, tu peux t'inspirer du code suivant pour rendre la copie invisible:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copie()
    Dim wb_Source As Workbook
 
    Application.Screenupdating = False
 
    Set wb_Source = Workbooks.Open("c:\données\source.xls")
    ActiveWindow.Visible = False
 
    wb_Source.Worksheets("feuil1").Range("a1:a3").Copy _
        Destination:=Workbooks("cible.xls").Worksheets("feuil2").Range("b3")
 
    Application.Screenupdating = True
 
End Sub

Attention, ton classeur source est toujours ouvert après cette opération. Il faut évidemment adapter les données relatives aux feuilles et cellules...

Ok?

Pierre Fauconnier

[ouskel'n'or]

Sinon, on peut parfaitement travailler sur la "feuille" et la masquer. Le select ne pose alors pas de pb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Worksheets("Feuil1").Visible = False

Essai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Worksheets("Feuil1").Visible = False
    Worksheets("Feuil1").Activate
    Worksheets("Feuil1").Cells(1, 1).Value = "Bonne année"
    Worksheets("Feuil1").Cells(1, 1).Select
    MsgBox Cells(1, 1).Value
    Worksheets("Feuil1").Visible = True

A+