Discussion :

[DJPi]

Bonsoir à tous,
Après plusieurs heures de recherche sur ce forum et sur la toile, je suis incapable de trouver une réponse à mon problème !

Je suis assez familiarisé avec le VB6 mais, je dois réaliser une application en VB.Net.
Le pilotage d'Excel depuis l'application semble similaire entre le VB et VB.Net mais je n'arrive cependant pas à insérer une ligne à une endroit donné dans mon classeur Excel.

En VB6, j'insérait une ligne comme ceci :

Code :

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

oWs.Rows(9, 2).Insert Shift:=xlUp

Mais en VBNet, le xlUp n'est pas déclaré ...

J'ai essayé différentes syntaxes trouvées sur des forums anglais, mais rien n'y fait !

D'avance merci à ceux qui auraient des pistes ou des réponses !

Bonne soirée à tous.

[Skalp]

Essaye ça :

Code vb :

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

oWs.Rows(9, 2).Insert(XlDirection.xlUp)

[DJPi]

Essaye ça :

Code vb :

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

oWs.Rows(9, 2).Insert(XlDirection.xlUp)

Merci pour ta réponse mais malheureusement, ça me donne la même erreur :

Erreur 1 Le nom 'XlDirection' n'est pas déclaré.

[Skalp]

As-tu rajouté en haut du fichier :

Code vb :

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

Imports Microsoft.Office.Interop.Excel

[DJPi]

As-tu rajouté en haut du fichier :

Code vb :

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

Imports Microsoft.Office.Interop.Excel

Effectivement, je n'avais pas laisser ce fichier !
J'avais juste un imports Microsoft.
Mais en rajoutant ce fichier, j'obtient des les erreurs suivantes sur

Code :

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

Application.StartupPath

Erreur 1 Une référence à un membre non partagé requiert une référence d'objet.

[DJPi]

J'ai finalement trouvé le problème suivant :

il faut mettre les attributs de Rows entre guillemets soit :

Code :

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

oWs.Rows("9, 2").Insert(XlDirection.xlUp)

au lieu de

Code :

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

oWs.Rows(9, 2).Insert(XlDirection.xlUp)

Un grand merci à Skalp qui m'a quand même résolue la base du problème ...

Bonne journée !