M
modus57
Guest
Bonsoir le forum
Je souhaiterais copier les cellules A1:E2 depuis la cellule active du classeur actif puis ouvrir le classeur TEST et coller dans la dernière cellule non vide de la colonne C + 1 ligne et décaler 2 colonnes vers la droite
La procédure ci-dessous ne fonctione pas elle se bloque sur ActiveSheet.Paste
Pouquoi !!!!!
Sub copiercoller()
Application.ScreenUpdating = False
ActiveCell.Range('A1:E2').Select
Selection.Copy
Workbooks.Open Filename:= 'C:\\Documents and Settings\\AllUsers\\Documents\\TEST.XLS'
Range('C65536').End(xlUp).Offset(1, -2).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Qui pourrait m'aider, merci d'avance à +
Je souhaiterais copier les cellules A1:E2 depuis la cellule active du classeur actif puis ouvrir le classeur TEST et coller dans la dernière cellule non vide de la colonne C + 1 ligne et décaler 2 colonnes vers la droite
La procédure ci-dessous ne fonctione pas elle se bloque sur ActiveSheet.Paste
Pouquoi !!!!!
Sub copiercoller()
Application.ScreenUpdating = False
ActiveCell.Range('A1:E2').Select
Selection.Copy
Workbooks.Open Filename:= 'C:\\Documents and Settings\\AllUsers\\Documents\\TEST.XLS'
Range('C65536').End(xlUp).Offset(1, -2).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Qui pourrait m'aider, merci d'avance à +