Bonjour,
Voila je souhaite dans le cadre d'un projet, pouvoir recuperer des données d
un fichier excel et les importer dans une base Access 97, le probleme c'est
lors de la connexion, Voila en esperant que vous puissiez m'aider car ca fait
quasiment deux nuit blanche de suite dessus et oui je sais je suis débutant.
Merci d'avance Voila mon code désolé de sa longueur dans le post, mais je
pense que vous allez mieux comprendre ce que je veux faire avec ca.




Col_Qte est un entier=2
Col_Ref est un entier=1
Qte est un entier
Ref est une chaîne="a"
Compt_rejet est un entier=0
Compt_insert est un entier=0
Compt_ligne est un entier=1
iDate est une Date= DateVersChaine(DateDuJour())
Chemin_fic est une chaîne= "C:\INVENTAIRE\" + Nom_Fic + ".xls"
Base_fic est une chaîne = Chemin_Base
IDXls est un entier
IDBase est un entier

// Connexion au fichier Excel
IDXls=xlsOuvre(Chemin_fic)
Ref=xlsDonnée(IDXls,Compt_ligne,1,Faux)
Info(Ref)

// Connexion à la base de données excel
Info(SQLConnecte(Base_fic,"","",Base_fic,"","provider=MICROSOFT.JET.OLEDB.4.0;DataSource="+Base_fic))

// Boucle de requete
TANTQUE Ref <> ""
Ref=xlsDonnée(IDXls,Compt_ligne,1,Faux)
Qte=xlsDonnée(IDXls,Compt_ligne,2,Faux)
SI Ref <> "" ALORS
SI SQLExec("INSERT INTO MouvementStock
(Type,CodeArticle,CodeDepot,Date,Quantite,TypeIdentifiant,CodeDevise) Values
('E','"+Ref+"','DP','"+iDate+"','"+Qte+"','E','E');","MaRequete")
Compt_ligne++ Compt_insert++ SINON
Compt_ligne++
Compt_rejet++
FIN
FIN
FIN

Info("Enregistrement Reussi. " + Compt_insert + "Enregistrement(s)." +
Compt_rejet + "Rejet(s)")