XL 2010 Erreur 13, incompatibilité de type

[saggigo]

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

 

[JBARBE]

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

Bonjour à tous,
peut-être ceci :
dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
dlc = .Range("C" & Rows.Count).End(xlUp).Row + 1
dlk = .Range("K" & Rows.Count).End(xlUp).Row + 1
.Range("A" & dl) = Client
.Range("B" & dlc) = Référence
.Range("C" & dlk) = Remise
.Range("D" & dlk) = Montantremise
.Range("E" & dlk) = Montant
.Range("G" & dlk) = Jour
.Range("H" & dlk) = Qui

Cependant je suis intrigué par ces mêmes cellules référencées K !!!!
Remise = .Range("K65")
Montantremise = .Range(K65)
Montant = .Range("K66")
Jour = CDate(.Range("K9"))
Qui = .Range("K8")
Bonne journée !

 

[pierrejean]

Bonjour Saggigo

Sur quelle ligne l'erreur
Quoi En K9 ?

Edit Bonjour JBARBE

 

[saggigo]

Bonjour pierrejean,
Je te remercie pour ta réponse, pour répondre à ta question, le truc est que je ne sais pas ou est l'erreur. je sais juste qu'il y a un problème de compatibilité de type

 

[pierrejean]

Et tu ne sais pas ce qu'il y a en K9 ????

 

[saggigo]

Ah ok desolé j'avais pas compris, en fait K9 revient a une cellule contenant une date et une heure

 

[pierrejean]

Re
teste en supprimant
Dim Client As String, Référence As String, Remise As Double, Montant As Double, Jour As Date, Qui As String

 

[JBARBE]

Bonjour pierrejean, Bonjour à tous,
Je rejoins pierrejean pour demander qu'elle est La ligne qui est surbrillée
Car dans ce message d'erreur il y a bien une ligne en surbrillance !
Merci et bonne journée !

 

[saggigo]

Range(K65)

C'est bon, je viens de me rendre compte que j'avais oublié les "" à la ligne :

Montantremise = .Range(K65)

Merci beaucoup pour tout