Go excel. Rules work on 2 computers but not on the other...

Remy-intl · ‎01-14-2021

Hello,

I created an ilogic external rule that uses GoExcel.

The rule works on my workstation and on my personnal computeur but bug on the PCs of my colleagues. The error I get varies:

Error1:

Impossible d'effectuer un cast d'un objet COM de type 'Microsoft.Office.Interop.Excel.ApplicationClass' en type d'interface 'Microsoft.Office.Interop.Excel._Application'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208D5-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Élément introuvable. (Exception de HRESULT : 0x8002802B (TYPE_E_ELEMENTNOTFOUND)).

Error2:

Cannot find the column header "TypeProfil" (The column does exist in Excel (standard cell format))

Would you know why?

We use differents versions of office.

The rules works on personnal and familly office 2019 and also on Microsoft Office 365.

The rules don't works on Microsoft Office 365 busines...

Thanks in advance for your time.

The rule is below. It's read into an excel file. The file is on vault and present on all computer...

The error start on line "Ligne1 = GoExcel.FindRow(oExcelPath, "Index", "TypeProfil", "=", Parameter("TypeDeProfil"))"

oExcelPath= "C:\VaultWorkspace\Designs\Fichiers Matières ERP\ListeCDC.xlsx"


'Determine l'onglet dans lequel on doit cherché la Matière automatique
Ligne1 = GoExcel.FindRow(oExcelPath, "Index", "TypeProfil", "=", Parameter("TypeDeProfil"))
Onglet1 = GoExcel.CurrentRowValue("NomOnglet")


Select Case Parameter("TypeDeProfil")
	

'CAS1---------------------------
	Case "Plat"
	'MessageBox.Show(iProperties.Material, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Largeur", "=", Parameter("Para_A"),"Epaisseur", "=", Parameter("Para_B"),"MatièreInventor", "=", iProperties.Material)
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
				
				
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				If i2 = -1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Plat "&Parameter("Para_A") & "x"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Plat "&Parameter("Para_A") & "x"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
		End If
'CAS2---------------------------
		Case "Rond"
			'MessageBox.Show(iProperties.Material, "c'est du rond")

			'Cherche une combinaison de Dimension et matière dans le fichier excel
			
			'TEST ligne ci dessous masqué
			i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Diamètre", "=", Parameter("Para_A"),"MatièreInventor", "=", iProperties.Material)
				'A = GoExcel.CellValue(oExcelPath, Onglet1, "A2")
				'B = GoExcel.CellValue(oExcelPath, Onglet1, "C2")
				'C = GoExcel.CellValue(oExcelPath, Onglet1, "B2")
				'MessageBox.Show(A, "Lecture diametre")
				'MessageBox.Show(B, "Matière")
				'MessageBox.Show(C, "Matière")
				'MessageBox.Show(iProperties.Material, "Matière")
				
				
			
				'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
				If i1 = -1 Then
						'MessageBox.Show(iProperties.Material, "c'est du rond manuel")
						'Dim MonMot As String 
						'MonMot = "La section " & Parameter("Para_A") & "x"  &Parameter("Para_B")& " en " & iProperties.Material & " n'est pas dans base de données. La matière ERP est de type MMxxxxx"
						
						i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
						If i2 = -1 Then 
							MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
						Else	
						MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
						
						iProperties.Value("Custom", "MatièreERP") = MatErp
						iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
						iProperties.Value("Project", "Stock Number")="Rond Ø"&Parameter("Para_A") & " L="&Parameter("Para_L")&"mm"
						End If
			
			'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
					Else
						'MessageBox.Show(iProperties.Material, "c'est du rond auto")
						MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
						
						iProperties.Value("Custom", "MatièreERP") = MatErp
						iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
						iProperties.Value("Project", "Stock Number")="Rond Ø"&Parameter("Para_A") & " L="&Parameter("Para_L")&"mm"
		End If
