Discussion :

[jpenja]

Bonjour,
une nouvelle fois je vais avoir besoin de vous pour qqchose de très simple.
Depuis un classeur Excel sur lequel se trouve un bouton, j'ouvre un autre classeur Excel sur lequel se trouve une seule feuille.
Je voudrais que le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For x = 10 To 5000
    If Feuil1.Range("a" & x).Value = "Type billet :" Then
        typ = Feuil1.Range("d" & x).Value
        x = x + 1
        While Feuil1.Range("a" & x).Value <> "Type billet :"
            Feuil1.Range("d" & x).Value = typ
        Wend
    End If
Next x

s'exécute sur la feuille du classeur que j'ouvre au moyen du bouton mais ce n'est pas le cas.Le code fonctionne bien mais cependant il s'exécute sur la feuille du premier classeur(celle ou se trouve le bouton).

Merci d'avance.

[a.dequidt]

il fauit que tu actives l'autre classeur sur lequel tu fais les tests

[jpenja]

j'ai essayé de l'activer avec

Code :

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

1
2
 
workbooks(etl & ".xls").activate

etl étant une variable string("01/10/2007" par exemple) retranscrite avec mid en 01102007 mais celà ne change rien

[a.dequidt]

Test avec ça:

Code :

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

1
2
3
 
Workbooks.Open Filename:="etl.xls"
Windows("etl.xls").Activate

[Invité]

Bonjour Jpenja,

Essayez :

Code :

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

Windows(etl & ".xls").activate

[Invité]

Excusez-moi a.dequidt,

télescopage des réponses.

Juste une précision, j'avais pensé que etl était une variable et donc a utiliser sans les " "

[a.dequidt]

tu as raison jacques_jean, etl a l'air d'etre une variable, ta solution est préférable ^^

[LeForestier]

Bonjour,
Le classeur que tu ouvre, est-ce un nouveau classeur? car si c'est le cas il n'est pas encore enrégistrer et ne comporte pas encore l'extention .xls.
J'ai tester avec une variable et ça fonctionne mais avec un NV classeur ça plante avec xls.
A+

[jpenja]

Merci encore, mais j'avais également essayé d'activer la fenêtre avant le classeur.J'ai également essayé de lui faire sélectionner une cellule particulière du classeur(il la sélectionne) pour voir lequel était actif, mais celà ne change rien.
Je vous joint la totalité du code si celà peux aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub Export_Tl()
 
Dim etl As String
Dim fin As String
Dim données As String
Dim typ As String
Dim x As Single
 
fin = "EMISSION BILLETS PAR VENTILATION"
etl = Feuil1.TextBox2.Text
x = 1
 
Workbooks.Open ("z:\informatique\doris\" & etl)
Windows(etl & ".xls").Activate
Workbooks(etl & ".xls").Activate
Worksheets(1).Cells(10, 1).Select
 
 
For x = 10 To 5000
    If Feuil1.Range("a" & x).Value = "Type billet :" Then
        typ = Feuil1.Range("d" & x).Value
        x = x + 1
        While Feuil1.Range("a" & x).Value <> "Type billet :"
            Feuil1.Range("d" & x).Value = typ
        Wend
    End If
Next x
Worksheets(1).Cells.Select
Worksheets(1).Cells.Sort key1:=Worksheets(1).Range("A1"), order1:=xlAscending
Worksheets(1).Cells.Copy
Windows("CRD.xls").Activate
Sheets("Tl").Select
ActiveSheet.Paste Destination:=Worksheets("Tl").Range("a1")
Feuil2.Range("a1").Select
Windows(etl & ".xls").Activate
Windows(etl & ".xls").Close SaveChanges:=False
Feuil1.Activate
Feuil2.Activate
x = 1
While Feuil2.Range("a" & x).Value <> fin
    If Feuil2.Range("i" & x).Value = "=" Then
        données = Feuil2.Range("a" & x).Value
        Feuil2.Range("b" & x).Value = Mid(données, 1, 13)
    End If
x = x + 1
Wend
Feuil1.Activate
End Sub

[jpenja]

Merci à vous trois,
a l'attention de LeForestier, ce n'est pas un nouveau classeur.Celui ci est déjà enregistré sous un répertoire "z:\informatique\doris\".
Le plus étrange c qu'il me sélectionne bien une cellule mais que le reste du code s'exécute sur l'autre feuille????

[LeForestier]

essaye un peu de cette façon...

Code :

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

1
2
3
4
5
6
7
etl = Feuil1.TextBox2.Text & ".xls"
x = 1
'En supposant que ce classeur existe....
Workbooks.Open ("z:\informatique\doris\" & etl)
 
Workbooks(etl ).Activate
Worksheets(1).Cells(10, 1).Select

A+
EDIT: répondu trop vite sans voir ton dernier poste

Code :

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

1
2
3
4
5
6
7
dim FL1 as workSheets
etl = Feuil1.TextBox2.Text & ".xls"
 
Workbooks.Open ("z:\informatique\doris\" & etl)
Workbooks(etl ).Activate
   set FL1 = Workbooks(etl ).Sheets("Feuil1")
   FL1.cells(x,y) ......