sujet Re: VBA Excel --> Inventor dans Inventor - Forum Français

VBA Excel --> Inventor

e_boinot — Tue, 31 Oct 2023 16:52:57 GMT

Bonjour,

Nouveau sur le forum, je sollicite votre aide pour un sujet de copie de données d'Excel vers un formulaire Inventor.
J'ai créé un formulaire qui s'affiche directement à l'ouverture d'une nouvelle pièce via un évènement déclencheur et une règle pour remplir les ipropriétés d'une pièce (nom, numéro, indice, etc).
Je cherche à pré-remplir en automatique les champs de ce formulaire par un fichier Excel qui nous fait l'incrémentation des numéros de pièces (par exemple en "scannant" la ligne sélectionnée pour les différents champs nécessaires).
Est-ce possible, et si oui, pourriez-vous m'aider à mettre cela en place?
Pour vous situer, côté compétences, j'ai fait le fichier Excel de génération/incrémentation de pièces et d'indices, donc je connais la programmation vba Excel, mais ne sais pas comment faire le lien avec un autre logiciel comme Inventor.

Merci d'avance.

Re: VBA Excel --> Inventor

vpeuvion — Thu, 02 Nov 2023 08:08:53 GMT

Bonjour,

Préremplir automatiquement les champs du formulaire me semble assez compliqué et même peut-être pas réalisable avec un formulaire Inventor.

Par contre, vous pouvez modifier directement les valeurs des ipropriétés par celles de cellules d'un fichier Excel.

Voici un exemple :

J'ai créé un fichier excel contenant des valeurs dans la colonne A.

Dans une pièce Inventor, j'ai créé une iProperty "MaPropriété" dans l'onglet personnalisation.

J'ai créé une règle iLogic contenant ce code :

GoExcel.Open("C:\Test.xlsx","Feuil1") ' Ouverture de la feuille nommée Feuil1 du fichier Excel Test.xlsx
iProperties.Value("Custom","MaPropriété") = GoExcel.CellValue("A3") ' MaPropriété est égale à la valeur de la cellule A3
GoExcel.QuitApplication 'Fermeture du fichier excel

Après exécution de la règle, la valeur de la iProperty devient égale à celle de la cellule.

J'espère vous avoir aidé.

Vincent.

Re: VBA Excel --> Inventor

ThomasB44 — Thu, 02 Nov 2023 08:31:51 GMT

Salut @e_boinot

Commençons par le début :

Tu souhaites programmer dans Excel ? Donc en VBA ? Et piloter Inventor depuis Excel ?
Ou dans Inventor ? En VBA ou iLogic/VB.NET ? Et lire du Excel depuis Inventor ?

Comme tu souhaites utiliser un formulaire, je dirais iLogic ?

Re: VBA Excel --> Inventor

e_boinot — Mon, 06 Nov 2023 13:24:58 GMT

Bonjour, tout d'abord merci pour votre aide et mes excuses pour mon retour tardif. Pas facile de concilier ce développement et le travail de tous les jours!

@vpeuvion : J'ai voulu tester votre code mais le code s'arrête des la première ligne (message: "erreur de syntaxe"). Il y a peut-être des lignes à écrire avant?

Le formulaire permet de compléter d'autres données, c'est pourquoi j'aurais aimé un préremplissage. Mais si ce n'est pas possible, une modification directe des valeurs des ipropriété serait envisageable. Voir également la suite de ma réponse à @ThomasB44 pour la précision du besoin si nécessaire.

@ThomasB44 : Voici l'explication de notre process et ce que j'aimerais faire: Nous ouvrons un fichier Excel dans lequel nous remplissons un nom de pièce et qui génère un numéro, ou incrémente un numéro d'indice dans le cas d'une pièce existante. Côté Inventor, nous avons créé un formulaire en iLogic pour remplir les différentes propriétés de la pièce. Ce formulaire s'ouvre à chaque nouvelle pièce créée via une règle et un élément déclencheur. Nom, numéro et indice de pièce doivent être ceux générés par le fichier Excel.

L'idée serait:

- On ouvre le fichier Excel pour générer un numéro de pièce

- On remplit les champs dans ce fichier Excel

- On ouvre Inventor, fichier/Nouveau et on choisit le Gabarit disposant du formulaire

- A son ouverture, le formulaire vient chercher en automatique les champs de la ligne sélectionnée dans le fichier Excel.

