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