[VBA-E] Problème avec une UserForm

Bonjour à tous,
j'ai un petit problème, je n'arrive pas à renvoyer des données d'un fichier excel vers une userform d'un autre fichier excel. En plus détaillé, je dispose d'un fichier qui à l'ouverture lance une userform qui dans son initialisation ouvre un autre fichier excel(mais on ne le voit pas c'est fait exprès) dans lequel elle doit aller chercher ses données. Le problème c'est que soit elle me retourne un zéro soit rien.
Voici un petit bout de mon code, si à une idée.

Code:

---

1 2 3 4 5 6

If MyYear = 2007 Then If MyMonth = 5 Then Controls("TB1").Value = Workbooks("testxy.xls").Sheets("2007").Cells(258, 6) End If Elseif ...

---

Merci d'avance
Amélie

C'est quoi MyMonth et MyYear ?

Effectivement ut as mis un petit bout de ton code, mais avec ces 2 lignes on va pouvoir difficilement t'aider :mrgreen:

Tu as essayé de faire du pas a pas pour voir les valeurs que prenait tes références, etc.. ?

Déjà, si tu dois travailler dans ton second classeur, je déclarerais l'un et "l'autre classeur" en tête de code de l'userform

Code:

---

1 2	Dim CL1 as workbook 'le classeur contenant l'userform Dim CL2 as workbook 'l'autre classeur

---

Ensuite, j'instancierais CL1 dans Userform_Initialize

Code:

---

Set CL1 = Thisworkbook

---

et CL2 à l'ouverture de l'autre classeur

Code:

---

1 2	Set CL2 = Application.Workbooks.Open _ (Filename:=Chemin & Workbooks("testxy.xls")

---

Ainsi tu pourras travailler sans avoir à trainer leurs noms
Enfin, pour ton test, je mettrais

Code:

---

1 2 3 4

If MyYear = 2007 Then If MyMonth = 5 Then Me.Controls("TB1").Value = CL2.WorkSheets("2007").Cells(258, 6).value '(***) End If

---

Quoique, vu ton test, j'utiliserais sans doute un select case sur le mois

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Select Case MyMonth Case 1 '.... Case 2 '.... Case 5 'ton test (***) Case ... '... Case else End select

---

Juste une idée

En fait le debut de mon code c'est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub UserForm_Initialize() Workbooks.Open "H:\Etudes STAT\_PROJET EN COURS\Amélie\testxy.xls" Application.Visible = False If MyYear = 2007 Then If MyMonth = 5 Then Controls("TB1").Value = Workbooks("testxy.xls").Sheets("2007").Cells(258, 6) End If Application.Visible = True   Application.DisplayAlerts = False Windows("testxy.xls").Close Application.DisplayAlerts = True

---

Je vais essayer ce que tu m'as dit je vous redis si ca fonctionne.
Merci beaucoup

Ajoute au code que je t'ai donné

Code:

---

CL2.Close False

---

et tu pourras supprimer les deux lignes

Citation:

---

Application.DisplayAlerts = False
Application.DisplayAlerts = True

---

;)

ca ne m'affiche rien dans ma userform. A aucun moment le code bloque puisque je fais tout en pas à pas mais ca ne renvoie rien du tout.
J'ai remplacé Application.display = false/true par ce que tu m'as dit, c'est bien je gagne 2 ligne pour la même chose.
Merci

question totalement bete : c'est quoi :

Code:

---

Me.Controls("TB1").Value

---

:aie:

Citation:

---

Envoyé par illight

question totalement bete : c'est quoi :

Code:

---

Me.Controls("TB1").Value

---

:aie:

---

C'est vrai, quoi !
Ceci dit, en pas à pas, je vérifierais le contenu des variables... ou plutôt ce qu'il y a dans Cells(258, 6).value
Une question : Tu compares une valeur à une valeur ou un string à un string ?
P't'être bien qu'il faudrait utiliser Val(Me.Controls("TB1").Value) (???) Juste une idée de plus...

En mettant

Code:

---

Me.Controls("TB1").Value = Val(CL2.Worksheets("2007").Cells(258, 6).Value)

---

ca me renvoie 0 alors que la cellule F258 de ma feuille 2007 vaut 10
TB1 c'est ma textbox1 de ma userform,j'ai 72 textbox a renseigner mais j'essaye juste avec une pour commencer.

je veux juste lui dire que ma textbox1 vaut la valeur de la cellule F258 mais pour l'instant z'y arrive pas.

C'est bon ca fonctionne, excusez moi tout est de ma faute, j'avais deux sauvegarde du fichier testxy à deux endroits différents et dans celui spécifié j'avais mis aucune valeur dans la case F258.
Désolé.
Ces deux codes fonctionnent

Code:

---

1 2 3

Me.Controls("TB1") = Val(CL2.Worksheets("2007").Cells(258, 6)) Me.Controls("TB2").Value = CL2.Worksheets("2006").Cells(258, 6).Value

---

si ca peut aider quelqu'un.
Encore merci de votre aide et désolée pour mes betises.
Bonne journée à tous

Citation:

---

Envoyé par jamelie

C'est bon ca fonctionne, excusez moi tout est de ma faute, j'avais deux sauvegarde du fichier testxy à deux endroits différents et dans celui spécifié j'avais mis aucune valeur dans la case F258.
...
si ca peut aider quelqu'un.

---

:mouarf: