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")
Partager