copie de module par code

Version imprimable

25/11/2013, 14h47
sharox

copie de module par code

Bonjour a tous

J'aimerais savoir comment copier un module en code ^^
en gros je veux que quand j'appuie sur un bouton il me copie un module du 1er classeur dans le 2eme classeur

Cordialement

Quelque chose du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim LigDeb      As Long
Dim NbLig       As Long
 
Dim stCode      As String
 
Dim vbNew     As Workbook
Dim objF        As Object
 
Set vbNew=Workbook("AutreClasseur.xlsx")
Set objF = ThisWorkbook.VBProject.VBComponents("MonModuleSource")
stCode = objF.CodeModule.Lines(LigDeb, NbLig)
 
Set objF = wbNew.VBProject.VBComponents("MonModuleCible")
 
objF.CodeModule.addfromstring (stCode)

Bonjour,

La macro suivante copie le module "Module 1" du classeur actif et l'importe dans le classeur contenant la macro.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopieModule()
    ' suppression d'un fichier d'export
    On Error Resume Next
    Kill "C:\temp\export.bas"
    On Error GoTo 0
    ' Export Module 1
    ActiveWorkbook.VBProject.VBComponents("module1").Export "C:\temp\export.bas"
    ' Import Module 1 dans thisworkbook
    Set Var = Application.VBE.ActiveVBProject.VBComponents
    Application.VBE.ActiveVBProject.VBComponents.Import "C:\temp\export.bas"
    Kill "C:\temp\export.bas"
End Sub

25/11/2013, 16h19
sharox

Libesa, merci pour ton aide, mais malheureusement ce que tu m'as donné ne fonctionne pas :(

Pour Daniel.C Je suis désolé je ne comprend pas ton explication

En gros cette macro copie le module1 du classeur actif, et l'importe dans la classeur contenant la macro => donc je dois mettre cette macro dans la classeur ou je veux que le module soit mis ??

Moi il me faudrait l'inverse, que je mette la macro dans le classeur ou je veux prendre le module, pour l'implanter dans un autre classeur (qui est ouvert)
25/11/2013, 16h46
Daniel.C

Eh bien, fais l'inverse !
25/11/2013, 17h24
sharox

Daniel.C

Je ne comprend pas ce que signifie :

Code:

Kill "C:\temp\export.bas"

Ni ce que se fichier fait la, car moi je ne l'ai pas la ^^'
25/11/2013, 17h56
Daniel.C

Si tu veux progresser, apprend à te servir de l'aide VBA : tu cliques sur le mot que tu ne connais pas et tu appuies sur F1. "Kill" supprime le fichier. Le fichier .bas est celui dans lequel se fait l'exportation - importation. Il est normal que tu ne l'aies pas. L'instruction est là seulement si, par hasard, tu en avais un.
26/11/2013, 07h49
sharox

je sais a quoi ca sert le kill ^^
j'ai joué a certain jeu et le .kill était vachement utile :)

