Re : Copier code vba dans un nouveau doc
Re,
Pour ceux que ça intéresse, voici le code pour créer un module via le code VBA (ici Module1)
Set NewModule = ActiveDocument.VBProject.VBComponents.Add(vbext_ct_StdModule) 'création du module vide
NewModule.Name = "Module1" 'ici je lui donne le nom module1 mais à savoir que c'est le nom donné par défaut lors de sa création, mais ainsi vous savez que vous pouvez le renommer avec cette commande.
With ActiveDocument.VBProject.VBComponents("Module1").CodeModule 'ici ne pas oublier de changer le nom (Module1) au cas où vous renommer le module à la ligne précédente.
x = .CountOfLines 'comptage du nombre de lignes exisante dans le module nommé ci-dessus
.InsertLines x + 1, "Sub test_macro()" 'insertion de la première ligne à x +1
.InsertLines x + 2, "MsgBox ""coucou"", vbInformation + vbOKOnly, ""test"""
.InsertLines x + 3, "End Sub"
End With
A savoir qu'il faut activer la référence "Microsoft Visual Basic for Applications Extensibility" pour que ça marche !!!!
Voilà j'espère que ça pourra aider quelqu'un, en tout cas moi ça m'a aidé.
Bonne journée à tous.