Discussion :

[phoenellion]

Bonjour à tous,

je suis sur une application qui fait appel à Excel dans une large partie, et je suis cidéré de devoir importer quasiment tous les espaces noms d'Excel.

Je pensais qu'en mettant

Code :

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

Imports Microsoft.Office.Interop.Excel

suffirait, mais non, je suis en train de chercher dans l'explorateur d'objets où se trouvent toutes les fonctions, sous fonctions, arguments et j'en passe et des meilleures

comme :

Code :

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

1
2
3
4
5
Imports Microsoft.Office.Interop.Excel.XlDirection
Imports Microsoft.Office.Interop.Excel.XlPasteType
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlPageOrientation
'etc.

Après réflexion, ce n'est pas plutôt moi qui m'y serait mal pris quelque part ?
D'autant que je dois faire ça avant dans chaque module.

Merci pour votre aide, je sens que je vais tomber des nues en lisant la solution mais comme tout débutant, on est capable de trouver l'introuvable sans voir d'autre choses pourtant évidentes.

@+
Phoe

[Sankasssss]

Bonjour,

la ligne

Code :

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

Imports Microsoft.Office.Interop.Excel

suffit en effet, j'ai du mal a comprendre ce qui ne va pas lorsque tu mets cette unique ligne?

[phoenellion]

Bonjour, eh bien c'est ce que je pensais, mais si je me contente de cette ligne, toutes les instructions comme "xlYes", "xlAscending" ne sont pas reconnues, je suis obligé de les précéder du nom d'espace auquelles elles appartiennent.

exemple, pour faire un tri, je devrais me contenter d'écrire :

Code :

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

.Cells.Sort(Key1:=.Cells(1, 13), Order1:=xlDescending, Header:=xlYes, Orientation:=xlSortColumns)

or, si je n'importe pas les espaces de nom :
Imports Microsoft.Office.Interop.Excel.XlSortOrder
Imports Microsoft.Office.Interop.Excel.XlYesNoGuess
Imports Microsoft.Office.Interop.Excel.XlSortOrientation

je dois écrire :

Code :

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

.Cells.Sort(Key1:=.Cells(1, 13), Order1:=XlSortOrder.xlDescending, Header:=XlYesNoGuess.xlYes, Orientation:=XlSortOrientation.xlSortColumns)

Et c'est valable pour toutes mes bibliothèques importées.

[Sehnsucht]

Bonjour,

Ce ne sont pas des espaces de noms aussi dans ce cas, il s'agit d'énumérations
(voir XlSortOrder, XlYesNoGuess et XlSortOrientation)

et comme toute énumération on les précède du nom de celle ci (exemple: Keys.Delete)

Pour te simplifier le boulot, tu peux très bien t'en faire un snippet ou enregistrer une macro

Cordialement !

[phoenellion]

Bonjour

traduction : autant me faire à l'idée que je devrai systématiquement mettre ces lignes en tête de module ?

Je vais opter pour le snippet.

Merci pour ces lumières !

@+
Phoe

[Sankasssss]

Bonsoir,

traduction : autant me faire à l'idée que je devrai systématiquement mettre ces lignes en tête de module ?

Si vous utilisez un espace de nom systématiquement partout vous pouvez l'inclure en allant dans :
Projet => Propriété de <Nom_Du_Projet> => Référence => espace de nom importé.

De cette manière, vous n'aurez plus à le mettre dans chaque "module"


Cordialement.