Discussion :

[Whivez]

Bonjour,

Premier post, premier problème...

Je vous explique mon problème:
J'ai un tableau Excel qui me permet de suivre l'avancement de réalisation mes outils mécanique.
Ce tableau répète certaines valeurs déjà rentré dans Access, dans une base de données.
J'aimerais récupérer ces données pour créer ma ligne de suivi en automatique (ou presque).

En gros:
Je sélectionne une case de mon tableau où j'écris le "n° de RunSheet".
Je lance ma macro qui fait ça:
- Copie de la valeur de la cellule (NRun)
- Recherche dans le fichier Access "Base outillages" et sur la table "Outillages"
- Copie de la valeur de la table outillage en colonne "Client" dont la valeur de la colonne "n° de RunSheet" = NRun
- Copie de la valeur de la table outillage en colonne "Vendeur" dont la valeur de la colonne "n° de RunSheet" = NRun

Je bute sur toute la partie Access car je n'y ai jamais fait de macro...
Je ne sais pas comment sélectionner mon fichier Access, que celui-ci soit ouvert ou pas
Je ne sais pas comment retrouver mes valeurs...

J'ai commencé avec ce code, mais malgré mes diverses recherche je n'ai rien trouvé pour résoudre ce soucis...

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
Sub recup_donnees()
''' Création le 15/03/2013 par Y. ARMAND '''
''''''''''''''''''''''
Dim NRun As String
Dim WkbSuivi As String
Dim ShSuivi As String
Dim CellSuivi As String
Dim Lcopie As Integer
Dim Ccopie As Integer
Dim CopClient As String
Dim CopVendeur As String
''''''''''''''''''''''
''''''''''''''''''''''
''' Début de macro '''
''''''''''''''''''''''
''''''''''''''''''''''
  ' Définition des noms
WkbSuivi = ActiveWorkbook.Name
ShSuivi = ActiveSheet.Name
CellSuivi = ActiveCell.Address
Lcopie = ActiveCell.Row
Ccopie = ActiveCell.Column
NRun = ActiveCell.Value
''''''''''''''''''''''
''''''''''''''''''''''
'Accès à la base Access
''''''''''''''''''''''
''''''''''''''''''''''
 
'Ouvrir la base de données
 
'Sélection de la table "outillage"
 
'Recherche de la ligne correspondant à NRun
 
'Copie de la valeur en Colonne "Client" correspondant à la ligne trouvé
'CopClient = valeur de la table outillage en colonne "Client" dont la valeur de la colonne "RunSheet" = NRun
'Copie de la valeur en Colonne "vendeur" correspondant à la ligne trouvé
'CopVendeur = valeur de la table outillage en colonne "Vendeur" dont la valeur de la colonne "RunSheet" = NRun
''''''''''''''''''''''
''''''''''''''''''''''
'Retour sur Excel
''''''''''''''''''''''
''''''''''''''''''''''
Windows(WkbSuivi).Activate
'Définition des noms
Range(CellSuivi).Select
'Collage des données collecté sur Access aux bons endroits
Cell(Lcopie, Ccopie + 1).Select
ActiveCell.Value = CopClient
Cell(Lcopie, Ccopie + 2).Select
ActiveCell.Value = CopVendeur
 
End Sub

Merci par avance pour votre aide...

[ffdream62]

A ta place, je créerais cette nouvelle ligne via Access.

L'intérêt :
- Tu peux faire une simple table liée avec ton fichier Excel
- Tu peux faire une requête en ne sélectionnant que les données qui t'intéressent
- Tu peux coller le résultat de cette requête dans le tableau Excel avec un code de 4 ou 5 lignes

Reste à savoir si c'est applicable dans ton cas bien sur.