excelnewbie
XLDnaute Nouveau
Bonjour le forum,
Je suis actuellement en stage et je suis amené à réaliser un fichier excel qui sera sur un réseau.
Dans ce fichier figurera des listes déroulantes pour faciliter la saisie et éviter les erreurs. La base de données de ces listes est dans un autre fichier excel modifiable par un administrateur. J'ai trouvé un bout de code sur internet que j'ai joyeusement adapté à ma situation. J'ai crée mes listes avec chacune un nom, celle-ci sont en liaison avec le fichier fermé.
Donc à l'heure actuel, j'arrive à accéder à mon fichier fermé et à utiliser la liste déroulante. Jusque là tous va bien mais voici mon problème: dès que je ferme mon fichier avec mes listes déroulantes et que le ré-ouvre la liste déroulante est à nouveau vide. Je précise que j'ai de vague connaissance en programmation mais aucune en vba. Voici le code:
Sub MisejourCombobox()
Dim Chemin As String, fourniture As Variant, Nb As Long
Dim Conn As Connection, Rst As New ADODB.Recordset
Chemin = "C:\Mes Docs" 'À déterminer
'le nom du document exemple est Test.xls À déterminer
'la permière de la liste est une étiquette de colonne.
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Chemin & "\Bibliotheque.xls;" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""
'Ouvrir le "RecordSet" (Tableau des données) désiré.
Rst.Open "Select * from [fourniture]", Conn, adOpenKeyset, adLockOptimistic
Nb = Rst.RecordCount
fourniture = Rst.GetRows
Worksheets(2).ComboBox13.Clear
For b = 0 To Nb - 1
Worksheets(2).ComboBox13.AddItem fourniture(0, b)
Next
Conn.Close
Set Rst = Nothing: Set Conn = Nothing
Worksheets(2).ComboBox13.Value = ""
'End If
End Sub
Voila, je dois dire que je ne comprends pas toutes les lignes de ce codes, donc peut etre que la solution est évidente.
Merci d'avance.
Cordialement,
Je suis actuellement en stage et je suis amené à réaliser un fichier excel qui sera sur un réseau.
Dans ce fichier figurera des listes déroulantes pour faciliter la saisie et éviter les erreurs. La base de données de ces listes est dans un autre fichier excel modifiable par un administrateur. J'ai trouvé un bout de code sur internet que j'ai joyeusement adapté à ma situation. J'ai crée mes listes avec chacune un nom, celle-ci sont en liaison avec le fichier fermé.
Donc à l'heure actuel, j'arrive à accéder à mon fichier fermé et à utiliser la liste déroulante. Jusque là tous va bien mais voici mon problème: dès que je ferme mon fichier avec mes listes déroulantes et que le ré-ouvre la liste déroulante est à nouveau vide. Je précise que j'ai de vague connaissance en programmation mais aucune en vba. Voici le code:
Sub MisejourCombobox()
Dim Chemin As String, fourniture As Variant, Nb As Long
Dim Conn As Connection, Rst As New ADODB.Recordset
Chemin = "C:\Mes Docs" 'À déterminer
'le nom du document exemple est Test.xls À déterminer
'la permière de la liste est une étiquette de colonne.
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Chemin & "\Bibliotheque.xls;" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""
'Ouvrir le "RecordSet" (Tableau des données) désiré.
Rst.Open "Select * from [fourniture]", Conn, adOpenKeyset, adLockOptimistic
Nb = Rst.RecordCount
fourniture = Rst.GetRows
Worksheets(2).ComboBox13.Clear
For b = 0 To Nb - 1
Worksheets(2).ComboBox13.AddItem fourniture(0, b)
Next
Conn.Close
Set Rst = Nothing: Set Conn = Nothing
Worksheets(2).ComboBox13.Value = ""
'End If
End Sub
Voila, je dois dire que je ne comprends pas toutes les lignes de ce codes, donc peut etre que la solution est évidente.
Merci d'avance.
Cordialement,
