Discussion :

[j0joo]

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.

[Kimy_Ire]

Salut j0joo,

Voici un petit exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Workbooks("Mon_fichier_cible.xlsx").Worksheets("Feuil1")
    .Range("F2:F8").Value = Workbooks("Mon_fichier_source.xlsx").Worksheets("Feuil1").Range("G2:G8").Value
End With

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

EDIT : inversion des plages source/destination.

[j0joo]

Merci Kimy_Ire

J'ai testé ta solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Workbooks.Open ActiveWorkbook.Path & "\" & "fichier.xlsx"
 
    With Workbooks("fichier.xlsx").Sheets("Feuil1")
        .Range("G2:G8").Value = Workbooks("fichier_destination.xlsx").Worksheets("Feuil1").Range("F2:F8").Value
    End With
 
    Workbooks("fichier.xlsx").Close

Je n'ai aucun message d'erreur mais dans mon fichier destination aucune valeur n’apparaît.

[Kimy_Ire]

... Euh...
Es-tu sûr de tes Ranges ?
Es-tu sûr du nom des tes feuilles, de tes classeurs, etc...

J'ai testé, ça fonctionne bien chez moi...

[casefayere]

Bonjour,

Une remarque en passant car kim a donné la solution mais dans quel fichier est écrit la procédure ? en effet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...With Workbooks("fichier.xlsx")...

les fichier "xlsx" ne contiennent pas de macro !

[j0joo]

La procédure est bien écrite dans un fichier .xlsm mais il est vrai que pour l'exemple de code j'ai renommé le fichier et écrit .xlsx

[j0joo]

J'ai trouvé la solution, le range ("G2:G8") était vide....

Du coup ça marche.

Merci de votre aide.