Copier un module d'un fichier à un autre

[jibeem]

Bonjour à tous,

Je souhaite copier un module (qui définit des fonctions disponibles dans une DLL) d'un fichier à un autre. Ce module devrait être copié au moment de la création des copies des fichiers. Je n'ai aucune idée de la manière dont il faut procéder.

Merci beaucoup pour votre aide !

Jean-Baptiste

 

[jibeem]

Je tiens à préciser que cette copie doit se faire automatiquement et pas manuellement sinon je l'aurais évidemment déjà fait...

Jean-Baptiste

 

[Jam]

Ci-dessous une solution découverte sur le site de Frédéric Sigonneau, et qui devrait te donner la solution.

'j 'ai un fichier avec userform et tout et tout...et l'utilisateur voudrait,
'une fois terminé son encodage en faire une copie d'archivage, ce que je lui
'ai fais, mais le problème est, que dans le fichier de départ j'utilise 2
'fonctions de lettres en chiffres (euro et dollar), hors, ces deux fonctions
'ne sont pas sauvées puisque je copie la feuille dans un nouveau classeur,
'lui donne un nom, et ferme ce nouveau fichier d'archive.
'Bien sur, à sa réouverture il affiche '#NOM?' puisque qu'il ne trouve pas
'les fonctions et pour cause...


Sub CopieFeuilleEtModule()
Dim Wbk As Workbook, tmpBas$
  
  'copier la feuille dans un nouveau classeur
  Sheets('Feuil1').Copy
  Set Wbk = ActiveWorkbook
  
  'ajouter le module de code contenant les fonctions
  tmpBas = 'c:\\Module1.bas'
  ThisWorkbook.VBProject.VBComponents('Module1').Export tmpBas
  Wbk.VBProject.VBComponents.Import tmpBas
  Kill tmpBas
  
End Sub

Bon courage

 

[jibeem]

Merci beaucoup ! C'est exactement ce que je recherchais ! J'ai réussi à l'adapter à mon cas.
Mais attention, il faut modifier les paramètres de sécurité des macros d'Excel :
Il faut ainsi cocher la case 'Trust access to Visual Basic Project'.

Jean-Baptiste