[E-00] Exploiter une fonction qui se trouve dans un fichier à partir d'excel

Version imprimable

05/02/2009, 08h07
Benjycool

[E-00] Exploiter une fonction qui se trouve dans un fichier à partir d'excel

Bonjour,

Je voudrais appeler une fonction qui se trouve dans un fichier .odt ou .vb ou n'importe quoi. Mais à partir de visual basic.

Car j'ai une fonction qui est la même pour plusieurs fichiers excel (6 en tout) donc j'aimerais qu'il appelle tous la même au lieu de devoir récrire 6 fois le même code.

Comment faire ?

Merci de bien vouloir m'aider.

Benjycool
05/02/2009, 08h19
Invité

Bonjour

:koi: un fichier .odt est un fichier OpenOffice, il y a le moyen de piloter OpenOffice http://silkyroad.developpez.com/VBA/PiloterOpenOffice/

Par contre pour les fichier .vb je ne vois pas.

Philippe
05/02/2009, 08h26
Benjycool

Ok merci je suis en train de le consulter. Mais il n'y a pas un moyen plus simple ???

Genre je mais le code dans un fichier wordpad ou même dans un bloc note et grâce à une syntaxe particulière j'utilise le code depuis excel ???
05/02/2009, 08h37
Invité

Bonjour

Citation:

Envoyé par Benjycool

Genre je mais le code dans un fichier wordpad ou même dans un bloc note et grâce à une syntaxe particulière j'utilise le code depuis excel ???

Personnellement (je peux me tromper), mais il faut bien un logiciel pour interpréter la fonction, le seul moyen serait de copier la fonction dans son intégralité dans VBE et de l'utiliser. Pour cela tu peux lire cet article : http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Philippe
05/02/2009, 09h11
Benjycool

Merci je pense que c'est ce qu'il me faut. Je viens de le regarder mais je n'y comprend pas grand chose (chapitre IV).

Je ne suis pas un expert en excel et le code dans le chapitre est je trouve assez complexe à comprendre peut tu m'aider ?

Benjycool
05/02/2009, 09h17
ouskel'n'or

Bonjour Philippe, Benjycool, tous
Benjycool , je crois que tu sous-entend l'utilisation de vbscript (écrit avec le bloc-note ou wordpad...)
Sinon, tu as la possibilité d'utiliser une "macro complémentaire" sous la forme d'un fichier.xla.
Les macros complémentaires sont des macros VBA placées dans des fichiers Excel enregistrés sous ".xla.
Elles sont accessibles depuis n'importe quelle macro dès lors qu'elles ont été validées,
- soit par macro (voir Addins dans l'aide en ligne)

Code:

AddIns.Add(Chemin & "Fichier.xla").Installed = True

- soit dans Excel -> Menu Outils -> Macros complémentaires.
Bonne journée
05/02/2009, 09h28
DarkVader

Bonjour,
Une autre solution, si tu maitrises mal VBA, serait après avoir récupérer le code source,
d'utiliser un ScriptControl.
Cela suppose que le code est écrit en Javascript ou en VBScript.
05/02/2009, 10h15
Benjycool
ouskel'n'or je suis en train de tester ta methode mais sans réussite.
Il faut dire que je ne sais pas trop ce qu'il faut faire.

J'ai ouvert un nouveau classeur (Module_DIV) ou j'ai insérer le code dans le module1 de Module_DIV puis je l'ai enregistrer en .xla.

Ensuite dans le classeur ou je veut utiliser la fonction, j'ai ecrie ce que tu ma dit puis ensuite appelé la fonction que je voulais mais sans réussite. :
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() AddIns.Add("G:\Cours\Stage\Stage 2eme année\SES\Division\" & "Module_DIV.xla").Installed = True Call Export("1") End Sub
Où j'ai foirer ????

Benjycool

Teste ça

Code:

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
     AddIns.Add("G:\Cours\Stage\Stage 2eme année\SES\Division\" & "Module_DIV.xla").Installed = True
     'pour une fonction :
     r = Application.Run("Module_DIV.xla!Export", "1")
     'pour une macro
     Application.Run "Module_DIV.xla!Export", "1"
End Sub

05/02/2009, 14h18
Benjycool

Ok sa marche merci, par j'ai un message qui s'affiche quand le clique sur le bouton :

"Copier 'Module_DIV.xla' dans la bibliothèque de macro complémentaires pour administrateur ?"

Je dois mettre non pour que sa marche.

Mais comment je peut faire pour que le message n'apparaisse pas ??? Qu'il fasse directement non quoi en faite ???

Merci de m'aider.

Benjycool
05/02/2009, 14h35
ouskel'n'or

Citation:

Envoyé par Benjycool

comment je peux faire pour que le message n'apparaisse pas ??? Qu'il fasse directement non quoi en fait ???

Aucune idée, désolé, je n'ai pas ce message.
Où se trouve le bouton ?
Quand le message apparaît-il ?
Quelle version d'Excel as-tu ?

Tu peux toujours ajouter en début de code du bouton

Code:

Application.displayAlerts = false

mais sans garantie puisque je n'observe pas ce phénomène.
Sur mon poste l'.xla se trouve dans "C:\Documents and Settings\User (c'est moi) \Application Data\Microsoft\Macros complémentaires"
Peut-être est-ce la raison...

Espérons que DarkVader repasse par là, il en saura peut-être plus que moi ;)
05/02/2009, 14h44
Benjycool

En fait j'ai une feuille excel avec diverse infomation mise en vrac dessus.
Avec le bouton j'envoie se que je souhaite avoir comme information dans un autre classeur.
Au fur et a mesure cela forme un tableau.

Le bouton se trouve donc sur la feuille du premier classeur, le chemin :
G:\Cours\Stage\Stage 2eme année\SES\Division\TB-Classeur1.xls

Et le fichier .xla :
G:\Cours\Stage\Stage 2eme année\SES\Division\Module_DIV.xla

Lorsque je met le code que tu m'as donné il me dit :
"erreur d'execution '1004' :
impossible de copier cette macro complémentaire dans la bibliothèque de macro."

C'est toi qui la créer ce dossier ???
05/02/2009, 14h51
Benjycool

Ok c'est bon, il suffit de le mettre dans le fichier que tu as dis c'est a dire, en l'occurence pour moi :

C:\Documents and Settings\user\Application Data\Microsoft\Macros complémentaires\Module_DIV.xla

Bon beh je te remercie de ton aide.

Benjycool