Copier/coller en valeur

Le 09/12/2021 à 16:29

Bonjour,

J'ai un soucis sur la macro suivante :

Sub Macro()

Dim date1 As Date
Dim x, y As Integer
x = 2
y = 1
Range("A6").Select    'sélectionner la cellule de début
Chemin = "T:\MARIN SIMONS\SERVICE QUALITÉ\MANAGEMENT QA\PROBLEM SOLVING\SUIVI DES FICHES D'ANOMALIE\"     'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xlsm") ' Premier fichier
Do While Fichier <> ""
    Workbooks.Open Filename:=Chemin & Fichier
    Range("B6:T200").Copy
    date1 = FileDateTime(Chemin & Fichier)
    ThisWorkbook.Activate
    ActiveSheet.Paste
    Windows(Fichier).Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Close savechanges:=False
    ThisWorkbook.Activate
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Fichier = Dir ' Fichier suivant
Loop

End Sub

Elle fonctionne parfaitement et me permets de réaliser une base de données à partir de x fichiers.

Le soucis c'est qu'elle colle les données avec leur formules et donc je perds des données. Pour remedier à ça je voudrais faire un copier/coller en valeur mais je n'y parviens pas.

J'imagine qu'il faut modifier :