Exportation de la valeur de cellules

[alaumajo]

Bonsoir a tous,

Mon problème du moment est l'exportation des valeurs de 3 cellules dans un autre classeur. J'ai trouvé sur le forum ce code :

D2 = Replace(ActiveWorkbook.Path, "Dossier A", "Dossier B\")
Set Source = Range(Cells(ActiveCell.Row, 4), Cells(ActiveCell.Row, 6))
Set Desti = Workbooks.Open(D2 & "NomDuClasseur.xlsm")
Source.Copy Desti.Sheets(1).Range("H65536").End(xlUp)(2)

Une fois adapter a ma situation le résultat est concluant a un détail près.
Le code exporte les cellules et pas simplement les valeurs de ces cellules.
Cela a des conséquences esthétiques sur mon classeur de destination et son impression.

J'ai tenté d’adapter le code pour ne récupérer que les valeurs mais sans résultat.

Une petite aide serai la bien venue 🙂

 

[Guest]

Re : Exportation de la valeur de cellules

Bonsoir,

Pas pu tester bien-sûr mais cela devrait le faire.

D2 = Replace(ActiveWorkbook.Path, "Dossier A", "Dossier B\")
Set Source = Range(Cells(ActiveCell.Row, 4), Cells(ActiveCell.Row, 6))
Set Desti = Workbooks.Open(D2 & "NomDuClasseur.xlsm")
Desti.Sheets(1).Range("H65536").End(xlUp)(2).Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

A+

 

[alaumajo]

Re : Exportation de la valeur de cellules

Résultat parfait Hasco,
Merci beaucoup
Bonne continuation