Donc pour moi ce serait une macro dans Inventor qui va chercher les données dans Excel, mais je peux me tromper.

Voir image jointe pour plus de clarté.

Re: VBA Excel --> Inventor

ThomasB44 — Mon, 06 Nov 2023 13:57:00 GMT

Salut @e_boinot

Dans ce cas l'exemple de code fournit par @vpeuvion est la bonne démarche.

Dans sa première ligne de code, il faut renseigner le fichier Excel, si le chemin et la feuille ne sont pas bons, le code retourne une erreur. Teste à nouveau avec un chemin valide.

Cette commande apparaît en violet car elle fait partie des commandes iLogic, elle n'a pas besoin de déclaration.

Comme celle-ci par exemple :

excel = GoExcel.CurrentRowValue("columnName")

Re: VBA Excel --> Inventor

vpeuvion — Mon, 06 Nov 2023 14:01:15 GMT

Bonjour, est-ce que vous avez modifié la première ligne pour qu'elle corresponde à votre fichier Excel?

Est-ce que la feuille est bien nommée Feuil1?

Le code fonctionne bien de mon côté.

Pour utiliser le formulaire et combiner des iPropriétés préremplies et d'autres remplies manuellement, ce code fonctionne aussi.

J'ai créé un formulaire contenant la iPropriété "MaPropriété" et un bouton exécutant la règle.

Lorsque j'ouvre le formulaire, la iPropriété est égale à 0 et lorsque j'exécute la règle depuis le formulaire, elle devient égale à la valeur de la cellule A3, le formulaire est mis à jour automatiquement et la valeur passe à 5000.

Voir vidéo en pièce jointe.

Vincent.

Re: VBA Excel --> Inventor

e_boinot — Mon, 06 Nov 2023 16:53:10 GMT

Merci encore pour vos réponses.

Oui, j'ai bien adapté au nom de fichier et de feuille. Quand je modifie la ligne, voici le message

Et quand je lance la macro:

Re: VBA Excel --> Inventor

vpeuvion — Mon, 06 Nov 2023 17:06:17 GMT

L'exemple a été fait pour une règle iLogic.

Dans l'onglet Ilogic/Règles faites un clic droit et cliquez sur Ajouter une règle.

Vous pouvez copier/coller l'exemple de code en changeant les paramètres de votre document Excel et exécuter la règle.

Si vous voulez que la règle s'exécute à l'ouverture du document, vous pouvez utiliser les évènements déclencheurs.

Vincent.

Re: VBA Excel --> Inventor

vpeuvion — Tue, 07 Nov 2023 08:54:20 GMT

Bonjour,

Si d'après l'image que vous avez posté, vous voulez obtenir les informations des colonnes E,F et G de la ligne sélectionnée d'un fichier Excel ouvert, vous pouvez essayer ce code dans une règle iLogic.

Il se connecte à l'application Excel ouverte et va rechercher les valeurs des cellules de la ligne sélectionnée et des colonnes E,F et G.

Vous devez ajouter en référence dans l'En-tête : Microsoft.Office.Interop.Excel.dll pour qu'il fonctionne.

Vous devrez peut-être la télécharger.

AddReference "C:\Projects\packages\Microsoft.Office.Interop.Excel.15.0.4795.1001\lib\net20\Microsoft.Office.Interop.Excel.dll"
Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Sub Main
	Dim ExcelApp As Excel.Application = Nothing
	Try
	  ExcelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application) 'Connexion à l'application Excel active.
	Catch ex As Exception
		MessageBox.Show(ex.Message)
		Exit Sub
	End Try
	iProperties.Value("Custom","INDICE") = ExcelApp.Worksheets(1).Cells(ExcelApp.ActiveCell.Row, 5).value ' Valeur de la cellule (ligneActive, colonne E) de la première feuille
	iProperties.Value("Custom","NOM") = ExcelApp.Worksheets(1).Cells(ExcelApp.ActiveCell.Row, 6).value ' Valeur de la cellule (ligneActive, colonne F) de la première feuille
	iProperties.Value("Custom","REF_ETUDE") = ExcelApp.Worksheets(1).Cells(ExcelApp.ActiveCell.Row, 7).value ' Valeur de la cellule (ligneActive, colonne G) de la première feuille
	
End Sub

Vincent.

Re: VBA Excel --> Inventor

e_boinot — Tue, 07 Nov 2023 09:17:27 GMT

