Squoltahthx94
XLDnaute Occasionnel
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 ).
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
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 ).
Code:
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