bonjour
j'ai une macro toute simple :
a chaque execution "Selection.Paste" se termine en erreur 438 proprieté ou methode non geree par l'objet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub essai() ActiveSheet.Range("A5").CurrentRegion.Rows("2:" & ActiveSheet.Range("A5").CurrentRegion.Rows.Count - 1).Select Selection.Copy Workbooks.Open Filename:="D:\Documents\excel\autreclasseur.xls" Sheets(1).Select ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select Selection.Paste ActiveWorkbook.Save End Sub
je connais pas le VBA et je cherche a faire simple mais la je ne trouve pas ce qui va pas
Merci d'avance
Partager