Communauté
Inventor - Français
Bienvenue sur les forums Inventor d’Autodesk. Partagez vos connaissances, posez des questions, collaborez sur des idées, et explorez les sujets Inventor populaires.
annuler
Affichage des résultats de 
Afficher  uniquement  | Rechercher plutôt 
Vouliez-vous dire : 

Exporter une valeurs vers excel

4 RÉPONSES 4
RÉSOLU
Répondre
Message 1 sur 5
jessy.croccel
497 Visites, 4 Réponses

Exporter une valeurs vers excel

Bonjour,

 

Je suis actuellement sur un projet où il faut faire un calcul de surface de plusieurs tubes (créer en ipièce) et mettre les valeurs sous forme de tableau dans excel.

Pour effectuer le calcul, j'ai utilisé une règle ainsi que la fonction VBA, le calcul marche (la valeur s'affiche en MSG BOX) mais je ne trouve pas la méthode pour exporter la valeur du calcul directement sur une feuille excel.

Pouvez-vous m'aiguiller ?

PS: Je suis débutant sur VBA 

Balises (4)
4 RÉPONSES 4
Message 2 sur 5
ThomasB44
en réponse à: jessy.croccel

Bonjour,

Voici un exemple de code en VBA qui écrit simplement une valeur dans une cellule d'un fichier Excel existant :

 

Sub ExcelApp()

'Create Excel Application Object
Dim ExcelApp As Excel.Application
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True

'Open workbook
Dim wb As Workbook
'Adresse + nom du fichier Excel
Dim ExcelFile As String
ExcelFile = "C:\Temp\MonFichierExcel.xls"
Set wb = ExcelApp.Workbooks.Open(ExcelFile)

'Store a value
wb.Worksheets("Feuil1").Cells(1, 2) = 10
'Save the workbook and quit Excel.
wb.Save
wb.Close
ExcelApp.Quit

End Sub

 


Thomas
Mechanical Designer / Inventor Professionnal 2023
Inventor Professional EESignature

Message 3 sur 5
jessy.croccel
en réponse à: ThomasB44

Merci pour votre réponse 

 

 

Balises (4)
Message 4 sur 5
ThomasB44
en réponse à: jessy.croccel

Le message indique que l'éditeur ne sait pas ce qu'est l'application Excel.

As tu coché, dans l'éditeur VBA/Outils/Références la référence Microsoft Excel ?

Capture.JPG


Thomas
Mechanical Designer / Inventor Professionnal 2023
Inventor Professional EESignature

Message 5 sur 5
patrick.emin
en réponse à: jessy.croccel

Bonjour @jessy.croccel 

Votre problème a-t-il été résolu? Si oui, pouvez vous nous indiquer de quelle façon pour que cela profite à la communauté, si non, pouvez vous nous apporter les précisions demandées de façon que nous puissions continuer à vous aider?

Si une des réponses à votre question résout votre problème, vous a permis de le comprendre ou contribue significativement à sa résolution, voulez vous avoir l'amabilité de cliquer sur le bouton "Accepter comme solution" en bas de la réponse? Merci.


Patrick Emin animateur de la communauté francophone


Vous avez trouvé un message utile? Alors donnez un "J'aime" à ce message!
Votre question a eu une réponse satisfaisante? Voulez vous avoir l'amabilité de cliquer sur le bouton
 APPROUVER LA SOLUTION  en bas de la réponse qui apporte une solution?
Signez notre Livre d'Or

Vous n'avez pas trouvé ce que vous recherchiez ? Posez une question à la communauté ou partagez vos connaissances.

Publier dans les forums