Macro copier Coller valeur

Bonjour à tous,

J'ai la macro suivante qui me permet de Copier-Coller dans un autre fichier la dernière cellule vide de la feuille. Le problème c'est que je n'arrive pas à faire Copier Collage Spécial Valeurs.

Si quelqu'un pourrait me dire comment faire.

Merci de votre aide.

Sub MiseAjour()

    On Error GoTo ouvrirDoc
    With Workbooks("relevés de comptes.xlsm").Sheets("relevés")
        derDte = .Cells(Rows.Count, "A").End(xlUp).Value
        If derDte = Cells(2, "A").Value Then
            MsgBox "Les données du " & derDte & " ont déjà été reportées !", 16
            End
        Else
            Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy .Cells(Rows.Count, "A").End(xlUp)(2)
        End If
    End With
    MsgBox "Mise à jour effectuée avec succès !"
    Exit Sub
ouvrirDoc:
    MsgBox "Ouvrez le fichier ''relevés de comptes ''", 16
End Sub

Bonjour,

Tu peux remplacer la ligne de code

Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy .Cells(Rows.Count, "A").End(xlUp)(2)

par

Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy
.Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

A+

OK, çà marche.

Juste une autre question, j'aplique cette macro à un autre fichier qui a une extension .xls , mais le problème je dois cependant reconvertir ce fichier en extension qui prend en charge les macros pour que celà marche.

Est-il possible d'écrire dans la macro qu'elle prend tout type de fichier Excel ?

Merci à vous.