C'est juste le fichier que tu supprimes je ne savais pas ce qu'il définissait
et je me demandais si je devait pas rajouter du "chemin" pour que l'instruction supprime ce même fichier qui est un peu plus loin dans le répertoire ou non
(je ne sais absolument pas si je l'ai ou non)

Ensuite quand j'exécute ton programme, à la ligne :

Code:

ActiveWorkbook.VBProject.VBComponents("feuille_importer").Export "C:\export.bas"

il me met un message d'erreur qui est :

la méthode 'VBProject' de l'objet '_Worbook' a échoué

Je me demande donc si il faut une référence spéciale..
Cordialement
26/11/2013, 09h00
Libesa

Citation:

Envoyé par sharox

Libesa, merci pour ton aide, mais malheureusement ce que tu m'as donné ne fonctionne pas :(

A une petite faute de frappe près (vbNew est devenu wbNew quelques lignes plus bas) cela fonctionne chez moi.

As tu remplacé les noms bidons que j'ai mis pour l'exemple et les variables LigDeb et NbLig par les valeurs de ton programme?

As tu activé la référence adequate (Microsoft Visual Basic for Applications Extensibility je crois) ?

Bon j'ai l'impression qu'il y a un problème
Donc on va le chercher..

Déjà je suis sous Excel 2003 (Windows 7)
pour la référence j'ai : Microsoft Visual Basic for Applications Extensibility 5.3

Ensuite dans le programme que j'ai commenté, a toi de me dire ou est-ce que je me suis trompé ^^ Je vois très rarement mes erreur, mais c'est rattrapé par le fait que quand on m'en montre une je ne dénie pas l'avoir faite.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub test_import() ' Déclaration des variables Dim LigDeb As Long Dim NbLig As Long Dim stCode As String Dim vbNew As Workbook Dim objF As Object ' ici, je dois mettre le nom du classeur dans le quel je veux importer Set vbNew = Workbooks ("classeur2 .xls") ' ici, je dois mettre le nom du module a exporter Set objF = ThisWorkbook.VBProject.VBComponents("Module_export") ' ici, je dois mettre les lignes que je veux exporter dans ce module (pas sûr) stCode = objF.CodeModule.Lines(1, 402) ' ici, je dois mettre le nom du module dans le quel je dois intégré ces lignes Set objF = vbNew.VBProject.VBComponents("Moule_import") ' ici, je ne sais pas, peut être que l'ajout est de mode code objF.CodeModule.addfromstring (stCode) End Sub
(tu as oublié un "s" )
Set vbNew=Workbook("AutreClasseur.xlsx")
deviens
Set vbNew=Workbooks("AutreClasseur.xlsx")
enfin je pense

Et il me met toujours une erreur après cette ligne :

Code:

Set objF = ThisWorkbook.VBProject.VBComponents("Module_export")

sois disant, la méthode 'VBProject' de l'objet '_Workbook' a échoué

Cordialement

26/11/2013, 09h59
Libesa

Effectivement autant ca marche sur Excel 2010, autant ca plante sur Excel 2003!

J'ai trouvé!

Il faut que tu ailles dans Outils/Macro/Sécurité.../Editeurs approuvés, puis cocher Faire confiance au projet VBA.

ET voila.
26/11/2013, 10h09
sharox

ha...d'acc
tu viens de me pourrir ma journée ^^

Bon, et vous connaissez pas d'autres méthodes utilisable sur Excel 2003
Les autres méthodes qu'il y a sur le post, ne fonctionne pas non plus
OU je ne sais pas les faire fonctionner

j'ai fait tout les sites internet, et j'essaie d'y adapter a ma sauce mais je ne suis pas un pro donc souvent la sauce tourne au vinaigre ^^

Cordialement

HAAAAAAAAAAAAAAAAAAAAAAA
Ca fonctionne !!!!!!!!!!!!!!!!!!!!!!!!!!!! <3

Je te remercie :)
tu viens de pourrir et d'aiguillé ma journée en 10sec d'intervalle

Je t'en remercie beaucoup !!
Ca fait trop plaisir ^^

Cordialement
Encore merci
26/11/2013, 10h10
Libesa

Je me demandais hier soir si j'etais le seul clampin a encore bosser sur Excel 2003, ben non on est au moins 2 :D

ha mais mince, un nouveau problème ^^
enfin je pense que pour toi, il est plutôt simple
Je voudrait que avant qu'il copie, il supprime les lignes qu'il y a dans le module ou toutes ces lignes vont aller

^^ nn tkt je fait des grosses journée moi..
7h/12h - 13h30/20h

J'ai trouvé ceci, mais je ne sais pas vraiment comment l'adapter dans mon cas
Code:

