Bonsoir,
je suis une débutante en VBA et j'ai besoin de votre aide
mon userform contient deux combobox, le premier est rempli des nom de classeurs existant dans mon répertoire et en fonction du classeur choisi par l'utilisateur je veux remplir l'autre combobox par les nom de feuilles correspondantes au classeur choisi.
Comment écrire le code du second combobox
svp c'est urgent
merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?jBp5rnD3O3
Dim repertoire Private Sub UserForm_Initialize() repertoire = ThisWorkbook.Path & "" ' adapter nf = Dir(repertoire & "*.xls") 'premier fichier xls Do While nf <> "" Me.ComboBox1.AddItem nf nf = Dir Loop Me.ComboBox1.ListIndex = 0 End Sub
Private Sub ComboBox1_Change() Set cnn = CreateObject("ADODB.Connection") Set cata = CreateObject("ADOX.Catalog") FichXLS = Me.ComboBox1 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & repertoire & FichXLS & ";Extended Properties=Excel 8.0;" Set cata.ActiveConnection = cnn Me.ListBox1.Clear For Each t In cata.Tables If InStr(1, Right(t.Name, 2), "$") > 0 Then Me.ListBox1.AddItem Replace(Replace(t.Name, "$", ""), "'", "") Next cnn.Close Set cata = Nothing Set cnn = Nothing End Sub
JB http://boisgontierjacques.free.fr/
On 26 sep, 22:44, hafida88 wrote:
Bonsoir, je suis une débutante en VBA et j'ai besoin de votre aide mon userform contient deux combobox, le premier est rempli des nom de cla sseurs existant dans mon répertoire et en fonction du classeur choisi par l'ut ilisateur je veux remplir l'autre combobox par les nom de feuilles correspondantes au classeur choisi. Comment écrire le code du second combobox svp c'est urgent merci d'avance
Bonjour,
http://cjoint.com/?jBp5rnD3O3
Dim repertoire
Private Sub UserForm_Initialize()
repertoire = ThisWorkbook.Path & "" ' adapter
nf = Dir(repertoire & "*.xls") 'premier fichier xls
Do While nf <> ""
Me.ComboBox1.AddItem nf
nf = Dir
Loop
Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Set cnn = CreateObject("ADODB.Connection")
Set cata = CreateObject("ADOX.Catalog")
FichXLS = Me.ComboBox1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
repertoire & FichXLS & ";Extended Properties=Excel 8.0;"
Set cata.ActiveConnection = cnn
Me.ListBox1.Clear
For Each t In cata.Tables
If InStr(1, Right(t.Name, 2), "$") > 0 Then Me.ListBox1.AddItem
Replace(Replace(t.Name, "$", ""), "'", "")
Next
cnn.Close
Set cata = Nothing
Set cnn = Nothing
End Sub
JB
http://boisgontierjacques.free.fr/
On 26 sep, 22:44, hafida88 <hafid...@domain-xyz.in> wrote:
Bonsoir,
je suis une débutante en VBA et j'ai besoin de votre aide
mon userform contient deux combobox, le premier est rempli des nom de cla sseurs
existant dans mon répertoire et en fonction du classeur choisi par l'ut ilisateur
je veux remplir l'autre combobox par les nom de feuilles correspondantes au
classeur choisi.
Comment écrire le code du second combobox
svp c'est urgent
merci d'avance
Dim repertoire Private Sub UserForm_Initialize() repertoire = ThisWorkbook.Path & "" ' adapter nf = Dir(repertoire & "*.xls") 'premier fichier xls Do While nf <> "" Me.ComboBox1.AddItem nf nf = Dir Loop Me.ComboBox1.ListIndex = 0 End Sub
Private Sub ComboBox1_Change() Set cnn = CreateObject("ADODB.Connection") Set cata = CreateObject("ADOX.Catalog") FichXLS = Me.ComboBox1 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & repertoire & FichXLS & ";Extended Properties=Excel 8.0;" Set cata.ActiveConnection = cnn Me.ListBox1.Clear For Each t In cata.Tables If InStr(1, Right(t.Name, 2), "$") > 0 Then Me.ListBox1.AddItem Replace(Replace(t.Name, "$", ""), "'", "") Next cnn.Close Set cata = Nothing Set cnn = Nothing End Sub
JB http://boisgontierjacques.free.fr/
On 26 sep, 22:44, hafida88 wrote:
Bonsoir, je suis une débutante en VBA et j'ai besoin de votre aide mon userform contient deux combobox, le premier est rempli des nom de cla sseurs existant dans mon répertoire et en fonction du classeur choisi par l'ut ilisateur je veux remplir l'autre combobox par les nom de feuilles correspondantes au classeur choisi. Comment écrire le code du second combobox svp c'est urgent merci d'avance