Problème sur activesheet

Version imprimable

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:

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.

11/10/2007, 11h45
a.dequidt

il fauit que tu actives l'autre classeur sur lequel tu fais les tests
11/10/2007, 11h57
jpenja

moultes tentatives
j'ai essayé de l'activer avec
Code:

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

Test avec ça:

Code:

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

11/10/2007, 12h02
Invité

Bonjour Jpenja,

Essayez :

Code:

Windows(etl & ".xls").activate
11/10/2007, 12h06
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 " "
11/10/2007, 12h13
a.dequidt

tu as raison jacques_jean, etl a l'air d'etre une variable, ta solution est préférable ^^
11/10/2007, 12h21
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+

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:

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

11/10/2007, 12h27
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????

essaye un peu de cette façon...

Code:

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:

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

11/10/2007, 12h45
Invité

En effet LeForestier, je pense que l'erreur se trouve ici :

Code:

Workbooks.Open ("z:\informatique\doris\" & etl)

il manque & ".xls"

avec votre solution il n'aura plus à l'ajouter pour une autre utilisation de la variable.