probleme de "coller"

Version imprimable

bonjour
j'ai une macro toute simple :
Code:

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
a chaque execution "Selection.Paste" se termine en erreur 438 proprieté ou methode non geree par l'objet.
je connais pas le VBA et je cherche a faire simple mais la je ne trouve pas ce qui va pas

Merci d'avance

28/04/2009, 16h20
DeaD78

Bonjour,

Remplace par

Code:

ActiveSheet.Paste

et dis-moi si ça marche.

Par contre tes

Code:

Select

sont assez compliqués. Que veux-tu exactement sélectionner ? Tu peux aussi les remplacer par des

Code:

Activate

.
28/04/2009, 16h23
Krovax
A mon avis cela vien du Userange qui selon moi n'a pas grand chose a faire ici
Essaye cette ligne

Code:

Workbooks("autreclasseur.xls").Sheets(1).Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Paste

A la place de
Code:

1 2 3 Sheets(1).Select ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select Selection.Paste
Au passage évite les select ca ralentie le code
Code:

1 2 XXX.select selection.YYYY
se remplace le plus souvent par

Code:

XXX.YYYY

bonjour addes DeaD78 Krovax le forum hormis les pb... de sélect et simplifications
pour que cela marche déja écris comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
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
 ActiveSheet.Paste
 Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

29/04/2009, 09h43
addes

tout ça est un peu flou pour moi mais effectivement deja en utilisant tout simplement le : ActiveSheet.Paste ça marche bien

apres j'ai pas chercher a automisé mon code.

le but de mon code et de selectionné les ligne d'un tableau de longueur variable commençant a la cellule A1 sans prendre la premiere ligne de titre et la derniere ligne de total pour copier le tout dans un autre fichier

merci a tous

Bonjour,
Tu n'a probablement pas controller la plage que tu copie ??
1°) tu commence par A5, donc je suppose que tu veux commencer la copie à partir de la ligne 5 ? or la sélection démarre à la ligne 2, mais ça n'est que supposition.
2°) Par contre la sélection de fin omet la dernière ligne.. Est-ce voulu ?
Et ci-dessous un code "optimiser" avec la plage de la ligne 5 à la dernière comprise.
Code:

1 2 3 4 5 6 7 8 Sub Essai2() Dim plage As Range Set plage = ActiveSheet.Range("A5").CurrentRegion.Rows("5:" & ActiveSheet.Range("A5").CurrentRegion.Rows.Count) Workbooks.Open Filename:="D:\Documents\excel\autreclasseur.xls" Sheets(1).Select 'au cas ou ce ne serait pas la 1 qui est active plage.Copy ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1) ActiveWorkbook.Save End Sub
A+

29/04/2009, 14h35
addes

j'ai pas essayé le code la et en plus je connais pas l'utilisation de page, par contre un truc me surprend:

Code:

ActiveSheet.Range("A5").CurrentRegion.Rows("5:" &..

bah si on fait ça on lui dit que la selection commence sur la region de la cellule A5 mais qu'on ne selection qu'a partir de la 5 eme ligne de cette region.

sinon en effet le but et de prendre la region englobant la cellule A5 sans prendre ni la premiere ni la derniere ligne, ce qui explique d'un coté le

Code:

"2:"

et de l'autre le

Code:

count +1

arrivé la j'ai fait 90 % du boulot mais un truc me chagrine: il arrive que dans ma region entre la ligne d'entéte et la ligne de totaux final j'ai des lignes vides lié au pré formatage model de la region, ya t'il une solution simple pour supprimé ses lignes vide afin de ne pas les avoir dans le compte rendu?

ps: pour ce qui veulent se faire une image, imaginé un formulaire excel de commande, dans la page ya un tas d'info, la on s'interrense qu'a la parti details des achats, on copie tout les lignes saisie par l'utilisateur pour le reporté dans un fichier qui repertorie toute les commandes passé (donc sans la lignes d'entéte et sans la ligne total de chaque client)