Une macro qui permet de de referencer un .xla sur plusieurs CL avec un code dans le "thisworkbook"

Esmax666 · 01/07/2009, 11h33

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 · 01/07/2009, 12h40

Bonjour,

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

Code :

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

Chemin et nom de la macro à adapter...

Esmax666 · 01/07/2009, 13h04

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 · 01/07/2009, 13h08

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

mapeh · 01/07/2009, 13h20

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 :

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 · 01/07/2009, 14h31

Merci j'ai trouvé ce code:

Code :

 
    '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

Esmax666 · 01/07/2009, 14h48

Citation:

Envoyé par 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 :

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 = "ThisWorkbook.VBProject.References.AddFromFile _" & vbLf
S = S & """C:\Documents and Settings\TaMacro.xla"""

mais ici j'ai pas trop compris la synthaxe:

Code :

.InsertLines DebutCode + 1, S

ou est ce que je peux rajouter mon code ?

mapeh · 01/07/2009, 15h07

Re-,

Tu as déjà un code de fait?

Citation:

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

Esmax666 · 07/07/2009, 18h03

Citation:

Envoyé par mapeh

Re-,
Tu as déjà un code de fait?
Montre-le, et on pourra peut-être t'aider....

C'est un programme à part realiser par quelqu'un d'autre

Sinon pour le bouton F1 j'ai pas compris la ligne

Code :

.InsertLines DebutCode + 1, S

Esmax666 · 20/07/2009, 15h20

Est ce que qu'un pourrais m'aider ?

donc pour rajouter la reference je fais rajoute cela:

Code :

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

et pour ajouter une macro dans le module "thisworkbook" je fais comment?

Code :

With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
    DebutCode = .CreateEventProc("Open", "Workbook")
    .InsertLines DebutCode + 1, S
End With

la macro fait une 50ene de ligne il n'y pas de methode plus facile?

merci

et til possible d'exporter une module directement?
car je dois transférer un module entier

LeForestier · 20/07/2009, 15h44

Bonjour,
Exporter le module ne présente aucun intérêt, tu peu l'exporter manuellement dans un répertoir.
Et dans le classeur que tu ouvre tu peu importer le module.

et en VBA

Code :

Workbooks("NomDuClasseur.xls").VBProject.VBComponents.Import _
"C:\Rép\Rép\Module1.Bas"

Si le nom est Module1.
Je ne crois pas que ça fonctionne pour un module de feuille ou de classeur. (jamais essayer)
A+

Esmax666 · 21/07/2009, 17h32

non cela ne marche pas:
De plus, le fichier orignal s'appel "diesearbeitmap" et dans la version "francaise de word cela donne "thisworkbook" :/

01/07/2009, 11h33	#1
Esmax666 Futur Membre du Club Date d'inscription: juin 2009 Messages: 35	Une macro qui permet de de referencer un .xla sur plusieurs CL avec un code dans le "thisworkbook" 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

01/07/2009, 12h40	#2
mapeh Membre actif Date d'inscription: octobre 2007 Localisation: 29 Messages: 176	Bonjour, cette ligne de code, dans le WorkBook_Open, te permet de référencer la xla... Code : ThisWorkbook.VBProject.References.AddFromFile _ "C:\Documents and Settings\Ta_Macro.xla" Chemin et nom de la macro à adapter...

01/07/2009, 13h20	#5
mapeh Membre actif Date d'inscription: octobre 2007 Localisation: 29 Messages: 176	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 : 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....)

01/07/2009, 14h31	#6
Esmax666 Futur Membre du Club Date d'inscription: juin 2009 Messages: 35	Merci j'ai trouvé ce code: Code : '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

20/07/2009, 15h20	#10
Esmax666 Futur Membre du Club Date d'inscription: juin 2009 Messages: 35	Est ce que qu'un pourrais m'aider ? donc pour rajouter la reference je fais rajoute cela: Code : ThisWorkbook.VBProject.References.AddFromFile _ "C:\Documents and Settings\Ta_Macro.xla" et pour ajouter une macro dans le module "thisworkbook" je fais comment? Code : With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule DebutCode = .CreateEventProc("Open", "Workbook") .InsertLines DebutCode + 1, S End With la macro fait une 50ene de ligne il n'y pas de methode plus facile? merci et til possible d'exporter une module directement? car je dois transférer un module entier Dernière modification par AlainTech ; 27/07/2009 à 16h14. Motif: Fusion de 2 messages

01/07/2009, 13h04	#3
Esmax666 Futur Membre du Club Date d'inscription: juin 2009 Messages: 35	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

01/07/2009, 13h08	#4
Krovax Expert Confirmé Date d'inscription: juillet 2008 Localisation: Elsass Âge: 24 Messages: 1 887	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

20/07/2009, 15h44	#11
LeForestier Inactif(ve) Date d'inscription: juin 2007 Localisation: Belqique Messages: 2 074	Bonjour, Exporter le module ne présente aucun intérêt, tu peu l'exporter manuellement dans un répertoir. Et dans le classeur que tu ouvre tu peu importer le module. et en VBA Code : Workbooks("NomDuClasseur.xls").VBProject.VBComponents.Import _ "C:\Rép\Rép\Module1.Bas" Si le nom est Module1. Je ne crois pas que ça fonctionne pour un module de feuille ou de classeur. (jamais essayer) A+

21/07/2009, 17h32	#12
Esmax666 Futur Membre du Club Date d'inscription: juin 2009 Messages: 35	non cela ne marche pas: De plus, le fichier orignal s'appel "diesearbeitmap" et dans la version "francaise de word cela donne "thisworkbook" :/

		Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Une macro qui permet de de referencer un .xla sur plusieurs CL avec un code dans le "thisworkbook"

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email