Discussion :

[Monkey_D.Luffy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

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

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Monkey_D.Luffy]

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

Merci beaucoup.

[neupont]

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.

[Monkey_D.Luffy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Monkey_D.Luffy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[mercatog]

J'ai une remarque sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il fallait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mieux ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Monkey_D.Luffy]

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.

[mercatog]

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

[Monkey_D.Luffy]

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.