Mea Culpa, j'étais passé trop vite sur la mention "J'ai créé une règle iLogic..." de votre premier message. Je ne connais pas trop iLogic, et le code m'avait fait penser à du VBA, et comme je pensais que ce n'était possible qu'avec du VBA...

J'étais en train d'essayer le code de votre premier post en adaptant car Excel sera déjà ouvert. Mais je viens de voir que vous avez envoyé un nouveau message sur lequel je vais me pencher.

Re: VBA Excel --> Inventor

e_boinot — Tue, 07 Nov 2023 09:54:36 GMT

@vpeuvion : Merci beaucoup, avec le dernier post, cela fonctionne à merveille! Juste une question, qu'est ce qui diffère entre votre premier post et le dernier, et le fait qu'il faille utiliser cette bibliothèque ddl?

Si je peux encore abuser de vos connaissances, autre question (un peu hors-sujet par rapport au titre du fil), savez-vous s'il est possible de rendre certains champs obligatoires (donc non facultatifs) dans un formulaire d'ipropriétés? Et donc Rendre la validation du formulaire impossible tant que toutes champs obligatoires n'ont pas été remplis?

Merci.

Re: VBA Excel --> Inventor

vpeuvion — Tue, 07 Nov 2023 10:38:26 GMT

Content que ça fonctionne.

Le premier post utilise l'interface IGoExcel disponible dans l'API d'iLogic. C'est en quelque sorte un outil pour accéder à un fichier Excel depuis iLogic. Avec cette interface, il est très facile d'aller lire ou écrire des informations dans un fichier Excel lorsque que l'on connaît l'emplacement de la cellule.

https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=af87c7b4-cf59-8cce-c207-cbd8a3b6632e

Au départ je pensais que c'est ce qui correspondait le mieux à votre besoin.

Après avoir vu l'image en pièce jointe, vous aviez besoin de savoir quelle ligne était sélectionnée pour récupérer les valeurs. A ma connaissance, on ne peut pas récupérer la ligne active avec l'interface IGoExcel.

Dans le dernier post, l'import de la bibliothèque permet de piloter directement l'application Excel.

https://learn.microsoft.com/fr-fr/dotnet/api/microsoft.office.interop.excel.application?view=excel-pia

Pour résumer dans le premier post j'accède au fichier Excel depuis iLogic et dans le dernier, j'accède à l'application Excel ouverte.

Concernant les champs obligatoires dans les formulaires, à ma connaissance, il n'y a pas d'option pour les rendre obligatoires.

Je vous suggère de poser cette question dans un nouveau post, peut-être que d'autres personnes ont la solution ou ont trouvé une solution pour contourner ce problème.

Vincent.

Re: VBA Excel --> Inventor

e_boinot — Tue, 07 Nov 2023 13:39:58 GMT

@vpeuvion. Merci beaucoup pour les explications, les liens proposés pour bien comprendre et surtout le temps passé à me répondre!

J'aurais une autre demande, j'aimerais aussi que la règle vérifie qu'Excel soit bien ouvert ET que le bon fichier soit actif (au cas où plusieurs fichiers Excel sont ouverts). Dans le cas contraire, un message d'erreur. Est-ce possible?

Pour les champs obligatoires dans les formulaires, je vais poser une autre question sur le forum, merci.

Re: VBA Excel --> Inventor

vpeuvion — Tue, 07 Nov 2023 16:35:42 GMT

Oui c'est possible, voici un exemple commenté :

