pilotage excel avec VB 2008 express

Bonjour,
je galère sur une appli qui utilise excel pour traiter un fichier d'acquisition de 30000lignes.
J'ai essayé de le traiter en le lisant ligne par ligne, et je me suis aperçu que je devrais gagner beaucoup de temps en utilisant l'ouverture et le traitement par excel.
Donc, je dois supprimer une colonne, ce a quoi j'arrive facilement, mais je dois insérer 11 lignes en en-tête, et là, le n'arrives pas à inserer des lignes excel.
les mots clés d'excel, du genre xlDown, ne sont pas reconnus.
Qui a une idée?
Je travaille avec VB 2008 express

Code:

---

1 2 3 4

xlApp.Visible = True MonClasseur = xlApp.Workbooks.Open(Fichier) MaFeuille = MonClasseur.ActiveSheet MaFeuille.Rows.Insert(Shift:=xlDown)

---

En VBA cela fonctionne comme cela:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() ' ' Macro1 Macro ' ' Rows("1:1").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub

---

Merci pour votre aide

Ce fichier d'acquistion de 30 000 lignes est-il au format Excel (.xls) ou au format texte (exemple .csv) ?

Sinon, essaye ça :

Code:

---

MaFeuille.Rows.Insert(XlDirection.xlDown, XlInsertFormatOrigin.xlFormatFromLeftOrAbove)

---

(nécessite : imports Microsoft.Office.Interop.Excel)

Bonjour,
J'ai réussi a résoudre mon problème.

Code:

---

1 2	en déclaration, je mets Imports xl = Microsoft.Office.Interop.Excel

---

Dans la Class Form:

Code:

---

1 2 3 4 5

Public xlApp As New xl.Application Public MonClasseur As xl.Workbook Public MaFeuille As xl.Worksheet Public MonRange As xl.Range

---

ensuite, dans mon sub je mets:

Code:

---

1 2 3 4 5 6 7 8

xlApp.Visible = True MonClasseur = xlApp.Workbooks.Open(Fichier) MaFeuille = MonClasseur.ActiveSheet Sample = MaFeuille.Range("A3:A3").Value For ligne = 1 To 10 MonRange = MaFeuille.Range("A1:A1") MonRange.EntireRow.Insert(xl.XlInsertShiftDirection.xlShiftDown, Type.Missing) Next ligne

---

Ce qu'il me manquait, c'étaient les XlInsertionShiftDirection.

Maintenant, je prends les instructions en VBA, et je recherche avec l'explorateur d'objet, de quoi est membre mon expression VBA.
Ça marche
Il me manquait de la méthode
Si ça peut servir à quelqu'un:yaisse2:

...c'est ce que je disais.

Sinon, pour le code, utilise les balises code (c'est l'icone qui représente un dièse dans la barre d'outil de l'éditeur de message : http://www.developpez.net/forums/images/editor/code.gif).

Et quand le sujet est résolu, clique sur le bouton :resolu: en bas de la page.