Remplir un champs d'un formulaire Access à partir d'un fichier Excel

Bonjour à tous :mrgreen:
Je me permets de vous solliciter en espérant que vous puissiez m'aider. Je suis assez nouveau en VBA, et j'aimerai pouvoir remplir un champs de mon formulaire Access (nommé PABX_type), grâce à une donnée contenue dans un fichier Excel (située en cellule A12). Le fichier excel est situé dans un dossier Mail, et j'aimerai qu'une fois la donnée exportée dans mon champs, enregistrer le fichier Excel dans un dossier nommé Sharepoint. Cependant, après 2 jours de recherches passés à décortiquer chaque site, je n'arrive toujours pas à réaliser cette action convenablement.

Voici mon tout dernier code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Public Sub getPABX_type()   Dim myRec As DAO.Recordset Dim xl As Excel.Application Dim xlsht As Excel.Worksheet Dim xlWrkBk As Excel.Workbook     Set xl = CreateObject("Excel.Applicatio n") Set xlWrkBk = GetObject("D:\Users\abouzid\Do cuments\Automation\Mail\Site1\ AG06W01A CHATEAUNEUF SUR LOIRE.XLS") Set xlsht = xlWrkBk.Worksheets(1)   Set myRec = CurrentDb.OpenRecordset("T_Con figuration")   If PABX_Type = "" Then 'Change la valeur du champs PABX_Type uniquement pour les sites où cette valeur n'a pas été renseignée myRec.AddNew myRec.Fields("PABX_Type") = xlsht.cells(12, "A") myRec.Update xl.Save ("D:\Users\abouzid\Documents\A utomation\Sharepoint\Site1\AG0 6W01A CHATEAUNEUF SUR LOIRE.XLS")   Else xl.Save ("D:\Users\abouzid\Documents\A utomation\Sharepoint\Site1\AG0 6W01A CHATEAUNEUF SUR LOIRE.XLS") xl.Delete ("D:\Users\abouzid\Documents\A utomation\Mail\Site1\AG06W01A CHATEAUNEUF SUR LOIRE.XLS") End If   Set xl = Nothing   End Sub

---

Merci infiniment pour votre aide, j'ai le sentiment d'avoir épuisé toutes mes ressources, et de n'avoir aucune autre piste à explorer...:help::merci:

SAlut,

sur quelle partie ca bloque ? la donnée de ta cellule A12 ou la partie sauvegarde ?

le xl.delete, c'est une invention ?

Citation:

---

Envoyé par Jean-Philippe André

SAlut,

sur quelle partie ca bloque ? la donnée de ta cellule A12 ou la partie sauvegarde ?

le xl.delete, c'est une invention ?

---

Salut

Merci pour ta réponse. J'avais jusqu'alors une erreur qui stipulait "odbc call failed", liée je pense au Rec.Update. Par hasard je l'ai supprimé et une nouvelle erreur a alors fait son apparition: Run time error 1004 : "Save method of Application class failed" qui pointe sur cette ligne

Code:

---

xl.Save ("D:\Users\abouzid\Documents\Automation\Sharepoint\Site1\AG06W01A CHATEAUNEUF SUR LOIRE.XLS")

---

.

Pour le delete, je souhaitais supprimer le fichier une fois l'info renseignée sur le champs, mais ça doit surement être maladroit.

Veuillez pardonner ma maladresse et mon manque de "professionnalisme" ^^

Save fonctionne sur un workbook,
delete n'existe pas directement, mais tu peux passer par un

Code:

---

Kill chemin

---

Citation:

---

Envoyé par Jean-Philippe André

Save fonctionne sur un workbook,
delete n'existe pas directement, mais tu peux passer par un

Code:

---

Kill chemin

---

---

J'ai essayé le save sur mon workbook au lieu de l'objet xl, ça me retourne l'erreur "Wrong number of arguments or invalid property assignment"

Pour ce qui est du delete, j'abandonne la possibilité de supprimer le fichier pour le moment, je préfère m'assurer que le parsing fonctionne.

Merci encore @Jean-Philippe André ;)

Après avoir passé une journée supplémentaire sans trouver de solution, j'ai décidé de simplifier le code au cas où certains éléments interagissaient "mal" avec le code
Cependant, je n'obtiens pas de résultat concluant. En fait, le plus gros problème se situe au niveau du Update: Ayant lié mes requêtes et mes formulaires à des tables distantes (sur serveur SQL) via une connection ODBC, c'est cette dernière instruction qui pose problème et qui renvoi l'erreur "ODBC call failed"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Function getPABX_type() As String   Dim myRec As DAO.Recordset Dim xl As Excel.Application Dim xlsht As Excel.worksheet Dim xlWrkBk As Excel.workbook       Set xl = CreateObject("Excel.Application") Set xlWrkBk = GetObject("D:\Users\abouzid\Documents\Automation\Mail\Site1\AG06W01A CHATEAUNEUF SUR LOIRE.XLS") Set xlsht = xlWrkBk.Worksheets(1)     Set myRec = CurrentDb.OpenRecordset("T_Configuration", dbOpenDynaset, dbSeeChanges)     myRec.AddNew myRec.Fields("PABX_type") = xlsht.cells(12, "A") myRec.Update     End Function

---

J'ai également testé le même code dans une copie de ma base qui contient des tables locales, mais une autre erreur pop et m'indique que je dois "enter a value in the "T_Configuration.ID_XYZ" field"