Coller une sélection après getopenfilename

Bonjour, je bloque sur un morceau de code :

Dim fichier as variant
Dim Monclasseur as workbook

Listefichier = application.getopenfilename_
(Filefilter:= " all file (.),.)

Activeworkbook.activesheet.range(« A8:L10000 »).clear

If listefichier<>false then

Set monclasseur = application.workbook.open(listefichier)

With monclasseur sheets(1)

Rows(« 1:5 »). Select
Selection.delete

With Monclasseur sheets(1)

Union(.columns(1),.columns(3),_
.columns(4),.columns(5),.columns(6),_
.columns(7),.columns(2),_
.columns(8)).copy

End with
End with

’ Le morceau de code ci-dessous pour coller ne marche pas. L’ordinateur réalise le copier mais ne comprend pas où coller. Je veux qu’il colle dans la feuille active à partir de la cellule A8, les colonnes copiées, dans le même ordre que demandé et de manière contiguë.

Thisworkbook.activesheet.range(« A8 »)._
Paste

Monclasseur.close

End If

End sub

Merci pour toute aide!
forum excel.xlsm (13,1 Ko)

1 « J'aime »

Rebonjour,
Voici une petite correction :
forum excel.xlsm (23,4 Ko)
Will-Fread

Merci mille fois pour ton aide. Cependant la copie se fait dans la cellule A1 même range(« A8 ») est désignée…

Ah j’ai fait une faute, j’ai copié au lieu de Couper :
Une petite correction :
forum excel.xlsm (23,9 Ko)
Will-Fread

C’est super ! Merci beaucoup

1 « J'aime »

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.