Bonjour,

J'utilise un morceau de code très pratique pour copier des colonnes d'un fichier vers un autre.Quand les cellules sources sont des valeurs ça fonctionne à merveille, par contre dès qu'il y a une formule, ça ne fonctionne pas du tout. comment faire pour qu'il ne prenne que les valeurs?

voici le code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim ShSource As Worksheet, ShCibleA As Worksheet, ShCibleB As Worksheet
 
Application.ScreenUpdating = False
 
Set ShSource = ThisWorkbook.Sheets("Feuil1")
 
Workbooks.Open Filename:="H:\TEST 3.xls"
Set ShCibleA = ActiveWorkbook.Sheets("LHV")
Set ShCibleB = ActiveWorkbook.Sheets("MRS")
 
ShSource.Range("A:A").Copy ShCibleA.Range("A1")
ShSource.Range("B:B").Copy ShCibleA.Range("B1")
 
ShSource.Range("A:A").Copy ShCibleB.Range("A1")
ShSource.Range("B:B").Copy ShCibleB.Range("B1")
 
Workbooks("TEST .xls").Close False
 
Application.ScreenUpdating = True

Merci d'avance