collage avec macro impossible

[eduraiss]

Bonjour le forum
La macro ci-dessous me permet de couper la cellule acrtive, d'ouvrir unun classeur d'aller sur une feuille d'aller a la dernier cellule de la colonne M et de coller

Mon problème est que je n'arrive pas a coller

Merci de votre aide
Sub Macro2()

ActiveCell.Select
Selection.Cut
Application.CutCopyMode = False

Workbooks.Open Filename:= _
"C:\Documents and Settings\utilisateur\Bureau\GESTION EQUIPES1\BASE EQUIPES\DOUBLONS.xls"
Sheets("doublons atelier").Select


Columns(13).Find("*", , , , , xlPrevious).Offset(1, 0).Select

ActiveSheet.Paste
End Sub

 

[Pierrot93]

Re : collage avec macro impossible

Bonjour Eduraiss

essaye peut être comme ceci :

Sub test()
Dim x As Range
Set x = ActiveCell
Workbooks.Open Filename:= _
"C:\Documents and Settings\utilisateur\Bureau\GESTION EQUIPES1\BASE EQUIPES\DOUBLONS.xls"
Sheets("doublons atelier").Select
x.Cut
[B][COLOR="Red"]Columns(13).Find("*", , , , , xlPrevious).Offset(1, 0).Select[/COLOR][/B]
ActiveSheet.Paste
End Sub

pas testé, comprends pas trop ta ligne en rouge...

bon après midi
@+

 

[eduraiss]

Re : collage avec macro impossible

Re

Merci Pierrot93 c'est super

Cordialement