Copier des valeurs de cellule et non les formules ...

JPD24

XLDnaute Nouveau
Bonjour à Tous,

Décidement j'ai du mal avec VBA ... J'ai écrit le code ci-dessous qui fonctionne mais me donne les formules contenues dans la plage source et non les valeurs .... Quelqu'un peut me donner un coup de main svp ... J'urge ! Merci d'avance,
JPierre
Sub CodifOp()
'
'a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".

'b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille
'"Patrimoine" du fichier "Opérations".

' CodifOpe Macro
Dim Wks As Worksheet
Dim LigneDestination As Long
Set Wks = ThisWorkbook.Sheets("Prospect")

'Ouverture du fichier destination
Workbooks.Open Filename:="X:\EROLA\Opérations.xlsx"


'Recherche de la première ligne vide Opérations
LigneDestination = Sheets("Patrimoine").Cells(Rows.Count, "B").End(xlUp).Row + 1
'Ecrire ligne sur Opérations
Wks.Range("AN7:BG7").Copy Sheets("Patrimoine").Range("B" & LigneDestination)
End Sub
 

Robert

XLDnaute Barbatruc
Repose en paix
Re : Copier des valeurs de cellule et non les formules ...

Bonjour JPD, bonjour le forum,

Essaie comme ça :

Code:
Wks.Range("AN7:BG7").Copy
Sheets("Patrimoine").Range("B" & LigneDestination).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG