Copier le tableau des valeurs de cellule dans la plage VBA

Question

J'essaie de copier une feuille dans un nouveau classeur avec uniquement des valeurs et non des formules. J'ai besoin d'une colonne pour conserver les formules.

Ce n'est peut-être pas la meilleure méthode, mais j'essaie de copier les formules dans un tableau variant, puis de copier les valeurs, puis d'ajouter le tableau de formules à la nouvelle feuille de calcul. J'utilise le code suivant, mais une erreur est survenue. « Exécuter Erreur:. 1004 application définie ou objet erreur défini

Set wbNew = Workbooks.Open(NewName) 

Dim Colm As Variant 
Dim Frange As Range 

Colm = wbNew.Sheets(wsName).Range("F1:F100").Formula 

wbNew.Sheets(wsName).UsedRange.Value = wbNew.Sheets(wsName).UsedRange.Value 

Set Frange = wbNew.Sheets(wsName).Range("F1:F100") 

Set Frange = Frange.Resize(UBound(Colm), 1) 

Frange.Value = Colm 

Answer 1

Cela fonctionne pour moi:

Set wbNew = Workbooks.Open(NewName) 

Dim Colm As Variant 
Dim Frange As Range 

Set Frange = wbNew.Sheets(wsName).Range("F1:F100") 

Colm = Frange.Formula 

With wbNew.Sheets(wsName).UsedRange 
    .Value = .Value 
End With 

Frange.Value = Colm