[Excel 2003] - Copier/Coller code VBA automatiquement

Bonjour

J'ai parcouru le fofo à la recherche d'une réponse mais je n'ai pas trouvé alors j'ouvre une nouvelle discussion.

Question:
Comment peut-on copier/coller le code VBA contenu dans une feuille Excel vers une autre autre feuille Excel (toutes les deux font parties du même classeur)?

Explication:
Voici un exemple concret de ce que souhaite réaliser:

Voila ce qui existe déjà:

• J'ai une feuille "A" qui contient le code suivant:

Code:

---

1 2 3

private sub exemple() msgbox("bonjour") end sub

---

• Je créais automatiquement une nouvelle feuille (nommé B).

Voici la partie qui reste à développer
Je voudrais créer un code qui automatise la copie du code VBA contenue dans la feuille "A" (cf. "voici ce qui existe déjà") et le colle automatiquement dans la nouvelle feuille "B".

Si quelqu'un à une idée je suis preneur.

Cordialement
n0vo

salut,

en recherchant rapidement avec le mot clé VBE dans la :faq:, je trouve cet exemple de code qui peut te servir de base :
http://access.developpez.com/faq/?pa...pCodebddFermee

en utilisant ensuite l'aide en ligne :f1:, tu trouveras des exemples de ligne à coder à la volée, exemple pour écrire en haut d'un moduleOption Explicit:

Code:

---

Application.VBE.CodePanes(1).CodeModule.InsertLines 1, "Option Explicit"

---

Je te remercie "jpcheck" je vais regarder avec l'aide fourni je te tien au courant!

PS: "VBE" pas forcement évidant quand on pas d'idée pour la recherche d'info.

Bonjour

pour donner une idée un bout de code qui crée une feuille et ajoute le code de Feuil1 dans la feuille créée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Sub ajout_code() Dim S As String, Wsh As Worksheet   With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule S = .Lines(1, .CountOfLines) End With   Set Wsh = Worksheets.Add With ThisWorkbook.VBProject.VBComponents(Wsh.Name).CodeModule .AddFromString S End With Set Wsh = Nothing End Sub

---

si ça peut aider

cordialement

Merci beaucoup "samuel50", je me suis fortement inspiré de ton code pour effectuer mon copier/coller VBA:

Code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets.Add ActiveSheet.Name = "Nom_Feuille_B" Sheets("Nom_Feuille_A").Select With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule S = .Lines(1, .CountOfLines) End With Sheets(Nom_Feuille_B).Select With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule .AddFromString S End With

---

Les aides:
Lien pour l'utilisation "VBComponents"
Lien pour activer l'activation du model VBA

Voila le sujet est complet.
Merci tous.