Discussion :

[Kyndred40]

Bonjour,

Excusez-moi du titre peu représentatif, je vais essayer de vous détaillé mon problème.
J'ai donc un fichier Excel avec de très nombreuses référence environ 1000, chacun de ces références possède une valeur qui correspond à son poid (en Mètre linéaire).
Sauf que moi j'aimerai me servir de ces références sur ma BDD Access afin de faire des calculs à partir du poid ...
En gros mon calcul serait cela = Poid au mètre linéaire * Longueur * PrixAlu (Longueur et PrixAlu sont dans ma BDD dans une table nommé EnAttPlanification)
J'ai pleins d'enregistrement dans cette table EnAttPlanification dans lesquels il y a a chaque fois une référence qui correspond à la référence contenue dans le fichier Excel.

Donc moi j'ai au début eu comme idée de déclarer chaque variable comme un nouveau champ dans ma table (mauvaise idée... créer plus de 1000 champs)
2ème idée tout faire en VBA directement : je me suis dis je vais copié coller toute les références et les déclarer comme des variables hors je pense que plus de 1000 variables on va avoir un problème

Je viens donc vous demandé si vous aviez une idée vers laquelle me dirigé afin de mener à bien ceci. ?

Merci par avance de votre aide.
Cdlt

[Kyndred40]

Quelques précision la référence dont je parle est contenue dans un champ nommé NumArticle (exemple: AE10502LA4100) ici la référence est AE10502 et son poid au mètre linéaire est 0,714.
Donc le calcul serait ici 0.714 * 4.1 * 4.63 = 13.55
Seulement je me rend compte que quand le calcul va se faire comment faire pour qu'il aille chercher la bonne valeur correspondant bien à la référence contenue dans NumArticle ?

Le code pour ne garder que la référence contenue dans NumArticle est :

Code :

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

1
2
3
4
extraitD = Right(rst.Fields("NumArticle"), 6)
extraitG = Left(rst.Fields("NumArticle"), InStr(rst.Fields("NumArticle"), extraitD) - 1)
 
DoCmd.OpenForm "F_Surplus3", , , "NumArticle Like '" & extraitG & "*'"

Ces un morceau de code me permettant de faire un tri mais ces pour montrer que je possède déjà la partie me permettant de ne garder que la référence du champ.

Dans l'idée ce serait :
Etape 1: On récupère la référence dans une variable nommé Ref
Etape 2: On récupère la valeur (Poid mètre linéaire) correspondant à cette Ref (Etape1)
Etape 3: Valeur de la Ref * Longueur * PrixAlu

[loufab]

Bonjour,

Pourquoi pas simplement une table Références ?

Cordialement,

[Kyndred40]

Bonjour,

Ha par exemple une table ou je rentre toutes les références et les valeurs de ces mêmes référence ?

Cdlt

[loufab]

En effet il vaut mieux utiliser une table (ou au moins un source de données).
3 colonnes
Reference, Poids

Puis avec un dlookup(), un requête ou un recordset (suivant ton ihm) tu vas chercher ce qu'il te faut dans la table.

Si le fichier Excel est mis à jour (sauf structure des colonnes) tu peux directement taper dedans à l'aide d'une liaison (comme une table liée mais avec un fichier Excel), tu peux utiliser également un recordset directement sur la feuille (plus compliqué) ou encore faire un import à la demande.

Cordialement,

[Kyndred40]

Re,

Merci bien pour ces pistes je vais essayer de trouver une manière de faire ça.

[Kyndred40]

Re,

J'ai réussi !
En premier lieu j'ai créer un champ Ref dans lequel j'ai isolé juste la Référence puis après grâce à cette même référence avec un DLookUp je vais chercher la valeur qui correspond à cette référence.
J'ai ce code là pour réaliser ce que je veux puis pour finir un champ calculé basique.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub Exporter_Click()
 
Dim base As Database
Dim SQL As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String, extraitD As String, extraitG As String
Dim Valeur As String
Dim test
 
 
 
 
Set base = Application.CurrentDb
 
 
 
             LongueurCh = Right([NumArticle], 4)
 
 
                 Set dbs = CurrentDb
 
                strSql = "SELECT * FROM Commande " _
                & " WHERE Selection = True "
 
                Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
 
                extraitD = Right(rst.Fields("NumArticle"), 6)
                extraitG = Left(rst.Fields("NumArticle"), InStr(rst.Fields("NumArticle"), extraitD) - 1)
 
 
             test = DLookup("[PoidsTH]", "base", "[Référence] = '" & extraitG & "' ")
 
             CurrentDb.Execute "UPDATE Commande " & _
                               "SET Commande.PoidsTH = '" & test & "' Where Selection=True ;"
           ' MsgBox (test)
 
 
 
 
             CurrentDb.Execute "UPDATE Commande " & _
                               "SET Commande.Ref =  '" & extraitG & "'  Where Selection=True ;"
 
 
 
             CurrentDb.Execute "UPDATE Commande " & _
                               "SET Commande.Longueur = " & LongueurCh & " Where Selection=True ;"
 
 
 
 
 
DoCmd.RunSQL " INSERT INTO EnAttPlanification(NumOrigine,Numero,NumArticle,CodeVariante,DateCommande,DateLivDemander,QteManquante,QteRestante,QtePretDepart,PoidsManquant,Observations,NomDestinataire,NumDestination,Qte,Longueur,Ref,PoidsTH) " & _
             "SELECT   Commande.NumOrigine, Commande.Numero, Commande.NumArticle, Commande.CodeVariante, Commande.DateCommande, Commande.DateLivDemander, Commande.QteManquante, Commande.QteRestante, Commande.QtePretDepart, Commande.PoidsManquant, Commande.Observations, Commande.NomDestinataire, Commande.NumDestination, Commande.Qte, Commande.Longueur, Commande.Ref, Commande.PoidsTH  " & _
              "FROM Commande " & _
              "WHERE Selection=-1;"
 
DoCmd.RunSQL " DELETE FROM Commande " & _
             " WHERE Selection=-1;"
 
 
base.Close
 
Me.Requery
Me.Refresh
 
 
End Sub

Merci pour ton aide !