VBA Excel: problème avec xlDown urgebt!

Laokhao Messages postés 1 Statut Membre -  
 Utilisateur anonyme -
Bonjour à tous,
je suis débutant en VBA et j'ai un problème dans mon code. Je cherche a venir recopier les données se trouvant sur différentes sheet excell d'un dossier et de les placer les une en dessous des autres dans une page d'un autre fichier. Voici le début de mon code. Mon problème se situe au niveau du Activecell.Offset, est ce que qq un saurait m'aider???

Sub Consolid()
'

Dim n As Integer
Dim WW As String

n = 1

Workbooks.Open Filename:="Q:\RPA\Conso.xls"

Do While n <= 200

WW = "Sheet" & n

Windows("Conso.xls").Activate
Worksheets(WW).Select
Range("A5:N1004").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Consolidation2.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Windows("Consolidation2.xls").Activate
Workbooks("Consolidation2.xls").Worksheets("Sheet1").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

ActiveSheet.Paste

Windows("Conso.xls").Activate
Worksheets(WW).Select
Range("A5:N1000").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Consolidation2.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. Utilisateur anonyme
     
    Bonjour,

    Attention, je n'ai pas testé, j'ai modifié ce qui me semblait pas clair !

    Si j'ai omis une section, vous n'aurez qu'a la rajouter !
    [ Range("A5:N1000").Select ] ou [ Range("A5:N1004").Select ] ??? 

    Option Explicit

Sub Consolid()

    Dim n As Integer
    Dim WW As String

    Application.ScreenUpdating = False

    n = 1
    Workbooks.Open Filename:="Q:\RPA\Conso.xls"
    Do While (n <= 200)
        WW = "Sheet" & n
        Sheets(WW).Select
        Range("A5:N1004").Select
        Selection.Copy
        Windows("Consolidation2.xls").Activate
        Sheets("Sheet1").Select
        Range("A" & Range("A1:A65536").End(xlDown).Row).Select
        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Windows("Conso.xls").Activate
    Loop

    Windows("Conso.xls").Activate
    Range("A1").Select
    Application.ScreenUpdating = True

End Sub
'

    Lupin
    1