Copie d'un module

Bonjour RacKar et tous les lecteurs
| Bonjour,
|
| Comment faire pour copier un module d'un fichier excel à
| un autre via une macro
|
|
| Merci

Outils / MAcro / Nouvelle macro
Effectuer une fois la copie manuellement
Outils / Macro / Arrêter l'enregistrement.

Ultérieurement il suffira d'exécuter la macro ainsi créée


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Bonjour.

Non, je ne crois pas que ça fonctionne comme ça.

http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/Ajouter
DuCodeDansUnModule.txt

Alain CROS.

-----Message d'origine-----
Bonjour RacKar et tous les lecteurs
| Bonjour,
|
| Comment faire pour copier un module d'un fichier excel à
| un autre via une macro
|
|
| Merci

Outils / MAcro / Nouvelle macro
Effectuer une fois la copie manuellement
Outils / Macro / Arrêter l'enregistrement.

Ultérieurement il suffira d'exécuter la macro ainsi créée


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgr
oup/regles.htm

.

De toutes façons, le RacKar en question ne lit pas les réponses.


"Alain CROS." <Personne@ICI> a écrit dans le message de
news:018901c352e6$41b48090$a601280a@phx.gbl...
Bonjour.

Non, je ne crois pas que ça fonctionne comme ça.

http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/Ajouter
DuCodeDansUnModule.txt

Alain CROS.

-----Message d'origine-----
Bonjour RacKar et tous les lecteurs
| Bonjour,
|
| Comment faire pour copier un module d'un fichier excel à
| un autre via une macro
|
|
| Merci

Outils / MAcro / Nouvelle macro
Effectuer une fois la copie manuellement
Outils / Macro / Arrêter l'enregistrement.

Ultérieurement il suffira d'exécuter la macro ainsi créée


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgr
oup/regles.htm

.

Salut RacKar,
En espérant que tu liras ce post pour faire mentir Clément ;o))

Private Sub ExportImportModule()
Dim Classeur As Workbook
Dim VBPMod As Object
Dim NomClasseur As String
Dim NomModule As String
Dim Chemin As String

NomClasseur = "Mon Classeur.xls"
NomModule = "Module1"

On Error Resume Next
Set VBPMod = ThisWorkbook.VBProject.VBComponents(NomModule)
If Err <> 0 Then
MsgBox "Le module ' " & NomModule & _
" ' n'existe pas !", , "Module."
Exit Sub
End If

Set Classeur = Workbooks(NomClasseur)
If Err <> 0 Then
MsgBox "Veuillez ouvrir le classeur ' " & NomClasseur & _
" ' pour l'import du module !", , "Module."
Exit Sub
End If

On Error GoTo 0

Chemin = ThisWorkbook.Path & "" & NomModule & ".bas"
'exporte
ThisWorkbook.VBProject.VBComponents(NomModule).Export Chemin
'importe
Workbooks(NomClasseur).VBProject.VBComponents.Import Chemin
'supprimer le module si nécessaire
'Kill Chemin

Set VBPMod = Nothing
Set Classeur = Nothing

End Sub

Hervé.

"RacKar" <rkarkari@gfimaroc.com> a écrit dans le message news:
008d01c352d9$f46a1680$a601280a@phx.gbl...
Bonjour,

Comment faire pour copier un module d'un fichier excel à
un autre via une macro


Merci