créer procédure sub dans un autre fichier

**dlight** · 15/12/2010, 22h37

Bonjour à tous.

Est-il possible qu'à partir d'un code vba dans mon fichier "MAJ" je puisse aller créer un procédure Sub dans un module du fichier Toto.xls et de lancer cette procédure avant de le fichier "MAJ" soit fermé?

Merci encore une fois à l'avance

Dlight

**pgz** · 15/12/2010, 23h24

Bonsoir.

Pour créer une procédure, tu dois la placer dans un module du projet VB du classeur, ou créer un module. Par exemple :

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
Sub CreerProcedure()
 
Dim sCode As String
Dim Chemin As String
Dim Fichier As String
Dim Wk As Workbook
 
'Création du code, ligne par ligne
sCode = "Sub subMaProcedure()" & vbCrLf
sCode = sCode & "..." & vbCrLf
sCode = sCode & "End Sub"
 
'ouverture du nouveau classeur
Chemin = "C:\...\"
Fichier = "MonAutreClasseur.xls"
'Ouverture du fichier
Set Wk = Workbooks.Open(Chemin & Fichier)
 
'Ajout d'un module standard
With Wk.VBProject.VBComponents.Add(vbext_ct_StdModule)
        'Insertion du code dans le nouveau module
        .CodeModule.AddFromString Code
End With
End Sub

C'est juste un exemple de principe.

Ensuite pour l'exécuter, c'est la méthode Application.Run.

Cordialement,

PGZ

**dlight** · 16/12/2010, 16h22

Merci à vous pgz pour le code mais le code bloque avec l'erreur 440 à cette ligne:

Code :

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

With Wk.VBProject.VBComponents.Add(vbext_ct_StdModule)

Avez-vous idée de ce qui cloche ?

Dlight

**pgz** · 16/12/2010, 16h38

Bonjour.

T'es-tu assuré que l'accès au projet VBA par code est autorisé (dans les options de sécurité des macros?)

Cordialement,

PGZ

**dlight** · 16/12/2010, 17h33

Merci de prendre le temps de me répondre.

Au niveau de la sécurité des macro, je suis à l'option de sécurité moyenne. J'ai essayé à faible mais j'ai le même résultat.

Dlight

**pgz** · 16/12/2010, 17h44

Re,

Nous ne parlons pas de la même chose :

Office 2003 et Office XP
Ouvrez l'application Office 2003 ou Office XP en question. Dans le menu Outils, cliquez sur macro, puis cliquez sur sécurité pour ouvrir la boîte de dialogue de Sécurité des macros.
Sous l'onglet Sources fiables, cliquez pour sélectionner la case à cocher faire confiance au projet Visual Basic pour activer l'accès.
Cliquez sur OK pour appliquer le paramètre. Vous devrez peut-être redémarrer l'application pour que le code de s'exécuter correctement si vous automatisez à partir d'un COM (Component Object Model) complément ou un modèle.

PGZ