Ajouter du code à un classeur via le VBA ?

Bonjour,

J'ai une macro qui créé un classeur (via Workbooks.add) et protège ses feuilles.
Or lorsque les feuilles sont protégées, on ne peut pas grouper/dégrouper les lignes. J'ai corrigé cela en utilisant le code suivant

Code:

---

1 2 3

ws.EnableOutlining = True ws.Protect Contents:=True, UserInterfaceOnly:=True

---

Ce code permet d'avoir une feuille protégée, tout en laissant à l'utilisateur la possibilité de cacher/décacher les lignes.
Mais quand on ferme et ré-ouvre le fichier, ces propriétés passent à False (car Excel fonctionne ainsi d'après ce que j'ai compris) et l'utilisateur ne peut plus cacher/décacher les lignes.

Comment faire passer cette propriété à True par défaut ? Ou sinon est-il possible en VBA d'ajouter du code dans un fichier créé ?

Merci pour votre aide.

mets là dans l'évènement du classeur Workbook_Open()

salut,
pour acceder au code VBA d'un fichier, tu peux utiliser un code VBA du style

Code:

---

1 2 3 4 5 6 7

Dim oExcel as Excel.Application 'parcourir le contenu VBA de chaque module VBA For i = 1 To oExcel.VBE.VBProjects(1).VBComponents.Count With oExcel.VBE.VBProjects(1).VBComponents.item(i).CodeModule ' pour le remplacement d'une ligne entière For k = 1 To .CountOfLines Cible = .Lines(k, 1)

---

avec Cible qui contient ici le contenu du code VBA

En utilisant la fonction appropriee, tu peux ecrire dans le module en VBA via VBA :aie:

Ah c'est exactement ce que je cherchais. Il ne reste plus qu'à adapter ce code à ma macro.

Merci beaucoup. :D

Sinon une autre possibilité, peut-être plus simple mais qui ne fonctionne (je pense) qu'avec le code attaché à une feuille (et donc pas au classeur ni à un module), serait d'avoir dans le fichier contenant la macro une feuille identique à celle qu'on veut dans la cible, et de l'y faire copier par VBA. Dans ce cas le code attaché à la feuille (worksheet) suit.

Merci pour ta réponse.
J'avais pensé à quelque chose de similaire : au lieu de faire un workbooks.add, j'ouvre un fichier vide contenant l'event que je veux, comme ça les fichiers créés auraient toujours ce code. Mais pour l'utilisateur ça fait un fichier source en + et on m'a dit que ce n'est pas pratique.

Je rencontre un problème sinon avec ce code

Code:

---

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

Private Sub test()   Dim i As Long, k As Long   'parcourir le contenu VBA de chaque module VBA For i = 1 To Application.VBE.VBProjects(1).VBComponents.Count With Application.VBE.VBProjects(1).VBComponents.Item(i) Debug.Print .CodeModule.CountOfLines & " lignes dans le module " & .Name End With Next i   End Sub

---

Un message d'erreur me dit "Can't perform operation since the project is protected."
Pourtant dans VBAProject Properties, j'ai le Lock qui est décoché.

D'où vient le problème selon vous ? :(

Finalement problème corrigé, il fallait que je change VBEProjects(1) car l'utilisateur peut avoir plusieurs projets d'ouverts. ^^

Voici le code si ça intéresse quelqu'un

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Public Sub AddEnableOutliningCode(ByRef vWb As Workbook, ByVal vModuleName As String)   Dim LineNum As Long   With vWb.VBProject.VBComponents.Item(vModuleName).CodeModule   LineNum = .CountOfLines + 2 .insertLines LineNum, "Private Sub Workbook_Open()" LineNum = LineNum + 1 .insertLines LineNum, Chr(9) & "Dim sh as Worksheet" LineNum = LineNum + 1 .insertLines LineNum, Chr(9) & "For each sh in wb" LineNum = LineNum + 1 .insertLines LineNum, Chr(9) & Chr(9) & "sh.EnableOutlining = True" LineNum = LineNum + 1 .insertLines LineNum, Chr(9) & Chr(9) & "sh.Protect Contents:= True, UsertInterfaceOnly:= True" LineNum = LineNum + 1 .insertLines LineNum, Chr(9) & "Next sh" LineNum = LineNum + 1 .insertLines LineNum, "End sub"   End With   End Sub

---

D'ailleurs, un lien qui m'a pas mal aidé
http://www.cpearson.com/excel/vbe.aspx
(Je sais pas si j'ai le droit de le mettre sur le forum, si c'est interdit désolé d'avance).

J'ai une remarque sur cette ligne

Code:

---

.insertLines LineNum, Chr(9) & "For each sh in wb"

---

Il fallait

Code:

---

.insertLines LineNum, Chr(9) & "For each sh in thisworkbook.worksheets"

---

mieux ainsi

Code:

---

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

Public Sub AddEnableOutliningCode(ByRef vWb As Workbook, ByVal vModuleName As String) Dim code As String Dim LineNum As Long   code = "Private Sub Workbook_Open()" code = code & vbCrLf & "Dim sh as Worksheet" code = code & vbCrLf & "For each sh in thisworkbook.worksheets" code = code & vbCrLf & "sh.EnableOutlining = True" code = code & vbCrLf & "sh.Protect Contents:= True, UserInterfaceOnly:= True" code = code & vbCrLf & "next sh" code = code & vbCrLf & "end sub"   With vWb.VBProject.VBComponents.Item(vModuleName).CodeModule LineNum = .CountOfLines + 2 .insertLines LineNum, code End With End Sub

---

Oui exact, merci. :)

Par contre je rencontre un soucis, ce code créé bien du code dans un classeur. Mais lorsque je ferme et ré-ouvre le classeur, le code disparait alors que le classeur est sauvegardé (méthode saveAs). Lorsque je sauvegarde manuellement le classeur, le soucis est corrigé.

Et je viens de tester chez moi, je n'ai pas ce problème. :(

sauvegarde au format .xlsm, c'est ça?

Oui, je sauvegarde au format .xlsm et juste avant je change bien le format de sauvegarde par défaut d'Excel pour mettre en .xlsm.

Le même code marche chez moi mais à mon travail ça ne fonctionne pas.