Importer dans des fichiers/dossiers variables des modules et des userforms

Bonjour,

Pour mon stage, j'ai besoin de mettre des macros et des userforms dans des fichiers (qui ne sont en plus pas au format avec macro (sic)) avec une architecture de dossiers régulières.

Par exemple,
Dossier Atelier1 => MachineA =>Fichier1 (le 1er fichier du dossier)
Dossier Atelier1 => MachineA =>Fichier2

Dossier Atelier1 => MachineB =>Fichier1 (le 1er fichier du dossier)
Dossier Atelier1 => MachineB =>Fichier2

Dossier Atelier2 => MachineA =>Fichier1 (le 1er fichier du dossier)
Dossier Atelier2 => MachineA =>Fichier2

Est-ce que c'est possible d'importer pour chacun de ces fichiers mes userform (stockés dans mes documents), des modules et des macros dans ThisWorkbook ? Le module doit pouvoir être stocké dans MesDocuments, ainsi que les userform mais pour le code dans ThisWorkbook ?

Je pensais essayer de faire des chemins variables

Ex :

While tous les dossiers ont été ouverts

j=0

CheminMachine="C/:Atelier1"&Machine(j)

i=0

While CheminMachine(j)<>vide

While fichier(i)<>vide

cheminFichier = "C/:Atelier1"&Machine(j)&Fichier(i)

Ouverture et importation de tout le code dans chaque fichier
Enregistrement du nouveau fichier en format excel avec macro
Quand la machineA est finie, on passe à la machineB
Quand l'atelier1 est fini, on passe à l'atelier2 avec la machineA jusqu'à ce qu'on ai tout fait !

Wend
Wend

Wend

Ma question, est-ce que c'est possible ??

Je vous devrais une fière chandelle si ça marche ! Car ça m'épargnerai de longues heures de travail !

Bonjour,

Pour ce genre de manipulation, tu devras t'intéresser à VBE
Tu dois créer une référence à: Microsoft Visual Basic for Application Extensibility X.X

Un exemple pour importer un Userform ou un Module dans le fichier qui contient cette macro.
Changer ThisWorkbook pour une variable pointant sur le fichier nécessaire.

Code:

---

1 2 3 4 5 6

Dim VBProj As VBIDE.VBProject   Set VBProj = ThisWorkbook.VBProject VBProj.VBComponents.Import "Chemin et nom du fichier .frm"   Set VBProj = Nothing

---

Un exemple pour ajouter du code à un nouveau fichier dans ThisWorkbook

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub CreerFichierEtModule() Dim Wb As Workbook Dim strTemp As String 'Dim VBCmp As VBComponent 'exemple de variables objets qu'on peut utiliser 'Dim cdMod As CodeModule   strTemp = "Private Sub Workbook_Open()" & vbCrLf strTemp = strTemp & "Application.Calculation = xlCalculationAutomatic" & vbCrLf strTemp = strTemp & "End Sub"   Set Wb = Workbooks.Add Wb.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString strTemp   Wb.SaveAs "C:\Test.xlsm", xlOpenXMLWorkbookMacroEnabled Wb.Close False   Set Wb = Nothing End Sub

---