Discussion :

[nainco]

Bonjoiur a tous, je travail sur visual basic pour mon stage et je suis confronter à un problème qui m'empêche d'avancer, je souhaiterais créer une feuille de calcul excel dans un dossier cible mais je ne sais pas comment faire quelqu'un pourrait il m aider?

[Abdelkabir]

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
Dim EXL As New Excel.Application
'EXL représente une nouvelle instance de EXCEL
'chaque Workbook dans  Excel contien 1 ou + Worksheets
Dim WBook As New Excel.Workbook
Dim WSheet As New Excel.Worksheet
'créer une feuille de calcul et l'ajouter à la collection Worksheets
'chaque classeur Excel à une collection Worksheets qui contient plusieurs "Worksheet" ou feuille de calcul
WSheet = EXL.Workbooks.Add.Worksheets.Add
'Pour ouvrir un WorkBook existant:
EXL.Workbooks.Open("c:\exemplede_de_classeurs_excel.xls")
'Pour accéder aux feuilles qui sont par défaut au nombre de 3 Feuil1, Feuil2 et Feuil3:
WSheet = EXL.Workbooks.Item(1).Worksheets("Feuil1")
'Pour placer une veleur dans la 1ere cellule de la 2éme feuille:
WSheet.Cell(1, 1) = "La plus haut cellule à droite"
'Vous pouvez également ajouter de nouvelles feuilles aux classeur:
WSheet = EXL.ActiveWorkbook.Worksheets.Add()
WSheet.Cells(1, 1) = "La permière cellule"
'ouvrir un classeur: la méthode Open a +eurs arguments que vous exploiter:
WBook = EXL.Workbooks.Open("C:\SimpleExcel.xls", 0, False, 5, _
System.Reflection.Missing.Value, System.Reflection.Missing.Value, _
False, System.Reflection.Missing.Value, System.Reflection.Missing.Value, _
True, False, System.Reflection.Missing.Value, False)
'L'enregister: la méthode SaveAs a plusieurs arguments...
'vous pouvez les négliger
WBook.SaveAs("C:\SimpleExcel1.xls", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing.Interop.Excel.XlSaveAsAccessMode.xlExclusive, Nothing, Nothing, Nothing, Nothing, Nothing)
'Fermer et quitter:
WBook.Close(False, Nothing, Nothing)
EXL.Quit()

[Abdelkabir]

Pardon, j'ai opublié:
1) tu dois ajouter une référence à Microsoft Excel (clique droit sur le nom de ton projet==>Ajouter une référence (Add reference) ==>Dans la section COM séléctionnez Microsoft Excel .....==>OK

2) ajouter ces ligne en haut de votre code:
Imports Excel = Microsoft.Office.Interop.Excel
Imports Office = Microsoft.Office.Core

tu pourra ainsi travailler avec les objets (Workbook, Worksheet.....)
Bonne chance

[nainco]

merci monsieur

[Hatchepsout]

bonsoir
si le probeleme est bien resolu penser a la tag