Déclaration de variables : Bonnes pratiques, interrogation

Bonjour à tous,
Je développe un pettit AddIn pour Excel sous VB2013
Dans une Sub je suis amené à déclarer plusieurs variables de types comme ceci :

Code:

---

1 2 3 4 5

Dim Cellule_1 As Range = Feuille_Excel.Cells(5, 1) Dim Cellule_2 As Range = Feuille_Excel.Cells(5, 2) Dim Cellule_3 As Range = Feuille_Excel.Cells(5, 3) ...

---

Puis leurs assignées une valeur :

Code:

---

1 2 3 4 5

Cellule_1.Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName) Cellule_2.Value = Fenetre_dialogue.FileName Cellule_3.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Référence") ...

---

Et ainsi plus d'une dizaine.
Je pense que cela est disgracieux et de surcroit fort peu pratique a coder.
Je pense donc qu'il doit avoir une autre façon de procéder ou que je m'y prend pas du tout de la bonne façon.
Alors j'ai testé cela sans résultat :

Code:

---

Feuille_Excel.Cells(5, 1).Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)

---

J'ai ensuite regarder dans les cours disponibles sur le site. Sans résultat également.

Je vous remercie par avance pour vos réponses à ma question qui va certainement vous paraitre "bête".

Bonjour,

Tout d'abord c'est une excellente habitude de s'obliger à déclarer ses variables.

Sans avoir testé et de mémoire pour que ces deux lignes :

Code:

---

1 2	Dim Cellule_1 As Range = Feuille_Excel.Cells(5, 1) Feuille_Excel.Cells(5, 1).Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)

---

soient équivalentes, il faut que "Feuille_Excel" soit définie comme Excel.Sheet ou Excel.Woksheet et qu'elle existe. Même pas nécessaire de l'activer ou de la sélectionner. Cependant elle doit être convenablement identifiée. Malheureusement, tu ne nous dis pas comment tu instancies ton objet Excel, ni ton objet Sheet ou Worksheet. Le modèle-objet d'Excel n'est pas complètement, ou même n'est pas vraiment conforme à la POO. L'objet range ne peut pas exister sans un objet parent (sheet ou worksheet), les objet Sheet et Worksheet ne peuvent pas exister sans un objet Workbook parent et l'objet Workbook ne peut pas exister sans un objet Application parent. N'importe comment, pour écrire quelque chose dans une feuille, il faut que tous les objets de la chaîne existent.

Pour (re)venir à ta question, le choix de définir ou non plusieurs cellules par leur propre nom n'est qu'une question pratique et de goût.

L'autre incertitude est ton Fenetre_dialogue. Tu ne nous dis pas si c'est un objet .net, ou une boîte de dialogue d'Excel. Encore là, si c'est une boîte de dialogue Excel elle doit être convenablement instanciée comme un objet Excel et appelée comme un objet Excel. C'est encore une que tous ne nous dit pas.

En terminant, pour ceux que cela intéresse, pourquoi Excel a-t-il un objet Sheet et un objet Worksheet.

L'objet Sheet comprend tout ce qu'Excel peut considérer comme une feuille, incluant une feuille de macros Excel 4 - 5, une feuille de graphiques et une feuille de calcul.

L'objet Worksheet concerne les feuilles de calcul uniquement. Donc un Worsheet c'est un sheet et un sheet n'est pas forcément un worksheet.

Citation:

---

Envoyé par clementmarcotte

Malheureusement, tu ne nous dis pas comment tu instancies ton objet Excel, ni ton objet Sheet ou Worksheet.

---

Voici mes déclarations en début de module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Imports System.IO Imports System.Diagnostics Imports Microsoft.Office.Interop.Excel Imports System.Runtime.InteropServices Imports SldWorks Module Module_principal Dim Classeur_Excel As Excel.Workbook = Globals.ThisAddIn.Application.ActiveWorkbook Dim Feuille_Excel As Excel.Worksheet = Globals.ThisAddIn.Application.ActiveSheet Dim Processus_SW As Process Dim Application_SW As SldWorks.SldWorks Dim Model_SW As SldWorks.ModelDoc2 Dim Component_SW As SldWorks.Component2 Dim Nom_fichier_SW As String Dim Liste_dependances As Object

