Transfert

[VeVe]

Bonjour le Forum

Voilà sur quoi je bloque.

Je fais une extraction dans un fichier des résultats sur des cellules non fusionnées et je fais un collage spécial ‘ seulement les valeurs ’ mais dans des cellules fusionnées et cela ne fonctionne pas ?

Je vous mets mon morceau de code

Sub transfert

Windows("xxxxxx.xls").Activate
Range("F56:F58").Select
Selection.Copy
Windows("yyyyyyy.xls").Activate
Sheets("Lu").Select
Range("N57:O59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Application.DisplayAlerts = False
Workbooks("xxxxxx.xls").Close

End Sub

Merci pour votre aide

Salutations

VeVe

 

[Yeahou]

Bonjour Veve, le forum

essaie ce code, j'ai enlevé les sélections inutiles.

A+

Sub transfert

Windows("xxxxxx.xls").Activate
Range("F56:F58").Copy
Windows("yyyyyyy.xls").Activate
Sheets("Lu").Range("N57:O59").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Workbooks("xxxxxx.xls").Close false

End Sub

 

[VeVe]

Merci Yeahou

Super c'est mieux

VeVe