Discussion :

[Benjycool]

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

[Invité]

Bonjour

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

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

[Invité]

Bonjour

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

[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

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

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

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

- soit dans Excel -> Menu Outils -> Macros complémentaires.
Bonne journée

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

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

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

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

[ouskel'n'or]

Teste ça

Code :

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

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

[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

[ouskel'n'or]

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 :

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

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

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

[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