//Connexion par programmation via une liaison OLE DB EXCEL
//Variables de connexion
sNomConnexion est une chaîne = "CNX_Excel"
sTypeConnexion est une chaîne = "Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "D:\Mes Documents\Mes bases de données\Classeur1.xls"
sNomBase est une Source de Données = ""
sNomUtilisateur est une chaîne = ""
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""
SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
SI HOuvreConnexion(sNomConnexion) ALORS
HChangeConnexion(Client,"CNX_Excel")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN
|