Importation Module VB

Bonjour à tous.

Voilà, je viens vers vous car je n'arrive pas à faire quelque chose qui me parait pourtant tout simple.

Le contexte est le suivant.
Je souhaite à partir d'un fichier Excel générer un fichier Excel qui compile des données de plusieurs Excel placés sur mon disque C:

J'arrive à faire tous les transferts de données que je veux mais là ou je bloque c'est que les fichiers générés doivent contenir 2 Userforms et 2 module de code VBA.

Les module excel sont entièrement codés mais j'aimerai les insérer de façon automatique dans le nouveau fichier.

Pour cela, j'ai donc décidé de sauver les modules et Userforms dans des fichiers .bas et .frm.
J'ai donc mis en place la ligne suivante dans l'Excel de génération (MyDatabase est le classeur cible):

Code:

---

MyDatase.VBProject.VBComponents.Add "D:\documents and Settings\SESA93462\Desktop\[...]\Module2.bas"

---

et

Code:

---

MyDatabase.VBProject.VBComponents.Import "D:\documents and Settings\SESA93462\Desktop\[...]\UserForm1.frm"

---

Pour info, j'ai vérifier plusieurs fois le chemin alors qu'ai je fais de travers?

Voici l'erreur qui m'est renvoyé

Citation:

---

Erreur d'exécution '1004'
La méthode 'VBProject' de l'objet '_Workbook' échoué

---

Merci d'avance pour votre aide.

Salut,

Le probleme doit venir de la methode Add qui attend le type de 'component' et pas le nom d'un fichier.

Essaie comme ceci

Code:

---

1 2	MyDatabase.VBProject.VBComponents.Import "D:\documents and Settings\SESA93462\Desktop\[...]\Module2.bas" MyDatabase.VBProject.VBComponents.Import "D:\documents and Settings\SESA93462\Desktop\[...]\UserForm1.frm"

---

Ha désolé mais j'ai l'erreur avec l'import.

J'ai pas bien copié mes lignes de test.

Donc avec l'Import cela ne marche pas. Peut être est parcequ'il faut avant tout créer le module pour ensuite en importer un?

Je vais tenter ça.

Salut,

Cela ne sert a rien de creer le module avant.
Si tu importes le Module1 alors qu'il existe deja, il sera importe avec Module11 comme nom (de memoire).
Et pour la forme, si elle existe deja il y aura une erreur (tjrs de memoire).

Hum dans ce cas je fais comment? Peut être qu'il me manque une référence ou quelque chose car franchement, cela me parait tellement simple que je pige pas ou ça foire.

Re,

Avec un bout de code un peu plus fourni, on verra peut etre quelque chose d'autre.
Tes declarations et affectations de variable entre autre.

Dans ton 1er post par exemple tu avais mi MyDatase au lieu de MyDatabase...

Ma macro étant assez longue, je teste sur un morceau de code indépendant bien plus court dans un Excel tout neuf.

Code:

---

1 2 3 4 5 6 7

Sub test() ThisWorkbook.VBProject.VBComponents.Import "D:\documents and Settings\SESA93462\Desktop\Energy Suite Buildings\Données météo\Module Weather Data Base\Module1.bas" ThisWorkbook.VBProject.VBComponents.Import "D:\documents and Settings\SESA93462\Desktop\Energy Suite Buildings\Données météo\Module Weather Data Base\Module2.bas" ThisWorkbook.VBProject.VBComponents.Import ("D:\documents and Settings\SESA93462\Desktop\Energy Suite Buildings\Données météo\Module Weather Data Base\UserForm1.frm") ThisWorkbook.VBProject.VBComponents.Import ("D:\documents and Settings\SESA93462\Desktop\Energy Suite Buildings\Données météo\Module Weather Data Base\UserForm2.frm") End Sub

---

Voilà ou j'en suis et ca ne donne pas grand chose de plus.

Merci pour ton aide.

EDIT: Autre point qui a peut être son importance.
La première fois que je lance ce code, j'ai une erreur différente. C'est toujours une 1004 mais voilà ce qui est marqué:

Citation:

---

L'accès par programme au projet Visual Basic n'est pas fiable

---

Si je relance une seconde fois, je tombe sur l'erreur de la méthode du workbook...

Effectivement, cela peut avoir son importance.

Verifie que tu as coche 'Faire confiance au projet Visual Basic'
dans le menu Outils->Macro->Securite->Onglet Editeurs approuves

Un grand merci à toi...

Je viens de trouver la solution sur un autre site et effectivement je me doutais que c'était un truc bête.

Le principal c'est qu'il soit résolu et je te remercie pour ton aide.