Copier coller entre classeurs ouverts

a26 · 19 Octobre 2016

Bonjour,
Récemment j'ai utilisé une macro de copier coller entre classeur trouvée sur le net. Pour des raisons pratiques, je souhaiterai que le collage se fasse uniquement en spécial valeur. Donc sans la mise en forme d'origine.
Pouvez-vous me guider dans la modification du code pour arriver à cette solution.
Merci à vous tous.
Cordialement,
a26

natorp · 19 Octobre 2016

Bjr a26

Sub Copie()
Application.ScreenUpdating = False
Workbooks("origine.xlsm").Sheets("données").Select
Range("B6:B256").Select
Selection.Copy

Workbooks("recep.xlsm").Sheets("mars").Activate
Range("E6:E256").PasteSpecial Paste:=xlPasteValues

Application.ScreenUpdating = True
End Sub

Cordialement, Gérard

Staple1600 · 19 Octobre 2016

Bonsoir à tous

On peut aussi faire comme cela

Code:

Sub Copie2()
Workbooks("recep.xlsm").Sheets("mars").Range("E6:E256").Value = Workbooks("origine.xlsm").Sheets("données").Range("B6:B256").Value
End Sub

ou en version un peu plus courte

Code:

Sub Copie3()
Workbooks("recep.xlsm").Sheets("mars").[E6:E256].Value = ThisWorkbook.Sheets("données").[B6:B256].Value
End Sub

a26 · 20 Octobre 2016

Bonjour natorp et Staple 1600,
Je viens ce matin de découvrir vos réponses car j'ai du m'absenter hier après midi.
Vos solutions fonctionnent à merveille.
Un grand merci à vous deux.
Cordialement,
a26

Copier coller entre classeurs ouverts

a26

XLDnaute Occasionnel

Pièces jointes

natorp

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

Discussions similaires