XL 2019 copier/coller en valeur

[YohanSC]

Bonjour,

Une question par rapport à ce code, je souhaiterais copier coller en valeur mais je ne sais comment... avec .value ou Pastespecial?

Set wsCopy = Workbooks("ClasseurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("CalsseurB.xlsx").Worksheets("Données")
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A100:I100").Copy _
wsDest.Range("A" & lDestLastRow)


Merci de votre aide

Yohan

 

[Jacky67]

Bonjour,

Une question par rapport à ce code, je souhaiterais copier coller en valeur mais je ne sais comment... avec .value ou Pastespecial?

Set wsCopy = Workbooks("ClasseurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("CalsseurB.xlsx").Worksheets("Données")
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A100:I100").Copy _
wsDest.Range("A" & lDestLastRow)


Merci de votre aide

Yohan

Bonjour,
La copie devra se faire sur 2 lignes distingues
Dans cet exemple==> Colle la valeur est le format des nombres

wsCopy.Range("A100:I100").Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

NB: Attention de ne pas <caller la soeur> 😇 avec "CalsseurB.xlsx"

 

[YohanSC]

Bonjour,
La copie devra se faire sur 2 lignes distingues
Dans cet exemple==> Colle la valeur est le format des nombres

wsCopy.Range("A100:I100").Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

NB: Attention de ne pas <caller la soeur> 😇 avec "CalsseurB.xlsx"

Super merci
😁