Discussion :

[norgepagan]

J'essaye de recopier une plage de données depuis un autre classeur, mais j'ai une erreur a l execution ...

Code :

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

1
2
3
4
5
6
7
8
9
Dim wb As Workbook
        Dim ws As Worksheet
        Set wb = Workbooks.Open(nom, , True)
        Set ws = wb.Worksheets(1)
        ws.Range("A3:D8").Select
        Selection.Copy
        wb.Close
        Range("B15").Select
        ThisWorkbook.ActiveSheet.Paste

j'ai trouvé ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
      Dim wb As Workbook
        Dim ws As Worksheet
        Set wb = Workbooks.Open(nom, , True)
        Set ws = wb.Worksheets(1)
        ws.Range("A2:D8").Select
        Selection.Copy
        ThisWorkbook.Activate
        Range("B15").Select
        ActiveSheet.Paste
        wb.Close

ca marche mais si quelqu'un connait un meilleur truc je suis toute ouie

[kiki29]

Salut,sans select

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub Tst()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim sNom As String
 
    Application.ScreenUpdating = False
 
    sNom = ThisWorkbook.Path & "\" & "Classeur2.xls"
    Set Wb = Workbooks.Open(sNom, , True)
    Set Ws = Wb.Worksheets(1)
    Ws.Range("A3:D8").Copy ThisWorkbook.Worksheets(2).Range("B15")
    Wb.Close
 
    Application.ScreenUpdating = True
    Set Ws = Nothing
    Set Wb = Nothing
End Sub

[norgepagan]

bonjour,

l'utilisation d'un selec est pénalisante ?

[kiki29]

Salut,oui en terme de temps d'exécution et surtout ici il est inutile

[norgepagan]

Merci pour ta réponse, je change ca tout de suite

[el_slapper]

les set à nothing à la fin sont importants aussi, pour la suite des opérations. Ils permettent de libérer tes objets, et de ne pas encombrer.