XlPaste

Bonjour,

J'utilise un code qui m'a été donné sur ce forum mais je rencontre un message d'erreur au moment d'arriver à la ligne

PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Voici le code en entier :

Sub Copier_Coller_ATLANTIQUESII()
Dim classeurSource As Workbook, classeurDestination As Workbook
Dim maintenant As Date
Dim date_to_compare As Date
Dim date_to_use As Date
Dim Chemin As String

With ActiveSheet
    .Range("B7:S1000").Delete
End With

maintenant = CDate(Format(Now(), "YYYY-MM-DD"))
Annee = Year(Now())
Mois = Month(Now())
date_to_use = maintenant
Annee_to_use = Year(date_to_use)
mois_to_use = Month(date_to_use)


Chemin = "W:\00-COMMUN\DD-TBM\03. DR Batiment Atlantique\00. Direction Régionale\06. Actualisation - Budget\" & Annee_to_use & "\2018 - 03"


Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open(Chemin & "\TdB Gestion DR BAT ATLANTIQUE" & ".xlsm*")
classeurSource.Sheets("2.1 Analyse SII DR").Range("B8:T300").Copy

With classeurDestination.ActiveSheet.Range("B7")
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.PasteSpecial Paste:=xlPasteFormats
End With

Application.DisplayAlerts = False
classeurSource.Close
Application.DisplayAlerts = True

End Sub

Merci pour votre aide.