Discussion :

[Shinoda00]

Bonjour,

J'ai une macro qui supprime une partie du contenu d'un fichier nommé COMPLET.xls et l'enregistre sous un autre nom PARTIEL.xls.

Je voudrais pouvoir agir sur le "Workbook_Open()" de PARTIEL.xls en modifiant ses lignes de code.

Le problème, c'est qu'avec ce type de macro, les contenus des deux Workbook_open sont identiques (puisqu'en fait les deux fichiers sont au départ identiques).

Est-ce qu'il y aurait une possibilité d'automatiser cette action?

Merci pour votre réponse.

[mapeh]

Bonjour,

Si tu sais quelles lignes, il faut modifier, essaie ce code :

Code :

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

1
2
3
4
5
6
Sub Change_Open()
With Workbooks("PARTIEL.xls").VBProject.VBComponents("ThisWorkbook").CodeModule
    DebutCode = .ProcStartLine("Workbook_Open", vbext_pk_Proc)
    .ReplaceLine DebutCode + 2, "Msgbox ""Coucou"""
End With
End Sub

DebutCode te donne la ligne de début du Workbook_Open de ton classeur "Partiel.xls"

Tu peux mettre ce que tu veux, après DebutCode + 2, ....... mais n'oublie pas les " "

Bonne journée

[fring]

Bonjour,

Il y aurait éventuellement une solution plus simple, c'est de vérifier le nom du fichier et d'exécuter une procédure différente selon que le fichier se nomme COMPLET ou PARTIEL

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
 
Select Case ThisWorkbook.Name
    Case "COMPLET.xls"
        'la procédure à exécuter
    Case "PARTIEL.xls"
        'la procédure à exécuter
End Select
 
End Sub

[Shinoda00]

Bonjour,

Merci pour vos 2 réponses.

fring, ta méthode est simple mais efficace. Je n'avais pas pensé à faire un Select Case. Seul souci, il ne faut pas modifier le nom du fichier.

mapeh, je ne connaissais pas cette technique mais elle s'avère être exactement ce que je cherchais.