créer procédure sub dans un autre fichier

Version imprimable

15/12/2010, 22h37
dlight

créer procédure sub dans un autre fichier

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

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:

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

16/12/2010, 16h22
dlight

Re

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

Code:

With Wk.VBProject.VBComponents.Add(vbext_ct_StdModule)

Avez-vous idée de ce qui cloche ?

Dlight
16/12/2010, 16h38
pgz

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
16/12/2010, 17h33
dlight

Re

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
16/12/2010, 17h44
pgz

Re,

Nous ne parlons pas de la même chose :

Citation:

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
16/12/2010, 19h00
dlight

Re

Merci pour votre réponse mais ça ne change rien.

La case "faire confiance..." était déjà coché

Dlight
17/12/2010, 00h08
fring

Bonjour,

Tu peux t'inspirer de ce tuto
20/12/2010, 13h46
dlight

Re

Merci Fring pour la référence.

Je vais lire ça durant mon congé...

Dlight