Discussion :

[elclaquo]

Bonjour à tous
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[elclaquo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill chemin

[elclaquo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[elclaquo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"