Modifier code

Le code suivant me permet de copier le contenu d’une colonne dans une autre colonne dans un fichier différent. Le problème c’est que je souhaite copier/coller juste les valeurs et non pas les formules. Que dois ajouter au code? merci pour votre aide

Dim Fichier1

Fichier1 = Application.GetOpenFilename("Excel (*.xlsm), *.xlsm", , "a", , False)

If Fichier1 = False Then Exit Sub

Application.ScreenUpdating = False

With Workbooks.Open(Fichier1)

.Sheets("a").Range("A8", .Sheets("INV 1er semestre 2013").Range("A37")).Copy ThisWorkbook.Sheets("b").Range("A80")

.Close

End With

End Sub

Bonjour à toi aussi

A tester

Sub test()
Dim Fichier1
Fichier1 = Application.GetOpenFilename("Excel (*.xlsm), *.xlsm", , "a", , False)
If Fichier1 = False Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(Fichier1)
.Sheets("a").Range("A8", .Sheets("INV 1er semestre 2013").Range("A37")).Copy
  ThisWorkbook.Sheets("b").Range("A80").PasteSpecial Paste:=xlPasteValues
.Close
End With
Application.CutCopyMode = False
End Sub

Bonjour, merci pour votre réponse. Le soucis c'est quand j'ai modifié le code il me met erreur de compilation: attendu fin d'instruction .

Bonjour

En joignant ton fichier comportant l'erreur, cela serait plus facile de t'aider

Bonjour j'ai trouvé une autre formule, et ça marche. Merci pour votre aide

.Sheets("a").Range("A3", .Sheets("a").Range("A10")).Value = ThisWorkbook.Sheets("b").Range("A80")