Discussion :

[beaudet.pj]

Bonjour,

J'utilise le Pack Office Pro en version 2007.
Je cherche a développer des interactions entre EXCEL et ACCESS en utilisant le langage VBA (pas courant dans ce sens).

A partir d'EXCEL je renseigne une liste box dans un formulaire ACCESS, pour afficher lablel et zone texte "Gamme" il faut que je sorte de la liste box par la touche Entrée.

Comment remplacer ça par du VBA?



Merci d'avance,

P.Jean

[Invité]

Bonjour,
regarde ça: http://www.developpez.net/forums/d13...l/#post7173972

[beaudet.pj]

Merci pour votre message et votre réactivité,

Par contre je ne comprend pas comment répondre à ma question avec les éléments apportés.
J'ai légèrement modifié ma question en espérant qu'elle soit plus claire.

[Invité]

oui désolé erreur de lien.
je te donne le zip il contient la base Access dézip tout le répertoire sur ton disck

[beaudet.pj]

Si j'ai bien compris l'exemple envoyé en pièce jointe, il permet d'écrire avec Excel dans une Table Access.

SANS VBA / Quand je suis dans ACCESS et j'utilise mon formulaire si je sélectionne l'Action Export, j'ai le champ Gamme qui apparaît, sinon il est masqué.
AVEC VBA DEPUIS EXCEL / Voici comment je renseigne ma liste box Action :

Code :

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

1
2
3
'Renseignement du Formulaire par Edition
objAccess.DoCmd.GoToControl "Action"
objAccess.Screen.ActiveForm.Controls("Action") = "Exporter"

J'essai de rendre actif le champ Gamme pour pouvoir le remplir. En remplissant l'action en tapant Export et en réalisant Entrée je me suis rendu compte que le Champ Gamme devenait Actif.

[Invité]

dans cet exemple pour QQ1 du forum j'utilise une SUB pour renseigner une combobox!

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
Private Sub UserForm_Initialize()
OpenConnexion Fichier
ReseigneListe Cnx, Feuille, Me.ComboBox1
Cnx.Close
Set Cnx = Nothing
End Sub
 
Sub ReseigneListe(Cnx as object,Table As String, Champ As String, Lst As ComboBox)
Dim sql As String
Dim Rs As Object
Dim MySelect As String
sql = "select distinct  Frm." & Champ & " from [" & Table & "] as frm "
Set Rs = CreateObject("ADODB.RECORDSET")
Rs.Open sql, Cnx
Lst.Clear
If Rs.EOF = False Then
    Lst.ColumnCount = Rs.fields.Count
    Lst.BoundColumn = Rs.fields.Count
    Lst.List = Application.WorksheetFunction.Transpose(Rs.getrows)
    End If
Rs.Close
Set Rs = Nothing
End Sub