1 2 3 4 5 6 7 8 ' la premiere ligne ca va, je l'ai mis dans Nombre_ligne Nlig = ActiveWorkbook.VBProject.VBComponents("test").CodeModule.CountOfLines 'et a partir d'ici je suis perdu, j'ai fait plein de test, mais rien n'y fait je comprend pas 'c'est surtout au niveau des noms que je suis perdu enfaite MonClasseur = ThisWorkbook.Name Set MonModule = Workbooks(MonClasseur).VBProject.VBComponents("test") MonModule.CodeModule.DeleteLines 1, Nlig
Cordialement

26/11/2013, 11h08
Daniel.C

Cette macro supprime les lignes de code du module "test". Est-ce que la macro que je t'ai fournie ne te conviens pas ? Quel est le problème ?
26/11/2013, 11h20
sharox

Le code que tu m'as fournis, il ne fonctionne pas

J'ai beau le tournicoter dans tout les sens, il bug...
je ne comprend pas du tout ce qu'il y a dans ton programme, donc je ne sais pas quoi modifier

Le code est Libesa est peut être moins complet, mais je le comprend, je peux donc tester des trucs

En Gros je suis perdu, je suis complètement nul en VB, et chaque jours j'apprend des choses, (en gros cela fait 3/4semaines que j'ai commencé VBA)
et j'ai appris pas mal de truc durant ces semaines, mais avec que je vois il m'en manque encore énormément
26/11/2013, 11h36
Libesa

Pour effacer les lignes tu utilises simplement:

Code:

objF.CodeModule.DeleteLines LigDeb, NbLig

dans ton cas pour tout effacer:

Code:

objF.CodeModule.DeleteLines 1, objF.CodeModule.CountOfLines

en ayant bien sur affecté objF au module que tu veux effacer
26/11/2013, 11h40
Daniel.C

Citation:

Le code que tu m'as fournis, il ne fonctionne pas

Voila qui est clair. Puisque tu le dis... J'ai l'impression que tu t'attaques à un problème trop compliqué pour ton niveau de compréhension.
26/11/2013, 11h42
sharox

-_- Merci bien !!
Encore une fois

C'est abusé comment je cherchais un truc rie na voir...

Merci encore !!

Daniel, ta solution je veux bien la connaitre quand même, avec un peu d'explication si possible

si je te donne des noms bidons (mnémonique) y a moyen que tu me réécrive le code avec ces noms ?

Classeur_imp => classeur ou on doit importer le module
Classeur_exp => classeur ou on doit exporter le module et ou ce situe le bouton
Module_imp => nom du module a importer
Module_exp => nom du module a exporter

Ton code devient donc

Code:

1
2
3
4
5
Set objF = ThisWorkbook.VBProject.VBComponents("Module_export")
 
objF.CodeModule.DeleteLines 1, objF.CodeModule.CountOfLines
 
stCode = objF.CodeModule.Lines(1, 402)

ha moi je l'ai mis comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub import_export()
 
Dim Ligne_Debut As Long
Dim Nombre_Ligne As Long
Dim stCode As String
Dim vbNew As Workbook
Dim objF As Object
 
Ligne_Debut = 1
Nombre_Ligne = ThisWorkbook.VBProject.VBComponents("Module_exp").CodeModule.CountOfLines
Set vbNew = Workbooks("class1.xls")
Set objF = ThisWorkbook.VBProject.VBComponents("Module_exp")
stCode = objF.CodeModule.Lines(Ligne_Debut, Nombre_Ligne)
Set objF = vbNew.VBProject.VBComponents("Module_imp")objF.CodeModule.DeleteLines Ligne_Debut, objF.CodeModule.CountOfLines
objF.CodeModule.addfromstring (stCode)
End Sub

26/11/2013, 12h02
Libesa

Oui tu as raison, j'ai fumé sur ce coup là, j'ai confondu tes deux modules.
26/11/2013, 12h04
sharox

espèce de drogué va ^^

En tout cas je te remercie, et je vais manger :)
car ca creuse quand même !!

A cette aprèm si j'ai d'autre soucis ^^