incorporer une fonction dans workbook .open

Version imprimable

bonjour a tous je reviens avec ce probleme
j ai trouver sur les tuto ce genre de petit code pour incorporer une macro dans un classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub creationMacro()
Dim X As Integer
 
With ActiveWorkbook.VBProject.VBComponents("Feuil1") '.CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
 
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

voila moi maintenant ce que je voudrais enregistrer ca:

Code:

1
2
3
4
5
 
 
 workbook.open()
application.displayalerts=false
 end sub

dans le module thisworkbook

si quelqu un a la solution

14/11/2009, 21h19
Gorfael
Salut patricktoulon et le forum
Pas sûr de comprendre. Quand tu es dans le module ThisWorkBokk, au-dessus de la feuille de code tu as 2 cases : Dans celle de gauche, à l'aide du menu incorporé, tu choisis "WorkBook". la macro
Code:

1 2 Private Sub Workbook_Open() End Sub
Sera automatiquement créée.

Par contre, supprimer toutes les alertes, alors que tu crées des macros dont tu ne maîtrise vraisemblablement que peu le code ne me semble pas une bonne idée. D'autant que ça concerne l'instance d'Excel dans son intégralité, et que si tu as d'autres classeurs ouverts, ils n'auront plus d'alerte, jusqu'à ce que tu la remettes à True, ou que tu fermes Excel.
A+
17/11/2009, 17h03
patricktoulon

re

bonjour gorfael non visiblement tu ne m apas compris

j'explique

par macro je sauvegarde la feuil 1 du classeur 1 dans un nouveau classeur nommé classeur 2
ca c'est bon ca marche

sauf que le classeur 1 est en xlsm et que je sauve en xls donc a l'ouverture du classeur 2 fenetre d'avertissement je zape et le classeur s'ouvre moi ce que je voudrais
c'est dans la macro qui m'enregistre le classeur 2 que je voudrai y incorporer un macro qui m'ajoute dans le thisworkbook du classeur 2 la macro precedament cité

voila

j'espere que c'est clair pour toi
en tout cas merci d'avance
17/11/2009, 17h49
aalex_38

Bonjour à tous,

Je ne vois pas le problème tu as déja le code pour ajout de modules.

Tu incrèmente ton n et une ligne correspond à une ligne de code :

Code:

.InsertLines X + n Sub workbook_open...
19/11/2009, 17h44
patricktoulon

re

bonjour a tous et merci de votre aide

Code:

With ActiveWorkbook.VBProject.VBComponents("Feuil1") '.CodeModule

mon probleme c'est que je ne connais pas le code qui designe le module thisworkbook

peut etre tout simplement le nom du module mais je n'ai pas essayer comme pour les autre module c'est un chiffre qui le designe
je pensais que pour le module thisworkbook c'etait pareil