'Requete pour recuperer les infos client
sSQL_Datacustomer = "SELECT ECCTCODE, ECCTNOM, ECCTRUE1, ECCTRUE2, ECCTCP, ECCTVILLE, ECCTPAYS, ECCTNOMLIV, ECCTRUE1LI, ECCTRUE2LI, ECCTCPLIV, ECCTVILLIV, ECCTPAYSLI, ECCTDERBL, ECCJCRE FROM EEXPCLI WHERE ECKTSOC='999' AND ECCTDERFA='" & NumeroDeFacture & "'"
'Lancement de la requete vers le server (execution)
Rst_Datacustomer.CursorLocation = adUseClient
Rst_Datacustomer.Open sSQL_Datacustomer, Connection_Base, adOpenStatic, adLockOptimistic, adCmdText
numcli = Rst_Datacustomer(0)
nomduclient = Rst_Datacustomer(1)
AddressCli1 = Rst_Datacustomer(2)
AddressCli2 = Rst_Datacustomer(3)
PostalCodeCli = Rst_Datacustomer(4)
CityCli = Rst_Datacustomer(5)
CountryCli = Rst_Datacustomer(6)
NomLiv = Rst_Datacustomer(7)
Adresse1Liv = Rst_Datacustomer(8)
Adresse2Liv = Rst_Datacustomer(9)
CodePostaleLiv = Rst_Datacustomer(10)
VilleLiv = Rst_Datacustomer(11)
CountryLiv = Rst_Datacustomer(12)
NumBL = Rst_Datacustomer(13)
DateFacture = Rst_Datacustomer(14)