Copier collersans la mise en forme source

[jean_michel_drouet]

Bonjour,
je suis nouveau sur ce forum et j’aurais besoin d’aide sur un code que j’ai actuellement.

Mon code fonctionne mais je n’arive pas à garder la mise en forme de destination.
le but et de copier une valeurs dans une cellule d’un fichier fermer et de recopier dans le fichier ou j’ai macro mais en gardant la mise en forme de destination (valeur uniquement)et non la source.

Voici mon code

Sub Bouton1_Cliquer_RecupData()
Dim ChemGlobal As String, Wkb As Workbook
ChemGlobal = Range(« A1 »): Set Wkb = GetObject(ChemGlobal) 'chemin du fichier
Wkb.Sheets(« Rapport Semaine nuit »).Range(« F18 »).Copy Sheets(« Feuil1 »).Range(« F10 »)
Application.CutCopyMode = False
Workbooks(« Report.xlsm »).Save
Workbooks(« _RAPPORT QUOTIDIEN ATL10 (version 19).xlsm »).Close False
Range(« A1 »).Select
MsgBox « Récupération data réaliser! »
End Sub

Merci de vôtre aide

[FFO]

Bonjour
Changes ces lignes :

Wkb.Sheets(« Rapport Semaine nuit »).Range(« F18 »).Copy Sheets(« Feuil1 »).Range(« F10 »)
Application.CutCopyMode = False

Par celle-ci :

Sheets(« Feuil1 »).Range(« F10 »).Value = Wkb.Sheets(« Rapport Semaine nuit »).Range(« F18 »).Value

Si tu fais un copier/coller ressaisis les guillemets au clavier en les accolant à leur donnée sans espace avec

Essaies et dis moi

[jean_michel_drouet]

TOP!!! cela fonctionne à merveille merci beaucoup à vous.

[FFO]

Ravi que cela fonctionne comme attendu
N oublies pas de valider ma réponse un plus bien agréable
Au plaisir une prochaine fois