Discussion :

[chould]

Bonjour,

Je cherche une solution pour changer de feuille (passer d'une feuille à l'autre) dans un classeur Excel ouvert sous VB.NET. Voici mon code :

1) Mes déclarations au niveau d'un module :

Code :

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

1
2
3
Public AppExcel2 As New Microsoft.Office.Interop.Excel.Application
    Public Classeur2 As Microsoft.Office.Interop.Excel.Workbook
    Public Feuil2 As Microsoft.Office.Interop.Excel.Worksheet

2) Mon ouverture du classeur Excel au niveau procédure dans une form :

Code :

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

1
2
Dim Classeur2 = AppExcel2.Workbooks.Open("C:\Users\Christian Hould\Documents\Vb9\Navigateur TSX\TSX1.xls")
        Dim Feuil2 = Classeur2.Sheets("Feuil2")

Aller jusqu'à là, tout va bien. Le classeur est ouvert par défaut sur la première feuille. Quelle est la commande pour passer d'une feuille à l'autre ? J'ai essayé à peu près tout ce qui est imaginable. Mais là je suis à bout d'imagination.

Merci de votre aide.

[Bluedeep]

Bonjour

Ce bout de code ouvre un classeur(dont le nom de fichier est dans la variable excelFile) et active l'avant dernière feuille, si il y en plus d'une dans le classeur.

T'as plus qu'à le traduire en VerBeux.Net

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Excel.Application appExcel = new Microsoft.Office.Interop.Excel.Application();
Excel.Workbook classeur;
Excel.Worksheet sheet;
appExcel.Visible = true;
classeur = appExcel.Workbooks.Open(excelFile, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,Missing.Value);
int cSheet = classeur.Sheets.Count;
if (cSheet > 1)
{
(classeur.Sheets[cSheet - 1] as Excel._Worksheet).Activate();
}
}

[chould]

Merci pour la réponse, mais je n'ai pas réussi à faire fonctionner ce code. Ça ressemble beaucoup à plusieurs de mes tentatives antérieures (infructueuses !)

[Bluedeep]

Merci pour la réponse, mais je n'ai pas réussi à faire fonctionner ce code. Ça ressemble beaucoup à plusieurs de mes tentatives antérieures (infructueuses !)

Curieux, curieux. (j'ai bien entendu testé le code avant de te le fournir, et il fonctionne du premier coup chez moi).

L'ouverture du classeur démarre bien Excel en mode visible ?

Bon :

- Version d'Excel ?
- Version des DLL D'Interop ?

[Mario Rousson]

Salut

Travailler avec Excel c'est pas évident pour un débutant comme moi, je réussi à activer une feuille comme suis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports Excel
 
 
 
Dim appExcel As Excel.Application
Dim WbExcel As Excel.Workbook
Dim WsExcel As Excel.Worksheet
Dim XlRange As Excel.Range
 
appExcel = New Excel.Application
WbExcel = appExcel.Workbooks.Open(My.Settings.MonPath & "VbTraitement\EssaiNP.xls")
WsExcel = CType(WbExcel.Worksheets("Reception"), Worksheet)
WsExcel.Activate()
XlRange = WsExcel.UsedRange

En espérant que celà puisse t'aider, et si tu as quelque chose de mieux je serai ravi de l'entendre.

[chould]

Merci beaucoup les gars pour vos réponses !

Bluedeep
- Non je ne démarre pas Excel en mode visible, car c'est une procédure qui se déroule dans un second thread et je ne veux pas voir Excel s'afficher.

- Microsoft Office Excel 2003 (11.8328.8329) SP3

- Microsoft.Office.Interop.InfoPath.SemiTrust.dll Version 11.0.8161
- Microsoft.Office.Interop.InfoPath.Xml.dll Version 11.0.8161

Mario
- Vb ne reconnait « Imports Excel ». J'imagine qu'il me manque une référence, mais je ne sais pas laquelle.

[MABROUKI]

bonjour chould,

1/ tu fais :
ajouter une reference ->Com>microsoft excel library 11.0 ->OK
Dans ton module ou classe ou forme en vb.net tu ajoutes ceci (ca devient possible dans intellisense apres avoir referencer):

Code :

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

1
2
 
Imports Microsoft.Interop.Excel.

On peut egalement mettre des alias( c'est je pense ce que a fait mario rousson quand il a ecrit imports Excel)
comme ceci :

Code :

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

1
2
3
 
Imports OXL=Microsoft.Interop.Excel
'(OXL ou ce que veut comme nom pourvu que ce n'entre pas en conflit avecs les mots cles ou les autres variables)

ceci permet de raccourcir les lignes de code et d'ecrire par exemple:

Code :

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

1
2
3
 
dim appExcel=OXL.Apllication 
dim classeur=OXL.Apllication.workbooks.open("c:\test.xls")

au lieu de taper l'instruction "train" suivante:

Code :

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

1
2
3
 
dim appExcel =Microsoft.Interop.Excel .Apllication 
dim classeur=Microsoft.Interop.Excel .Apllication .workbooks.open("c:\test.xls")

bon code.........

[MABROUKI]

should encore un petit detail,
La doc dit il n'a y a pas de classe Sheet malgre la presence de 2 collections Sheets et Worksheets mais seulement la classe Worksheet.
quand tu declare une feuille tu es oblige d'ecrire pour reprendre ton code :

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
 
'attention à l'imports je me suit gourre tu corriges
'imports pour MS Office Excel 2003 
Imports Microsoft.Office.Interop
 
..............................
Dim appExcel As Excel.Application
Dim WbExcel As Excel.Workbook
Dim WsExcel As Excel.Worksheet 'c'est bon... on ne peut ecrire as Sheet
 
Dim XlRange As Excel.Range
 
appExcel = New Excel.Application
WbExcel = appExcel.Workbooks.Open(My.Settings.MonPath & "VbTraitement\EssaiNP.xls")
WsExcel = CType(WbExcel.Worksheets("Reception"), Worksheet) 'tu as utilise collection Worksheets et caste sur la classe Worksheet c'est bon...
WsExcel.Activate()
XlRange = WsExcel.UsedRange
 
'ici la suite je prefere revoir  les 2 dernieres lignes comme suit:
WbExcel.Active()
WsExcel.Activate() 'active la feuille
XlRange = WsExcel.UsedRange
 
'je change de feuille avec le numero de feuille pour aller à n° 5 et 
'j'utilise la collection Worksheets:
 
WbExcel.Worksheets(5).Activate 'active la numero 5
WbExcel.Worksheets(5).Select() 'je m'y pointe
 
' vigilance :attention au nom c'est celui que l'utilisateur donne à la feuille et gare aux ennuis si les gens le changent et enregistrent ca....
'au prochain demarrage ca va crasher.......
'c'est pour cela les numeros ne changent pas 
' meme si l'utilisateur deplacent la feuille dans le classeur.....eh oui.....

la tranquillite d'esprit se paye ....vois tu par la vigilance........
bon code........