remplir comboxbox

[winieloursonaub]

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é.

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 Sub

winnie

 

[nat54]

Re : remplir comboxbox

Bonjour,

L'erreur 9 se situe à quelle ligne ?

ps : au tout début de la macro, Private

 

[winieloursonaub]

Re : remplir comboxbox

Pas du tout c'est lorsque que je veux cliquer sur un bouton qu'elle apparait et qu'elle me met l'erreur à userform.show

Alors que si je met pas l'activation de la combobox cela fonctionne très bien.

winnie

 

[PascalXLD]

Re : remplir comboxbox

Bonjour

Il est ouvert ton fichier "prestataire bon.xls" ??

 

[winieloursonaub]

Re : remplir comboxbox

Slaut pascal 76,

non mon fichier n'est pas ouvert.

Winie

 

[winieloursonaub]

Re : remplir comboxbox

Non mon fichier n'est pas ouvert que faire alors ?

Merci de votre aide.

WINIE

 

[Bebere]

Re : remplir comboxbox

bonsoir le fil
le 13/9/2006 tu as une réponse comboavecado.xls
aub,essaye d'en tenir compte,si problème tu demandes
à bientôt
ps:une réponse c'est gentil et çà ne mange pas de pain