VBA Excel --> Inventor
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.
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 ?
Thomas
Mechanical Designer / Inventor Professional 2025
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")
Thomas
Mechanical Designer / Inventor Professional 2025
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:
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.
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.
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.
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.
