Discussion :

[Esmax666]

Hello tous le monde

J'ai un programme qui crée plusieurs fichiers excel et je voudrais creer un script qui permet de donné pour reference un fichier .xla (c'est à dire automatiser la procedure: Alt+F11 --> outils --> reference --> cocher le xla) + rajouter un code dans le 'thisworkbook" (idem dans le alt+F11 --> this workbook)

Merci

[mapeh]

Bonjour,

cette ligne de code, dans le WorkBook_Open, te permet de référencer la xla...

Code :

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

1
2
ThisWorkbook.VBProject.References.AddFromFile _
"C:\Documents and Settings\Ta_Macro.xla"

Chemin et nom de la macro à adapter...

[Esmax666]

ok merci et pour le code dans le "thisworkbook"
Exemple: je souhaite que le fichier A.xls rajoute un code dans le "thiswokbook" du fichier .xls

[Krovax]

Un tuto pour manipuler l'éditeur de macro par macro, et donc écrire du code par macro
http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Tu devrais y trouver ton bonheur

[Esmax666]

Merci j'ai trouvé ce code:

Code :

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

1
2
3
4
5
6
7
8
 
    'Ajoute une macro dans le module
    With VBComp.CodeModule
        X = .CountOfLines
        .InsertLines X + 1, "Sub laMacro()"
        .InsertLines X + 2, "Range(""A1"").Value = ""Coucou"""
        .InsertLines X + 3, "End Sub"
    End With

Mais pas j'ai pas trop compris la syntaxe ici je dois remplacer "CodeModule" par le code de mon module donc "thisworkbook"? mais ensuite je coprend l'autre paris du code.. la fonction... ou faut il que je copie le code que je souahite transferer?

Merci

[mapeh]

Re-,

le code suivant ajoute un code évènementiel dans le ThisWorkBook du classeur actif

Lorsque tu créés ton fichier (WorkBooks.Add....), tu es donc dans ce nouveau classeur..

Essaie :

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
Sub Insert_Proc()
'nécessite une référence à :
'Microsoft Visual Basic For Applications Extensibility 5.3
Dim DebutCode As Long
Dim S As String
 
S = "ThisWorkbook.VBProject.References.AddFromFile _" & vbLf
S = S & """C:\Documents and Settings\TaMacro.xla"""
 
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
    DebutCode = .CreateEventProc("Open", "Workbook")
    .InsertLines DebutCode + 1, S
End With
 
End Sub

N'oublie pas d'activer la référence citée en haut du code (ne sera utile que pour le classeur qui exécute le code....)

[Esmax666]

Re-,

le code suivant ajoute un code évènementiel dans le ThisWorkBook du classeur actif

Lorsque tu créés ton fichier (WorkBooks.Add....), tu es donc dans ce nouveau classeur..

Essaie :

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
Sub Insert_Proc()
'nécessite une référence à :
'Microsoft Visual Basic For Applications Extensibility 5.3
Dim DebutCode As Long
Dim S As String
 
S = "ThisWorkbook.VBProject.References.AddFromFile _" & vbLf
S = S & """C:\Documents and Settings\TaMacro.xla"""
 
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
    DebutCode = .CreateEventProc("Open", "Workbook")
    .InsertLines DebutCode + 1, S
End With
 
End Sub

N'oublie pas d'activer la référence citée en haut du code (ne sera utile que pour le classeur qui exécute le code....)

Ok merci pour la reponse

Ici on active le addin :

Code :

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

1
2
S = "ThisWorkbook.VBProject.References.AddFromFile _" & vbLf
S = S & """C:\Documents and Settings\TaMacro.xla"""

mais ici j'ai pas trop compris la synthaxe:

Code :

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

.InsertLines DebutCode + 1, S

ou est ce que je peux rajouter mon code ?

[mapeh]

Re-,

Tu as déjà un code de fait?

J'ai un programme qui crée plusieurs fichiers excel

Montre-le, et on pourra peut-être t'aider....

Je te conseille également

pour la ligne de code que tu ne comprends pas

Et S n'est nullement un Add-in, mais une variable String, qui a la valeur marquée en Rouge....

Lorsque tu as inséré cette variable, elle devient une ligne de procédure, dans le WorkBook_Open