AddReference "C:\Projects\packages\Microsoft.Office.Interop.Excel.15.0.4795.1001\lib\net20\Microsoft.Office.Interop.Excel.dll"
Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Sub Main
	Dim ExcelApp As Excel.Application = Nothing
	Try ' Essaye de se connecter à l'application Excel active
	  ExcelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application) ' Connexion à l'application Excel active.
	Catch ex As Exception ' Si échec : Affichage message d'erreur
		MessageBox.Show("Aucune application Excel ouverte : Ouvrir le fichier NumeroPieces.xlsx","Erreur",MessageBoxButtons.OK,MessageBoxIcon.Warning)
		Exit Sub ' Si échec : quitte le programme
	End Try

	If ExcelApp.ActiveWorkbook.Name = "NumeroPieces.xlsx" Then ' Si le fichier Excel actif est NumeroPieces.xlsx alors essai de copie des valeurs
		Try ' Essaye de copier les valeurs
			iProperties.Value("Custom","INDICE") = ExcelApp.Worksheets(1).Cells(ExcelApp.ActiveCell.Row, 5).value ' Valeur de la cellule (ligneActive, colonne E) de la première feuille
			iProperties.Value("Custom","NOM") = ExcelApp.Worksheets(1).Cells(ExcelApp.ActiveCell.Row, 6).value ' Valeur de la cellule (ligneActive, colonne F) de la première feuille
			iProperties.Value("Custom", "REF_ETUDE") = ExcelApp.Worksheets(1).Cells(ExcelApp.ActiveCell.Row, 7).value ' Valeur de la cellule (ligneActive, colonne G) de la première feuille
		Catch ex As Exception ' Si échec : affichage message d'erreur
			MessageBox.Show("Erreur pendant le transfert des données : " & ex.Message,"Erreur",MessageBoxButtons.OK,MessageBoxIcon.Warning)
		End Try
	Else ' Sinon affichage message d'erreur
		MessageBox.Show("Le fichier NumeroPieces.xlsx n'est pas actif ou n'est pas ouvert : Ouvrir le fichier NumeroPieces.xlsx ou le rendre actif","Erreur",MessageBoxButtons.OK,MessageBoxIcon.Warning)
	End If
End Sub

Vérifiez que le nom du fichier Excel et que l'extension correspondent bien à votre fichier.

Vincent.

Re: VBA Excel --> Inventor

e_boinot — Tue, 07 Nov 2023 22:05:15 GMT

Merci Vincent, cela répond complètement au besoin, avec les explications détaillées en plus, pour pouvoir progresser dans la compréhension. C'est parfait.

Re: VBA Excel --> Inventor

e_boinot — Wed, 15 Nov 2023 16:14:39 GMT

@vpeuvion

Bonjour Vincent,

J'ai une nouvelle demande. Sur le poste d'un de mes collègues, la règle ilogic ne fonctionne pas, le message d'erreur mentionne qu'aucune application Excel n'est ouverte. Pourtant, Excel est bien ouvert. La seule différence est qu'il dispose d'Office 365 apps for business alors que tous les autres disposent d'Office 2019 Pro Plus. Cela peut-il être la cause? Si oui, comment corriger? Une bibliothèque .dll différente? Si non, une idée de la cause potentielle?

Merci.

Re: VBA Excel --> Inventor

vpeuvion — Wed, 15 Nov 2023 17:01:19 GMT

Bonjour, je ne pense pas que ce soit la cause. J'utilise Office 365 Apps for entreprise et ça fonctionne bien de mon côté.

Est-ce que le fichier Excel est bien ouvert sur l'application et pas dans le navigateur?

Essayez ce code dans une règle ilogic sur votre poste et celui de votre collègue. Il affiche toutes les applications ouvertes dans le journal iLogic et affiche un message s'il trouve l'application Excel.

For Each oProcess As Process In Process.GetProcesses
	Logger.Info(oProcess.ProcessName)
	If oProcess.ProcessName.Contains("EXCEL") Then MessageBox.Show(oProcess.ProcessName)
Next

Vincent.

Re: VBA Excel --> Inventor

e_boinot — Thu, 16 Nov 2023 16:17:33 GMT

Vincent, il ouvre bien l'application Excel, et non pas dans le navigateur. J'ai testé le code et effectivement, si Excel est ouvert, la MsgBox s'ouvre bien et on voit le processus dans le journal iLogic. Par contre, il y a toujours le message d'erreur mentionne qu'aucune application Excel n'est ouverte à l'ouverture de la pièce. Une idée?

Re: VBA Excel --> Inventor

vpeuvion — Thu, 16 Nov 2023 16:58:39 GMT

Bonjour, bizarre. Est-ce que vous pouvez essayer ce code sur le poste de votre collègue et me donner une capture des 2 messages d'erreur qui apparaissent?

AddReference "C:\Projects\packages\Microsoft.Office.Interop.Excel.15.0.4795.1001\lib\net20\Microsoft.Office.Interop.Excel.dll"
Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

	Dim ExcelApp As Excel.Application = Nothing
	Try 
	  ExcelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application) 
	Catch ex As Exception 
		MessageBox.Show(ex.Message)
	End Try
	ExcelApp = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application)

Vincent.

Re: VBA Excel --> Inventor

e_boinot — Thu, 16 Nov 2023 17:07:38 GMT

Merci Vincent,

voici les 2 messages d'erreur: