Discussion :

[franck.automaticien]

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 ++

[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à

[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 ++

[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à

[franck.automaticien]

Faut il redemarrer car cela ne fonctionne pas il ne reconnait pas la fonction utilisé...

[Maxence HUBICHE]

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

[franck.automaticien]

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 :

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

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

++