Discussion :

[jurgh]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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'
Par ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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'

[aalex_38]

Bonjour,

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 ?

[jurgh]

Si je le programme ainsi, tout va bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[diude54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set datasource=...

Soit tu fait comme tu l'as ecrit.

Mais je peux me tromper

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Mais je peux me tromper

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

[jurgh]

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.