Copier Module vers autre classeur

Dranreb

XLDnaute Barbatruc

• 20 Juin 2012

• #2

Re : Copier Module vers autre classeur

Bonsoir.
Juste une question : au 2ième passage dans la boucle quelle est la feuille active de quel classeur actif au moment du "nom = Cells(i, 1)"
Je ne le dirai jamais assez, il faut toujours qualifier Cells ou Range d'une expression Worksheet.
De préférence un CodeName de feuille si c'est une feuille de ThisWorkbook,
À défaut une variable As Worksheet convenablement initialisée si c'est une feuille d'un autre classeur.
À +

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Juin 2012

• #3

Re : Copier Module vers autre classeur

Re,

Heu au risque de paraître be-bête, j'suis pas sur de comprendre...

J'ai tenté de faire autre chose (voir fichier joint) mais sans succès.
Il coince toujours sur la ligne "classeur_export.Close"

Ce que je ne comprends pas, c'est que si je fais la macro sans le bout de code ci-dessous (création du module), il exécute la macro nickel 😕

Code:

        With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
            S = .Lines(1, .CountOfLines)
        End With
  
        Set Wbk = Workbooks.Open(nom_dossier & "\" & nom_fichier_en_cours)
    
        With Wbk
            With .VBProject.VBComponents.Add(1)
                .CodeModule.AddFromString S
            End With
        End With

 

Pièces jointes

• Noms.xlsm

  25.9 KB · Affichages: 36
• Noms.xlsm

  25.9 KB · Affichages: 35
• Noms.xlsm

  25.9 KB · Affichages: 36

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 20 Juin 2012

• #4

Re : Copier Module vers autre classeur

Bonjour Hulk, Dranreb, le forum,

Chez moi, j'ai une erreur 1004 La méthode 'VBProject' de l'objet'_Workbook' à échoué sur la ligne :

With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule

Cliquez pour agrandir...

Je ne sais pas si ça a un lien.

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juin 2012

• #5

Re : Copier Module vers autre classeur

Bon.
Alors il n'y a qu'à exécuter une seule fois au début cette instruction qui récupérer le String S.
Et le réutiliser à chaque fois. Le ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Lines ne changera pas d'un passage à l'autre dans la boucle !
A +

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Juin 2012

• #6

Re : Copier Module vers autre classeur

Yep,

Je ne pense pas que c'est ça Yaloo...

Chez moi il crée bien le premier classeur (Nom A.xls) avec le module1 et la macro, mais j'ai un message d'erreur (Erreur Automation) et il s'arrête sur

Code:

classeur_export.Close

Et si à la place je mets

Code:

ActiveWorkbook.Close

il crée bien les quatre classeurs mais sans leurs modules 😕

Ben je tourne en rond...

 

Dernière édition: 20 Juin 2012

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Juin 2012

• #7

Re : Copier Module vers autre classeur

Dranreb j'ai essayé en placant avant la boucle...

Code:

    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
        S = .Lines(1, .CountOfLines)
    End With

mais idem erreur sur "classeur_export.Close".

C'est ce que tu voulais dire ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juin 2012

• #8

Re : Copier Module vers autre classeur

Je commence peut être à entrevoir quelque chose:
Il n'y a pas de Close entre SaveAs et plus loin Open du même classeur.
Comme on est en DisplayAlerts = False, il assume sans doute Oui à la question qu'il vous poserait à tentative d'ouvrir un classeur portant le même nom qu'un classeur déjà ouvert. Dans ce cas je pense que classeur_export n'est plus initialisé après réouverture, parce que c'est un autre objet WorkBook. D'ailleurs Wbk.Close serait plus logique pour faire ça.
Ou alors pour ne pas changer le nom du classeur ouvert faire classeur_export.SaveCopyAs
D’ailleurs pourquoi ce Save puis ce Open ? Il doit y avoir une raison mais je ne vois pas laquelle. Ça ne va pas en le fermant avec sauvegarde seulement à la fin, quand tout est fait ?
Cordialement.

 

Dernière édition: 20 Juin 2012

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 20 Juin 2012

• #9

Re : Copier Module vers autre classeur

Re,

Voici ton fichier modifié, j'ai changer l'ordre d'enregistrement.

Vois si ça te convient. (j'espère avoir bien compris ta demande)

A+

 

Pièces jointes

• Noms.xlsm

  27 KB · Affichages: 68
• Noms.xlsm

  27 KB · Affichages: 68
• Noms.xlsm

  27 KB · Affichages: 69

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Juin 2012

• #10

Re : Copier Module vers autre classeur

Re,

Nickel Yaloo... Pff j'ai tourné en rond un moment, Merci !

Merci aussi Dranreb !

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 20 Juin 2012

• #11

Re : Copier Module vers autre classeur

Re,

Il fallait copier ton code avant, faire l'enregistrement et fermer le classeur actif. C'est vrai que, de temps en temps, on tourne, on tourne .... alors que ce n'est pas très loin.

A+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Juin 2012

• #12

Re : Copier Module vers autre classeur

Re,

C'est c'que j'me disais, merci encore..

 

Vote positif 0 Vote négatif