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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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".