Blocage sur un "Coller"... VBA

[Kaizers]

Bonjour à tous,

J'ai un petit niveau sur VBA, mais la je vois pas ce qui cloche...

  Sheets("S1").Select
    Range("E2:BZ2000").Select
    Selection.ClearContents
    Application.Calculate
    Workbooks.Open (C9)
    Cells.Select
    Range("A2").Activate
    Selection.Copy
    Windows(C2).Activate
    Sheets("S1").Range("E2").Select
    Selection.Paste                     <==========ICI
    Application.DisplayAlerts = False
    Workbooks(C9).Close False
    Application.DisplayAlerts = True

J'ai même essayé avec Activesheet.paste mais rien n'y fait, ça bloque ici...

Merci pour votre aide

 

[youky(BJ)]

Re : Blocage sur un "Coller"... VBA

Bonjour Kaizers,
Un peu voisin
Pas besoin des select
Essaies ceci
Bruno

 Sheets("S1").Range("E2:BZ2000").ClearContents
    Application.Calculate
    Workbooks.Open (C9)
    Range("A2").Copy
    Windows(C2).Activate
    Sheets("S1").Range("E2").PasteSpecial
    Application.DisplayAlerts = False
    Workbooks(C9).Close False
    Application.DisplayAlerts = True