OVH Cloud OVH Cloud

Pb macro copier coller

2 réponses
Avatar
Micky
Bonjour à tous,

je viens soliciter de nouveau votre aide pour un prob tout simple je pense.
Je suis sous VB dans excel97, le but est de recopier le contenue d'une
feuille d'un classeur dans une autre feuille d'un autre classeur.
Procedure :
j'ouvre mon classeur A, jouvre mon classeur B, je copie ce qui m'interresse
dans le classeur B, je me remet sur le classeur A, je colle, je reviens sur
mon classeur B pour le refermer, et à chaque fois il faut une intervention
de ma part pour lui dire d'effacer le contenu du presse papier, c'est un
peut enervant surtout que j'enchaine une dizaine de classeur.

Comment eviter cette question ?

Merci d'avance
Micky

Pour info :

Workbooks.Open FileName:="\\X225\base\alainc\bd\bd.xls"

finselect = Range("A2").End(xlDown).Offset(0, 33).Address
Range("A2:" & finselect).Select
Selection.Copy
Windows("bd_totale.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Windows("bd.xls").Activate
ActiveWindow.Close

2 réponses

Avatar
Aurélien29
Bonjour

Workbooks.Open FileName:="X225basealaincbdbd.xls"

finselect = Range("A2").End(xlDown).Offset(0, 33).Address
Range("A2:" & finselect).Select
Selection.Copy
Windows("bd_totale.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Windows("bd.xls").Activate

Application.DisplayAlerts = False

ActiveWindow.Close

Application.DisplayAlerts = True

--
Aurélien29
Avatar
Micky
NIKEL,

merci

"Aurélien29" a écrit dans le message de
news:
Bonjour

Workbooks.Open FileName:="X225basealaincbdbd.xls"

finselect = Range("A2").End(xlDown).Offset(0, 33).Address
Range("A2:" & finselect).Select
Selection.Copy
Windows("bd_totale.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Windows("bd.xls").Activate

Application.DisplayAlerts = False

ActiveWindow.Close

Application.DisplayAlerts = True

--
Aurélien29