---

Citation:

---

Envoyé par clementmarcotte

L'autre incertitude est ton Fenetre_dialogue. Tu ne nous dis pas si c'est un objet .net, ou une boîte de dialogue d'Excel. Encore là, si c'est une boîte de dialogue Excel elle doit être convenablement instanciée comme un objet Excel et appelée comme un objet Excel. C'est encore une que tous ne nous dit pas.

---

En fait il 'agit d'un complément qui ajoute un menu dans le ruban d'excel.
Comme décris ici : http://jfdeterme.developpez.com/tuto...l-studio-2010/
(J'espère avoir répondu correctement.)

Ensuite le souci avec :

Code:

---

Feuille_Excel.Cells(5, 1).Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)

---

C'est que le .value est indisponible.

Enfin existe il un moyen de déclarer mes variables sous forme de "boucle" dans lequel on incrémente le nom (+1) et la plage.?

Merci pour cette réponse intéressante. On apprend plein de choses avec developpez.com ;-)

Bonjour,

Citation:

---

Envoyé par r.morel

Voici mes déclarations en début de module :]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Imports System.IO Imports System.Diagnostics Imports Microsoft.Office.Interop.Excel Imports System.Runtime.InteropServices Imports SldWorks Module Module_principal Dim Classeur_Excel As Excel.Workbook = Globals.ThisAddIn.Application.ActiveWorkbook Dim Feuille_Excel As Excel.Worksheet = Globals.ThisAddIn.Application.ActiveSheet Dim Processus_SW As Process Dim Application_SW As SldWorks.SldWorks Dim Model_SW As SldWorks.ModelDoc2 Dim Component_SW As SldWorks.Component2 Dim Nom_fichier_SW As String Dim Liste_dependances As Object

---

En fait il 'agit d'un complément qui ajoute un menu dans le ruban d'excel.
Comme décris ici : http://jfdeterme.developpez.com/tuto...l-studio-2010/
(J'espère avoir répondu correctement.)

---

À ma (grande ;) ) honte, je dois avouer que ce tutoriel ne m'as jamais sauté aux yeux. De plus, je ne peux pas dire que je connais bien VSTO. À vrai dire, je ne les ai jamais utilisés comme tel. Au plus, j'en ai rencontré dans des exemples de Microsoft. Pour faire une histoire courte, on peut utiliser Excel à partir de VB.net sans utiliser VSTO et en faire nécessairement un "add-in" pour Excel. VB.net, encore que c'est aussi vrai pour c#, peut piloter Office par Automation, sur le même principe qu'avec une macro Word, par exemple. et Cela va quand même me prendre un peu de temps pour lire le document.

Est-ce que ces lignes font référence à SolidWorks ? Personnellement, je ne le connais pas, mais cela ne me dérange pas outre-mesure pour le reste. C'est juste pour être "sûr".

Code:

---

1 2 3 4 5

Dim Processus_SW As Proces Dim Application_SW As SldWorks.SldWorks Dim Model_SW As SldWorks.ModelDoc2 Dim Component_SW As SldWorks.Component2 Dim Nom_fichier_SW As String

---

Citation:

---

Ensuite le souci avec :

Code:

---

Feuille_Excel.Cells(5, 1).Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)

---

C'est que le .value est indisponible.

---

En principe, la propriété Value est standard pour un objet Range, et la propriété Cells est une collection d'objets cell et l'objet cell est aussi un objet Range. Ce pourrait aussi être un message d'erreur de "dépannage"; en l'absence du vrai message d'erreur. C'est donc peut-être à cause d'une autre erreur, comme une erreur de conversion de type, d'une cellule protégée, ou de quelque chose qui fait que la donnée n'est pas reconnue pour être une valeur dans Excel. Tu peux toujours essayer de mettre un espion sur fenetre_dialogue et voir s'il n'est pas à Nothing et que .FileName existe vraiment, et qu'il n'y a pas de caractère parasite, ou essayer un Debug.print

