XL 2010 Erreur 13, incompatibilité de type

saggigo à dit:

Bonjour l’équipe,
Voilà j'ai un problème avec une macro et je n'arrive pas a trouver la solution.
J'ai une macro et j'ai un défaut: Erreur 13, incompatibilité de type

Pourriez-vous s'il vous plait m'aider? voici la macro plus bas. je vous remercie beaucoup


'SAUVEGARDE DES DONNEES DANS LE TABLEAU "SYNTHSE DES OFFRES
Dim Wbk As Workbook, Chemin As String
Dim Client As String, Référence As String, Remise As Double, Montant As Double, Jour As Date, Qui As String

With ThisWorkbook.Sheets("PROFORMA") ' A ADAPTER
Client = .Range("A4")
Référence = .Range("C9")
Remise = .Range("K65")
Montantremise = .Range(K65)
Montant = .Range("K66")
Jour = CDate(.Range("K9"))
Qui = .Range("K8")
End With
Chemin = ThisWorkbook.Sheets("Parameters").Cells(5, 10).Value 'A ADAPTER
Set Wbk = Workbooks.Open(Chemin)
With Wbk.Sheets("Synthèse") 'A ADAPTER
dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & dl) = Client
.Range("B" & dl) = Référence
.Range("C" & dl) = Remise
.Range("D" & dl) = Montantremise
.Range("E" & dl) = Montant
.Range("G" & dl) = Jour
.Range("H" & dl) = Qui
End With

Cliquez pour agrandir...

saggigo à dit:

Range(K65)

Cliquez pour agrandir...