Discussion :

[jamelie]

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 :

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

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

[illight]

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

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

[ouskel'n'or]

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 :

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

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 :

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

Set CL1 = Thisworkbook

et CL2 à l'ouverture de l'autre classeur

Code :

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

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 :

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

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 :

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

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

[jamelie]

En fait le debut de mon code c'est :

Code :

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

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

[ouskel'n'or]

Ajoute au code que je t'ai donné

Code :

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

CL2.Close False

et tu pourras supprimer les deux lignes

Application.DisplayAlerts = False
Application.DisplayAlerts = True

[jamelie]

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

[illight]

question totalement bete : c'est quoi :

Code :

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

Me.Controls("TB1").Value

[ouskel'n'or]

question totalement bete : c'est quoi :

Code :

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

Me.Controls("TB1").Value

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

[jamelie]

En mettant

Code :

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

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.

[jamelie]

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

[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.
Désolé.
Ces deux codes fonctionnent

Code :

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

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

[ouskel'n'or]

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.