Discussion :

[patricktoulon]

bonjour a tous

je me pose une question
quelle est a la méthode (la plus sur , la moins gourmande , etc...) pour remplir une ComboBox dans mon classeur1 (dans un sheets) avec un tableau structuré qui se trouve dans un fichier".xlsx" fermé

ce tableau est un listingclient (nom,prenom,raison social,adresse,etc......

cet ComboBox servirait a remplir une plage dans un sheets de mon classeur1
des idées?

[boisgontierjacques]

Bonjour,

On peut par ex utiliser ADO.
BD est le nom de la BD avec les en-têtes.

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()
  'Microsoft ActiveX  Data Object 2.8 doit être activé
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path
  fichier = "Article.xls"
  cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    répertoire & "\" & fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
  Set rs = cnn.Execute("SELECT code,designation,prix FROM BD WHERE code<>''")
  Me.ComboBox1.Column= rs.GetRows
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
  SendKeys "{F4}"
End Sub
 
Private Sub ComboBox1_Change()
  ActiveCell = Me.ComboBox1
  ActiveCell.Offset(, 1) = Me.ComboBox1.Column(1)
  ActiveCell.Offset(, 2) = Me.ComboBox1.Column(2)
  Unload Me
End Sub

Boisgontier

[patricktoulon]

merci jacques je vais tester

une question
le sendkeys"%F4" c'est pourquoi le close ne suffit pas ?

ps: ma ComboBox est comme je l'ai dit dans un sheets et non dans un userform

[patricktoulon]

re
ok bon je suppose que je dois modifier la ligne set rs=.....

et si la plage n'était pas un tableau structuré ?

[patricktoulon]

re
j'ai bien peur de ne pas être dans mon rayon le adodb c'est pas mon truc


mon fichier c'est listingclient.xlsx
le chemin c'est le même que le classeur 1
le tableau s'appelle Tableau2
les entêtes colonnes c'est
Colonne1, n°client, Nom & Prénom, Raison Sociale, Adresse, Adresse Suite, Code & Ville, telephone, mail

je ne pense pas que ca soit ca

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
Private Sub Workbook_Open()
'Microsoft ActiveX  Data Object 2.8 doit être activé
    Dim rs As Object, cnn As Object
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.RecordSet")
    répertoire = ThisWorkbook.Path
    Fichier = "listingclient.xlsx"
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
             répertoire & "\" & Fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
    Set rs = cnn.Execute("SELECT code,Colonne1,n°client,Nom & Prénom,Raison Sociale,Adresse,Adresse Suite,Code & Ville,telephone,mail FROM Tableau2 WHERE code<>''")
    Sheets(1).ComboBox1.Column = rs.GetRows
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    SendKeys "{F4}"
End Sub

[boisgontierjacques]

Il y a au moins une erreur,
Le nom de la BD doit comprendre les titres.
Tableau2 ne comprends pas les titres

Boisgontier

[Pierre Fauconnier]

Salut

Tu peux utiliser les outils d'importation de données de l'onglet Données. Ils permettent d'importer avec liaison les données d'un autre classeur sans aucune ligne de VBA:

• Importation directe;
• MS Query;
• PowerQuery.

Puis tu alimentes ta combo avec les données locales.

[patricktoulon]

bonsoir pierre

oui j'y ai pensé a querytable avec un sheets temporaire mais adodb.connection me permet d'envoyer directement dans la combo

question rapidité c'est nickel
reste a voir si après 2007 les règles n'ont pas changé que je soit pas obligé de tricoter
puissant ce moteur
je n'ai jamais voulu m'y essayer

me reste a comprendre la différence entre le code de base de jacques et de thumb down
pourquoi dans un bloc width le tableau est capté transposé et dans le model de jacques nikel avec le même code du sql

[patricktoulon]

re
ok a etre trop dessus j'ai pas vu la bourde j'utilisais ".list" dans l'un et ".column" dans l'autre
c'était en face moi depuis tout a l'heure

@thmb down :autant utiliser ".column" puisque la transposition de l'object recordset est pas possible

les deux écriture fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim Bd$,tablo
    Bd = ThisWorkbook.Path & "\listingclient.xlsx"
    Sheets(1).ComboBox1.Object.clear
    With CreateObject("ADODB.Connection")
        Sql = "select [n°client],[Nom & Prénom],[Raison Sociale],[Adresse],[Adresse Suite],[Code & Ville],[telephone],[mail] from 
[Liste client$]"
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
        tablo = .Execute(Sql).GetRows
        .Close
        Sheets(1).ComboBox1.Column = tablo
    End With
End Sub

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
Sub test2()
    Sheets(1).ComboBox1.clear
    Dim rs As Object, cnn As Object
    Set cnn = CreateObject("ADODB.Connection")
    'Set rs = CreateObject("ADODB.RecordSet")'latebinding resultat de Adodb.Connection
    Fichier = "listingclient.xlsx"
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
             ThisWorkbook.Path & "\" & Fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
    Set rs = cnn.Execute("select [n°client],[Nom & Prénom],[Raison Sociale],[Adresse],[Adresse Suite],[Code & Ville],[telephone],[mail] from 
[Liste client$]")
    Sheets(1).ComboBox1.Column = rs.GetRows
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    SendKeys "{F4}"
End Sub

donc si je comprend bien cette méthode créé un tableau transposé