Passage d'un paramètre excel.workbook à un userform

Code:

---

1 2 3 4

Public datasource sub monprogramme () Dim datasource As Excel.Workbook Set datasource = Workbooks.Open("S:\SAT-DOC\macros\Données pour macros\Données_fiches-maintenance.xls")

---

Dans 'monprogramme' je peux utiliser sans autres la variable 'datasource':D
Par ex:

Code:

---

Cells(Index, 1).Value = datasource.Worksheets("TXT").Cells(2, 3).Value

---

Par contre pas dans les userform :cry:
j'obtiens le message d'erreur
erreur d'exécution '424' objet requis
Je ne comprends pas pourquoi car j'ai déclaré datasource 'public'

Bonjour,

Citation:

---

Par contre pas dans les userform
j'obtiens le message d'erreur
erreur d'exécution '424' objet requis
Je ne comprends pas pourquoi car j'ai déclaré datasource 'public'

---

Peux tu montrer, ce que tu veux faire et la ligne de code qui te renvoi cette erreur ?

Si je le programme ainsi, tout va bien:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_initialize() With ListBox1 compteur = 1 While Workbooks("Données_fiches-maintenance").Sheets("GROUPES").Cells(compteur, 1).Value <> "XXX" .AddItem Workbooks("Données_fiches-maintenance").Sheets("GROUPES").Cells(compteur, 1).Value compteur = compteur + 1 Wend End With ListBox1.ListIndex = 0 ListBox1.MultiSelect = fmMultiSelectSingle End Sub

---

Par contre si je mets

Code:

---

1 2 3

While datasource.Sheets("GROUPES").Cells(compteur, 1).Value <> "XXX" .AddItem datasource.Sheets ("GROUPES").Cells(compteur, 1).Value

---

j'obtiens le message d'erreur 424

Tu ne peux pas utiliser des variables public avec un userform je croix, donc soit tu remets dans le userform

Code:

---

set datasource=...

---

Soit tu fait comme tu l'as ecrit.

Mais je peux me tromper

Bonjour,

Tu déclare ta variable 2 fois en public et dim => les portées ne sont pas les mêmes ton erreur vient de là.
J'ai fait l'essai et je retrouve bien ta variable à l'initialize de l'userform

Code:

---

1 2 3 4

Public datasource sub monprogramme () ' Dim datasource As Excel.Workbook '=>mise en commentaire ' Ton code

---

Un lien pour les variables ici


Edit :

Citation:

---

Mais je peux me tromper

---

:mouarf:

Edit2: Travailler avec des variables globales est délicat et je préfère m'en passer en général. Il existe plusieurs solutions de contournement, enregistrer les valeurs dans une cellule, passer des paramètres, sauvegarder dans la base de registre, définir des variables nommées...

MERCI.
Ce forum est génial.
Je suis un vieux dinosaure qui a appris à programmer en FORTRAN et PASCAL. A l'époque - sans Internet -on était seul au fond de sa cave pour programmer.
Maintenant c'est une pure partie de plaisir.:ccool: