Bonjour,

Je suis novice en vba et je souhaite réaliser un copier coller d'un classeur vers un autre pas de problème jusque la.

Je souhaiterai que ce copier coller se fasse en valeur. J'ai cherché sur le web une solution mais sans succès.

Voici mon code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub copie()
 
    Workbooks.Open ActiveWorkbook.Path & "\" "fichier.xlsx"
    Workbooks("fichier.xlsx").Sheets("Feuil1").Range("G2:G8").Copy Destination:=ThisWorkbook.Worksheets("Feuil1").Range("F2")
    Workbooks("fichier.xlsx").Close
 
End sub
J'ai essayé avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
PasteSpecial Paste:=xlPasteValues
Mais quand je le rajoute après

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Workbooks("fichier.xlsx").Sheets("Feuil1").Range("G2:G8").Copy Destination:=ThisWorkbook.Worksheets("Feuil1").Range("F2").PasteSpecial Paste:=xlPasteValues
J'ai une erreur d'instruction.

Merci.