Discussion :

[Wilfried.G]

Bonjour,

Tout d'abord, je tiens à préciser que je suis novice en informatique et en programmation mais que j'en ai besoin pour un projet de fin d'étude.

Objectif : Créer deux fichiers entrées.xml et sorties.xml et faire appel à un coeur de calcul .dll sous excel afin de lire les fichiers d'entrées, faire le calcul avec le fichier .dll et sauvegarder les sorties en .xml

J'ai créer les fichiers entrées en sorties .xml et j'ai le fichier .dll sous la main.


Le manuel du coeur de calcul me donne un exemple du programme en vba afin de lancer un calcul :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim THCEX As New THCEX_PROJECT
Dim erreur As String
CurDir (App.Path)
THCEX.XMLLOAD (App.Path + "/projet.xml")
erreur = THCEX.RUN
THCEX.Save (App.Path + "/tmp.xml")
Set THCEX = Nothing

Cependant je comprends pas tout.
De plus THCEX_PROJECT n'est pas un type défini, faut il le définir soit même ?

J'ai lu les différents tuto mais je suis un peu perdu.
Ensuite CurDir sert à définir le chemin d'accès a ce que j'ai compris -> Je remplace donc App.Path par C:\Documents and Setting\Bureau
Mais arrivé à THCEX.XMLLOAD cela me dit "membre de méthode ou de données introuvables"

J'ai essayé avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test2()
Dim THCEX As New CustomXMLSchemaCollection
Dim erreur As String
CurDir ("C:\Documents and Settings\wga\Bureau")
XDocument.Load (My.Application.Info.DirectoryPath & "C:\Documents and Settings\wga\Bureau\projet.xml")
erreur = THCEX.RUN
THCEX.Save ("C:\Documents and Settings\wga\Bureau\tmp.xml")
Set THCEX = Nothing
End Sub

Et ça bloque desormais au .RUN
que faire ? remplacer par " Run "C: ... " ?


Je sais pas si c'est très clair mais je répondrai a vos questions volontiers.

Cordialement.

[AlainTech]

Bonjour,

Quel est le nom de la dll?

Tu dois activer cette dll dans les Références du projet VBA.