Citation:

---

Enfin existe il un moyen de déclarer mes variables sous forme de "boucle" dans lequel on incrémente le nom (+1) et la plage.?

---

Personnellement, je ne pense pas (ou peut-être même, je ne sais pas). Ce que je sais en tout cas, au sujet de ce forum et de la plate-forme .net, c'est qu'il ne faut jamais jurer de rien. ;)

Bonjour,

Citation:

---

Envoyé par clementmarcotte

Est-ce que ces lignes font référence à SolidWorks ? Personnellement, je ne le connais pas, mais cela ne me dérange pas outre-mesure pour le reste. C'est juste pour être "sûr".

Code:

---

1 2 3 4 5

Dim Processus_SW As Proces Dim Application_SW As SldWorks.SldWorks Dim Model_SW As SldWorks.ModelDoc2 Dim Component_SW As SldWorks.Component2 Dim Nom_fichier_SW As String

---

---

Oui elles font référence a SolidWorks car l'AddIn a pour but de récupérer la liste des pièces qui composent un assemblage SolidWorks et de les lister avec leurs propriétés dans un classeur Excel.

Citation:

---

Envoyé par clementmarcotte

En principe, la propriété Value est standard pour un objet Range, et la propriété Cells est une collection d'objets cell et l'objet cell est aussi un objet Range. Ce pourrait aussi être un message d'erreur de "dépannage"; en l'absence du vrai message d'erreur. C'est donc peut-être à cause d'une autre erreur, comme une erreur de conversion de type, d'une cellule protégée, ou de quelque chose qui fait que la donnée n'est pas reconnue pour être une valeur dans Excel. Tu peux toujours essayer de mettre un espion sur fenetre_dialogue et voir s'il n'est pas à Nothing et que .FileName existe vraiment, et qu'il n'y a pas de caractère parasite, ou essayer un Debug.print

---

Suite à cette remarque, j'ai modifié le code comme ceci :

Avant :

Citation:

---

Dim Cellule_1 As Range = Feuille_Excel.Cells(5, 1)
Dim Cellule_2 As Range = Feuille_Excel.Cells(5, 2)
Dim Cellule_3 As Range = Feuille_Excel.Cells(5, 3)
Dim Cellule_4 As Range = Feuille_Excel.Cells(5, 4)
Dim Cellule_5 As Range = Feuille_Excel.Cells(5, 5)
Dim Cellule_6 As Range = Feuille_Excel.Cells(5, 6)
Dim Cellule_7 As Range = Feuille_Excel.Cells(5, 7)
Dim Cellule_8 As Range = Feuille_Excel.Cells(5, 8)
Dim Cellule_9 As Range = Feuille_Excel.Cells(5, 9)
Dim Cellule_10 As Range = Feuille_Excel.Cells(5, 10)
Dim Cellule_11 As Range = Feuille_Excel.Cells(5, 11)
Dim Cellule_12 As Range = Feuille_Excel.Cells(5, 12)
Dim Cellule_13 As Range = Feuille_Excel.Cells(5, 13)
Dim Cellule_14 As Range = Feuille_Excel.Cells(5, 14)
Dim Cellule_15 As Range = Feuille_Excel.Cells(5, 15)
Dim Cellule_16 As Range = Feuille_Excel.Cells(5, 16)
Dim Cellule_17 As Range = Feuille_Excel.Cells(5, 17)
Dim Cellule_18 As Range = Feuille_Excel.Cells(5, 18)

