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