Discussion :

[Yanos]

voilà je sais que ça va être tout bête.
Je m'excuse par avance de poser cette question car je sens que je suis pas loin mais je dois oublier quelque chose.


Bref, je lance une macro VB d'un fichier Excel qui m'ouvre un autre fichier Excel (ça ok). Donc par défaut c'est ce dernier qui est actif. Je voudrais connaitre la commande qui me permet de retourner dans la feuille que je veux du fichier que je veux.

Comment je fais pour sauter d'un fichier à l'autre et pouvoir choisir à chaque fois les feuilles qui m'interesse?

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Feuille1 As Variant 'Nom de la feuille 1
Dim Feuille2 As Variant 'Nom de la feuille 2
 
Dim EMEA As Workbook
Dim Current As Workbook
 
nom1 = ActiveWorkbook.Name 'contient le nom de la feuille active
 
Workbooks.Open Filename:="EMEA Plants 2006 F Costs.xls"
nom2 = ActiveWorkbook.Name 'contient le nom de la feuille active

Est-ce que je ne pourrais pas utiliser

Code :

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

1
2
Set XlBook_ACT = Workbooks(nom1)
Set XlSheet_ACT = XlBook_ACT.Worksheets

??? (mais dans ce cas où sont les paramètres?)

Est-ce que je dois déclarer une variable worksheet?

J'ai pas trouvé ce que je voulais dans le forum, est-ce que vous pouvez me filer un coup de main SVP?

[Vesta]

Code :

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

Sheets("nomfeuille").Select

[Yanos]

Merci Vesta. Est-ce que tu veux dire que c'est la même chose pour Workbook? Pour passer d'un document Excel à l'autre une fois qu'ils sont ouverts?

Je ne peux pas mettre une adresse de document à ouvrir en relatif, n'y a t'il pas un moyen de le faire?

[Vesta]

Ca devrait marcher

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim EMEA As Workbook
Dim Current As Workbook
 
nom1 = ActiveWorkbook.Name 'contient le nom de la feuille active
 
'essaie je pense que c'est l'un ou l'autre
'Donc comme tu fais, il faut bien un Dim ... As Workbook
'Et a l'ouverture tu dis que ... = Workbooks.open ...
EMEA = Workbooks.Open Filename:="EMEA Plants 2006 F Costs.xls"
'set EMEA = Workbooks.Open Filename:="EMEA Plants 2006 F Costs.xls"
 
EMEA.sheets("nomfeuille").select

[zebulon2212]

j'ai eu un projet ou je devais aller chercher des données sur 3 fichiers excel différents
je passait d'un fichier à l'autre avec cette commande :

Code :

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

1
2
3
4
5
6
7
8
 
Var_NomFichierExcel = ActiveWindow.Caption 'a placer avant d'ouvrir ton 2em fichier
 
'fait la meme chose lorsque ru as ouvert ton 2em fichier
 
'puis passe d'un fichier à l'autre avec cette commande
 
Windows(Var_NomFichierExcel).Activate

[Yanos]

J'ai approximativement utiliser la même chose

Ouvrir le fichier

Code :

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

1
2
 
Workbooks.Open Filename:="C:\mon_fichier.xls"

Pour passer d'une feuille à l'autre

Code :

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

1
2
3
4
5
6
 
Windows("mon_fichier.xls").Activate 
 
'ici votre algorithme
 
Windows("mon_deuxieme_fichier.xls").Activate

Pour choisir sa feuille, soit mettre le nom de la feuille soit mettre un numéro

Code :

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

1
2
 
    ActiveWorkbook.Worksheets(nombre_feuille).Activate

encore merci