Discussion :

[patricktoulon]

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 :

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

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 :

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

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

dans le module thisworkbook

si quelqu un a la solution

[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 :

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

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+

[patricktoulon]

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

[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 :

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

.InsertLines X + n Sub workbook_open...

[patricktoulon]

bonjour a tous et merci de votre aide

Code :

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

     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