"CurrentRegion" Pas tout compris.

[Quaisako]

Bonsoir le Forum,

Ce petit code me permet de (copier-coller ) de la Feuil1 d'un Classeur X
vers le Classeur (Réception).

Sub Copie()

Worksheets("Feuil1").Activate
ActiveCell.CurrentRegion.Select
ActiveCell.CurrentRegion.Copy
ChDir "C:\WINDOWS\Bureau"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\Réception.xls"
ActiveSheet.Paste
Range("A1").Select
Windows("Réception.XLS").Activate
Application.CutCopyMode = False
Range("A1").Select
Windows("Réception.XLS").Close

End Sub

Comment faire pour que ne soient prises en compte que les colonnes A et B de la feuil1? même si je mets des données dans les colonnes C, D, E......

Merci d'avance Quaisako

 

[Mytå]

salut Quaisako

essaye ceci

Sub Copie()

Worksheets("Feuil1").Activate
Columns("A:B").Select
Selection.Copy
ChDir "C:\WINDOWS\Bureau"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\Réception.xls"
Range("A1").Select
ActiveSheet.Paste
Windows("Réception.XLS").Activate
Application.CutCopyMode = False
Range("A1").Select
Windows("Réception.XLS").Close

End Sub


Mytå

 

[Quaisako]

ReBonsoir à tous,

Merci Mytå!, c'est parfait.

A la prochaine Quaisako