Coller un tableau à la première ligne ligne

[Squoltahthx94]

Bonsoir le forum,

Je lance à partir d'un Userform la mise en place d'informations provenant de 3 reporting differents (Reporting 1, Reporting 2, Reporting 3) que je récupère dans un autre tableau ou je souhaite que les infos récupéré dans les 3 reporting vienne ce collez à la suite des une des autres (donc à la première ligne vide ).

Unload Me
Sheets("InFO").Select
 Range("D4").Select
    ActiveCell.FormulaR1C1 = "EN COURS"
    Range("D4").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Application.ScreenUpdating = False 'je en vois pas ce qui ce passe
Sheets("Interventions").Select
    Cells.Select ' je selectionne toute les cellules et je les vide 1ere ligne en dessous
    Selection.ClearContents
    Workbooks.Open Filename:= _
        "C:\Users\Reporting type 1.xlsx"        'copie reporting 1
    Range("A1:AL5000").Select
    Selection.Copy
    ActiveWindow.WindowState = xlMinimized
    Windows("SUIVI v1.2..xlsm").Activate
    ActiveWindow.WindowState = xlMaximized
    Sheets("Interventions").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveWindow.WindowState = xlMinimized
    Windows("Reporting type 1.xlsx").Activate
    ActiveWindow.Close
 Workbooks.Open Filename:= _
        "C:\Users\Reporting type 2.xlsx"        'copie reporting 2
    'Range("A2:AL5000").Select
    [B]Sheets("reporting des interventions 121").Range ("A2:al" & Feuil1.Range("A65536").End(xlUp).Row)[/B]
    Windows("suivi v1.2..xlsx").Activate
    Sheets("interventions").Range("a65536").End (xlUp)
    Selection.Copy
    ActiveWindow.WindowState = xlMinimized
    Windows("SUIVI v1.2..xlsm").Activate
    ActiveWindow.WindowState = xlMaximized
    Sheets("Interventions").Select
  ..............................................

mais apparement il bloque et m'indique que la propriété n'est pas gérée (ligne en gras, et je ne vois pas le problème.

Quelqu'un peu m'expliquez afin que je puisse réutilisé les 3,4 lignes suivantes pour recommencez avec l'autre reporting

 

[Squoltahthx94]

Re : Coller un tableau à la première ligne ligne

Bonjour,

Personne pour m'aidez ??