[VBA Excel] Ajout d'une dll

Version imprimable

17/07/2007, 15h32
franck.automaticien

[VBA Excel] Ajout d'une dll

Bonjour
je suis en ce moment d'elaborer une Macro pour importer des fichier dans un programme Automates, dans la documentation me dis qu'il faut ajouter une dll a Vba donc à ma Macro.

Comment puis je faire
ma macro ce situe "C:\PL7\PL7PRO44\EXE\gesta.dll"

Voila ce que dit ma documentation cela peux vous aidez:

Dans pièce jointe

Merci ++
17/07/2007, 15h38
Maxence HUBICHE

Certainement en passant par :

Outils / Références... (dans le menu du Visual Basic Editor)

il est possible que tu doives cliquer sur le bouton PARCOURIR... si jamais ta DLL n'est pas déjà présente.

vàlà;)
17/07/2007, 15h56
franck.automaticien

Existe t'il un moyen de le faire automatiquement?

Pour les autres utilisateurs de la macro, car la dll se trouve dans un logiciel que les utilisateurs pocederont pour utiliser la Macro.

Merci ++
17/07/2007, 16h00
Maxence HUBICHE

Lorsque tu fais un programme en VBA, tu utilises des DLL.
Ces dll sont les bibliothèque qui contiennent les éléments de code (Procédures, fonctions, constantes, ...) que tu vas réutiliser pour écrire ton programme.

Tout mot écrit dans ton langage VBA est issu d'une bibliothèque.
Sub
Function
With
For
inputbox
...
Tous ces mots sont dans des bibliothèques.

Au démarrage, tu as au moins 2 bibliothèque puor programmer Excel : VBA et Excel.

La méthode que je t'ai indiqué ne fait que rajouter une bibliothèque.
Cet ajout est inclus dans ton fichier.
Si donc tu ajoutes la bibliothèque en question, l'utilisateur n'aura pas à le faire.

vàlà ;)
17/07/2007, 16h03
franck.automaticien

Faut il redemarrer car cela ne fonctionne pas il ne reconnait pas la fonction utilisé...
17/07/2007, 16h34
Maxence HUBICHE

:koi: :koi: :koi: :koi: :koi: :koi:
Tu as ajouté la bibliothèque ?
Tu as validé ?
C'est à ce moment là que ca ne fonctionne pas ?

J'ai touvé un exemple dans mon logiciel afin de le commander mais je n'arrive pas a faire marcher les autres fonctions de la bibliotheque
pour la doc complete tu peux la télécharger

http://sitelec.free.fr/doc_tech/pl7/...eference_3.pdf

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Dim PL7Server As Object
 
 
Sub CreateSCY()
 
 Dim myVar As Integer
 Dim tmp As Integer
 'instanciate server
 Application.StatusBar = "Initializing PL7 OLE Server ..."
 Set PL7Server = CreateObject("PL7.Server")
 Application.StatusBar = ""
 
 'get stx file path and then open it
 stxFile$ = InputBox("source STX file?")
 Application.StatusBar = "reading " + stxFile$ + " ..."
 myVar = PL7Server.OpenStx(stxFile$)
 Application.StatusBar = ""
 
'generate scy File from this opened application
 scyFile$ = InputBox("destination SCY file?")
 Application.StatusBar = "writing " + scyFile$ + " ..."
 myVar = PL7Server.ExportScyFile(scyFile$)
 Application.StatusBar = ""
 
 tmp = MsgBox(scyFile$ + "successfully created from " + stxFile$)
 myVar = PL7Server.CloseStx(False)
 
End Sub