Cellule_1.Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)
Cellule_2.Value = Fenetre_dialogue.FileName
Cellule_3.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Référence")
Cellule_4.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Référence")
Cellule_5.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Désignation")
Cellule_6.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Désignation")
Cellule_7.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Machine")
Cellule_8.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Matière")
Cellule_9.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Finition")
Cellule_10.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Révision")
Cellule_11.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Révision")
Cellule_12.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Gestion_erp")
Cellule_13.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Epaisseur")
Cellule_14.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Ref.Assemblage")
Cellule_15.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Assemblage")
Cellule_16.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Désignation anglaise")
Cellule_17.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Désignation allemande")
Cellule_18.Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Chemin_fichier_erp")

---

Après :

Citation:

---

Feuille_Excel.Range(Feuille_Excel.Cells(5, 1)).Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)
Feuille_Excel.Range(Feuille_Excel.Cells(5, 2)).Value = Fenetre_dialogue.FileName
Feuille_Excel.Range(Feuille_Excel.Cells(5, 3)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Référence")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 4)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Référence")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 5)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Désignation")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 6)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Désignation")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 7)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Machine")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 8)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Matière")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 9)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Finition")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 10)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Révision")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 11)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Révision")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 12)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Gestion_erp")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 13)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Epaisseur")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 14)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Ref.Assemblage")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 15)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Assemblage")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 16)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Désignation anglaise")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 17)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "Désignation allemande")
Feuille_Excel.Range(Feuille_Excel.Cells(5, 18)).Value = Acquisition_propriete(Fenetre_dialogue.FileName, "ERP_Chemin_fichier_erp")

---

Ce qui divise par deux le nombre de ligne. Mais me renvoie l'erreur :
"Une exception de type 'System.Runtime.InteropServices.COMException' s'est produite dans ExcelAddIn1.dll mais n'a pas été gérée dans le code utilisateur
Informations supplémentaires : Exception de HRESULT : 0x800A03EC" sur la première de cette partie du code.
:?

Bonjour,

Citation:

---

Envoyé par r.morel

Bonjour,

"Une exception de type 'System.Runtime.InteropServices.COMException' s'est produite dans ExcelAddIn1.dll mais n'a pas été gérée dans le code utilisateur
Informations supplémentaires : Exception de HRESULT : 0x800A03EC" sur la première de cette partie du code.
:?

---

On en revient à une de mes premières questions ;)

Est-ce que Fenetre_dialogue est une boîte de dialogue d'Excel ou un composant .net ?

Fenetre_dialogue est un composant .net :

Code:

---

Dim Fenetre_dialogue As New System.Windows.Forms.OpenFileDialog

---

Merci. ;)

Bonjour,

J'ai fait une recherche sur Bing (je fais plus confiance à Microsoft qu'à Google. C'est peut-être parce que je suis déjà allé à Seattle et que j'ai vu Bill Gates en personne (de loin mais je l'ai vu et je l'ai entendu).

Requête : MSDN 0x800A03EC si jamais tu veux aller plus loin que moi.

Et je suis tombé sur cette page:

https://social.msdn.microsoft.com/Fo...3ec?forum=vsto

(il y a d'autres liens dans la colonne de gauche)

J'ai survolé la page et j'en ai retenu deux causes possibles :

L'adresse de la cellule et la valeur de la donnée. Donc, je dirais, comme autre question :

As-tu vraiment une valeur valide pour ton Fenetre_dialogue.FileName ?

Ceci dit, tu peux programmer comme tu le veux, mais je pense que c'est plus facile à déboguer avec

Code:

---

1 2 3

dim fichier as string = Fenetre_dialogue.FileName dim lefichier as string = Path.GetFileNameWithoutExtension(fichier) Feuille_Excel.Cells(5, 1).Value = lefichier

---

au lieu de

Code:

---

Feuille_Excel.Cells(5, 1).Value = Path.GetFileNameWithoutExtension(Fenetre_dialogue.FileName)

---

Et cela, peu importe qui programme et peu importe le programme.

Je sais. Cela prend plus de lignes et c'est peut-être moins rapide à l'exécution et cela prend un peu plus de mémoire et cela peut déplaire à certains, mais c'est plus flexible à la fin.