W
winieloursonaub
Guest
Bonjour
J'ai crée une userform avec une combobox qui doit se remplir avec des données d'un autre classeur. Les deux classeurs se trouvent dans le même dossier.
Mais mon code affiche une erreur 9. Merci de votre aide voici le code que j'ai utilisé.
winnie
J'ai crée une userform avec une combobox qui doit se remplir avec des données d'un autre classeur. Les deux classeurs se trouvent dans le même dossier.
Mais mon code affiche une erreur 9. Merci de votre aide voici le code que j'ai utilisé.
Code:
rivate Sub UserForm_Initialize()
Dim x
For x = 0 To Workbooks("Z:oloron\\Programme Illico\\Programme\\prestataires bon.xls").Sheets("prestatairebase").Range("E2").End(xlDown).Row
société.AddItem Workbooks("Z:oloron\\Programme Illico\\Programme\\prestataires bon.xls").Sheets("Prestatairebase").Cells(i, 5)
Next
For x = 0 To 50
If don.Cells(x + 5, 11) <> "" Then lot.AddItem don.Cells(x + 5, 11)
Next
For x = 0 To 5
If don.Cells(x + 5, 15) <> "" Then Etatdossier.AddItem don.Cells(x + 5, 15)
Next
cboDateAValider.AddItem ("Date de début")
cboDateAValider.AddItem ("Date de fin")
cboDateAValider.ListIndex = 0
Calendrier.Value = Date
Calendrier.SetFocus
End Subwinnie