Activation feuille Excel avec VB.NET

Version imprimable

02/12/2010, 15h06
chould

Activation feuille Excel avec VB.NET
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:

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:

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.

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 VerB~~eux~~.Net

Code:

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();
}
}

03/12/2010, 01h17
chould

CODE

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 !)
03/12/2010, 09h18
Bluedeep

Citation:

Envoyé par 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 !)

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 ?

Salut

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

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.

03/12/2010, 23h24
chould

Ça ne va pas du tout !

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.
04/12/2010, 00h08
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:

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:

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:

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:

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

changer de feuille dans classeur par programme

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:

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