Adaptation a un copier coller en valeur

[Chessnocoma]

Bonjour,

J'ai trouver et adapté une macro sympa, j'aurais aimer savoir comment faire en sorte que le copier coller ne se fasse pas en formule mais en valeurs, merci bien a vous.

le code est le suivant

Private Sub copiecollesave_Click()
Application.ScreenUpdating = False
Rep = "G:\AJ\Dossier de suivi\"
FichS = ActiveWorkbook.Name
FichD = "Visio+.xls"
Workbooks.Open Rep & FichD

With Workbooks(FichS)
Fichier = .Sheets("Récapitulatif").Cells(1, 1).Value
    If Dir(Rep & Fichier & ".xls") <> "" Then 'vérifie si la sauvegarde n'a pas déjà été effectuée
    MsgBox "La sauvegarde a déjà été effectuée"
    Exit Sub
    End If
        .Sheets("Récapitulatif").Range("A2:M5").Copy _
            Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0)
        Workbooks(FichD).Save
        Workbooks(FichD).Close
        MsgBox "Base de données alimenté"
        .Close
        
End With
Application.ScreenUpdating = True
            
End Sub

Merci encore a vous

 

[Gorfael]

Re : Adaptation a un copier coller en valeur

Salut Chessnocoma et le forum
Remplacer :

        .Sheets("Récapitulatif").Range("A2:M5").Copy _
            Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0)

par

        .Sheets("Récapitulatif").Range("A2:M5").Copy
        Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

A+