'CAS3---------------------------		
Case "Ebauche"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "De", "=", Parameter("Para_A"), "Di", "=", Parameter("Para_B"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Ø"&Parameter("Para_A") & "/Ø"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "E" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Ø"&Parameter("Para_A") & "/Ø"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
		End If
		
	
'CAS4---------------------------		
Case "Cornière LAC à ailes égales (Din)"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Largeur", "=", Parameter("Para_A"), "Epaisseur", "=", Parameter("Para_B"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Cornière LAC  "&Parameter("Para_A") & "x"&Parameter("Para_A") & " Ep"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Cornière LAC  "&Parameter("Para_A") & "x"&Parameter("Para_A") & " Ep"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
		End If		

'CAS5---------------------------		
Case "Cornière LAC à ailes inégales (Din)"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Largeur1", "=", Parameter("Para_A"),"Largeur2", "=", Parameter("Para_B"), "Epaisseur", "=", Parameter("Para_C"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Cornière LAC  "&Parameter("Para_A") & "x"&Parameter("Para_B") & " Ep"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Cornière LAC  "&Parameter("Para_A") & "x"&Parameter("Para_B") & " Ep"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
		End If		

'CAS 6---------------------------		
Case "Cornière LAC à ailes inégales (Iso)"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Largeur1", "=", Parameter("Para_A"),"Largeur2", "=", Parameter("Para_B"), "Epaisseur", "=", Parameter("Para_C"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Cornière LAC  "&Parameter("Para_A") & "x"&Parameter("Para_B") & " Ep"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Cornière LAC  "&Parameter("Para_A") & "x"&Parameter("Para_B") & " Ep"  &Parameter("Para_B")& " L="&Parameter("Para_L")&"mm"
		End If	
	
'CAS 7---------------------------		
Case "UPE"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="UPE "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="UPE "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If
		
'CAS 8---------------------------	
	Case "UPN"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="UPN "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="UPN "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If
		
'CAS 9---------------------------	
	Case "U plié à froid"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Largeur", "=", Parameter("Para_A"),"Hauteur", "=", Parameter("Para_B"),"Epaisseur", "=", Parameter("Para_C"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="U à froid "&Parameter("Para_B") &"x"&Parameter("Para_A")&"x"&Parameter("Para_B")&" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="U à froid "&Parameter("Para_B") &"x"&Parameter("Para_A")&"x"&Parameter("Para_B")&" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
			End If
'CAS 10---------------------------	
	Case "Tube Carré"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"),"Epaisseur", "=", Parameter("Para_B"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Tube "&Parameter("Para_A") &"x"&Parameter("Para_A")&" Ep"&Parameter("Para_B")&" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Tube "&Parameter("Para_A") &"x"&Parameter("Para_A")&" Ep"&Parameter("Para_B")&" L="&Parameter("Para_L")&"mm"
		End If

'CAS 11---------------------------	
	Case "Tube Rectangulaire"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"),"Largeur", "=", Parameter("Para_B"),"Epaisseur", "=", Parameter("Para_C"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Tube "&Parameter("Para_A") &"x"&Parameter("Para_B")&" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "E" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Tube "&Parameter("Para_A") &"x"&Parameter("Para_B")&" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
		End If

'CAS 12---------------------------	
	Case "Equerre Alu"
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show("Cas 12 Equerre Alu", "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")
	'Cherche une combinaison de Dimension et matière dans le fichier excel
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'MessageBox.Show(Parameter("tempA") , "Title")
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Largeur1", "=", Parameter("Para_A"),"Largeur2", "=", Parameter("Para_B"),"Epaisseur", "=", Parameter("Para_C"), "MatièreInventor", "=", iProperties.Material)


	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Equerre "&Parameter("Para_A") &"x"&Parameter("Para_B")&" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "F" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="Equerre "&Parameter("Para_A") &"x"&Parameter("Para_B")&" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
		End If

'CAS 13---------------------------	
	Case "U en alu"
		'MessageBox.Show("Cas 13 U en Alu", "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")
	
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"),"Largeur", "=", Parameter("Para_B"),"Epaisseur", "=", Parameter("Para_C"), "MatièreInventor", "=", iProperties.Material)

'MessageBox.Show(i1, "Para_A")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="U "&Parameter("Para_B") &"x"&Parameter("Para_A")&"x"& Parameter("Para_B") &" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "E" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="U "&Parameter("Para_B") &"x"&Parameter("Para_A")&"x"& Parameter("Para_B") &" Ep"&Parameter("Para_C")&" L="&Parameter("Para_L")&"mm"
		End If

'CAS 14---------------------------	
	Case "IPN"
		
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="IPN "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="IPN "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If

'CAS 15---------------------------	
	Case "IPE"
		
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="IPE "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="IPE "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If
		
'CAS 16---------------------------	
	Case "IPB"
		
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="IPB "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="IPB "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If

'CAS 17---------------------------	
	Case "HEA"
		
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="HEA "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="HEA "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If

'CAS 18---------------------------	
	Case "HEB"
		
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="HEB "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="HEB "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If
		
		
'CAS 19---------------------------	
	Case "HEM"
		
	'MessageBox.Show(iProperties.Material, "Para_A")
	'MessageBox.Show(Onglet1, "Para_A")

	'Cherche une combinaison de Dimension et matière dans le fichier excel
	i1 = GoExcel.FindRow(oExcelPath, Onglet1, "Hauteur", "=", Parameter("Para_A"), "MatièreInventor", "=", iProperties.Material)
	'Parameter("tempA") = GoExcel.CellValue(oExcelPath, Onglet1, "A1")
	'Parameter("tempB") = GoExcel.CellValue(oExcelPath, Onglet1, "B1")
	'Parameter("tempMat")=GoExcel.CellValue(oExcelPath, Onglet1, "D1")
	
		'Si on ne trouve pas la combinaison i=-1 et on utilise une matière manuelle
			If i1 = -1 Then
		
				i2 = GoExcel.FindRow(oExcelPath, "Matière Manuelle", "MatièreInventor", "=", iProperties.Material)
				
				If i2 = - 1 Then 
					MessageBox.Show("Une matière d'inventor n'est pas definit dans le fichier Excel", "ERREUR")
				Else	
			
				MatErp = GoExcel.CellValue(oExcelPath, "Matière Manuelle", "B" & i2)
				'MessageBox.Show(Parameter("Para_A"), "A")
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="HEM "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
				End If
	
	'Si on  trouve  la combinaison -> on utilise une matière auto MAxxxxx	
			Else
				MatErp = GoExcel.CellValue(oExcelPath, Onglet1, "D" & i1)
				
				iProperties.Value("Custom", "MatièreERP") = MatErp
				iProperties.Value("Custom", "LongueurERP") = Parameter("Para_L")
				iProperties.Value("Project", "Stock Number")="HEM "&Parameter("Para_A") &" L="&Parameter("Para_L")&"mm"
		End If

	Case Else
		MessageBox.Show("Rien n'a été trouvé vérifier les valeurs indiquées", "Il y a un problème")


End Select

mslosar · ‎01-14-2021

Seeing a similar thing. I get the following on parts with go.excel rules. Couple other people in the office seeing the same thing.

System.Runtime.InteropServices.COMException (0x800A03EC): Exception from HRESULT: 0x800A03EC
at Microsoft.Office.Interop.Excel.Workbooks.Open(String Filename, Object UpdateLinks, Object ReadOnly, Object Format, Object Password, Object WriteResPassword, Object IgnoreReadOnlyRecommended, Object Origin, Object Delimiter, Object Editable, Object Notify, Object Converter, Object AddToMru, Object Local, Object CorruptLoad)
at Autodesk.iLogic.Core.ExcelInterface.ComApplication.Open(String fileName)
at iLogic.GoExcel.SetCurrentSheet(String fileName, String sheetName)
at iLogic.GoExcel.SetCurrentSheetNoCache(String bookName, String sheetName)
at iLogic.GoExcel.get_CellValue(String fileName, String sheetName, String cellAddress)
at ThisRule.Main()
at Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
at iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

A.Acheson · ‎01-14-2021

@Remy-intl

Can you verify that all parameter required exist on your colleagues files?
Try and open the excel file using the open method to ensure it is able to access the file. Navigate to the folder and verify it is indeed opening in the background and has ~ beside it's name.

Use Message box to step through each line to see where the code is failing.

GoExcel.Open("filename.xls", "Sheet1")

MessageBox.Show("Code Working Untill Now", "iLogic")

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan

mslosar · ‎01-14-2021

In our case, it's the same files - pulled from vault.

We have 3 machines - 2 do not work, 1 does work.

Looked online and have tried deleting registry entries and the repair installation. In order to try a full uninstall/reinstall of office requires IT intervention.

The only thing we can see that changed on those 2 machines (as it was working earlier in the week) was that 2021 was deployed to them in between. Waiting for everyone to get 21 before allowing it for production.

When you set ilogic to Com in 2021 it fails there as well. The files have plenty of calculated values...so, COM it is for now.

WCrihfield · ‎01-18-2021

@Remy-intl @mslosar

There is a way to bypass using iLogic's GoExcel references altogether, as long as each user has access to the actual Excel application locally. It may not even matter if some are a different version than others. I have mostly been working with Excel without using any of the GoExcel stuff for a fairly long time now within iLogic rules.

Here is (somewhat) simple example iLogic rule that, no matter what document type is active, writes all UserParameters out to a new sheet in a new Excel spreadsheet document.

(I deleted/commented out the part where it saves and closes the document, and closes Excel, so it will remain open and visible, and not write anything to your hard drive.)

AddReference "Microsoft.Office.Interop.Excel.dll"
Imports Microsoft.Office.Interop.Excel

Dim oDocType As DocumentTypeEnum = ThisApplication.ActiveDocumentType
Dim oUParams As UserParameters
If oDocType = DocumentTypeEnum.kPartDocumentObject Or _
	oDocType = DocumentTypeEnum.kAssemblyDocumentObject Then
	oUParams = ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
ElseIf oDocType = DocumentTypeEnum.kDrawingDocumentObject Then
	oUParams = ThisDrawing.Document.Parameters.UserParameters
End If
Dim oUParam As UserParameter

'Dim oXLFile As String = "C:\Data\TestExcel.xlsx"
Dim oExcel As New Microsoft.Office.Interop.Excel.ApplicationClass
oExcel.DisplayAlerts = False
oExcel.Visible = True
Dim oWB As Workbook = oExcel.Workbooks.Add
Dim oWS As Worksheet = oWB.Sheets.Add
Dim oCells As Range = oWS.Cells

'Create column headers, if wanted
'First number is Row index, second number is Column Index
oCells.Item(1, 1).Value = "NAME"
oCells.Item(1, 2).Value = "VALUE"

'Start writing data on row 2
Dim i As Integer = 2
For Each oUParam In oUParams
	oCells.Item(i,1).Value = oUParam.Name
	oCells.Item(i, 2).Value =  oUParam.Value
	i = i + 1
Next
oWS.Columns.AutoFit

'oWS = Nothing
'oWB.Save
'oWB.Close
'oWB = Nothing
'oExcel.Quit
'oExcel = Nothing

Just another option. It may help you avoid similar changes in the future, and may be a bit more stable for you. You can find more documentation online for working with Excel using vb.net (not VBA).

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.

If you have time, please... Vote For My IDEAS 💡or you can Explore My CONTRIBUTIONS

Inventor 2021 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum

Wesley Crihfield

(Not an Autodesk Employee)

mslosar · ‎01-21-2021

Any progress on this?

It's looking like here it's going to require the uninstall and reinstall of office. The problem with that is we're currently deploying to about 200 machines and we really should not have to redo office on 200 machines. There should be a smaller fix that can be made to correct this.

WCrihfield · ‎01-21-2021

I'm pretty sure I've seen multiple other posts which mention similar issues. Sounds like a bug that the folks at Autodesk need to work on. You probably need to contact someone that works at Autodesk. I don't generally like to tell others here on the forums to 'tag' one of the Autodesk people on here by including their @ user name in your post somewhere, because I'm sure they are very busy and it is probably annoying, but it is an idea. I'm not likely to be of much further help on this matter.

Wesley Crihfield

(Not an Autodesk Employee)

mslosar · ‎01-21-2021

I've got an email chain going with someone there so i just sent the issue to them to hopefully create a ticket with Autodesk.

Community

Go excel. Rules work on 2 computers but not on the other...

Go excel. Rules work on 2 computers but not on the other...

Go excel. Rules work on 2 computers but not on the other...