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)