Discussion :

[micheljoseph]

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 :

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

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 :

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

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

[Skalp]

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

Sinon, essaye ça :

Code :

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

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

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

[micheljoseph]

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

Code :

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

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

Dans la Class Form:

Code :

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

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 :

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

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

[Skalp]

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

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