XL 2010 Erreur 13, incompatibilité de type

saggigo

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 !
 

Discussions similaires

Réponses
4
Affichages
585

Statistiques des forums

Discussions
312 938
Messages
2 093 765
Membres
105 815
dernier inscrit
Quentinhll