[VBA-E] macros complémentaires .xla et .xlt
Bonjour ,
Je souhaiterais qu’à chaque démarrage d’excel un feuillet “produits complémentaires” soit ajouter au classeur en cour .De meme pour un fichier excel qui existerait déjà .
Pour cela j’aie crée une macro complémentaire .xla et un fichier modèle .xlt (ce dernier contenant mon feuillet « produits complémentaires »)
Voici ce que j’aie codé dans mon .xla (dans ThisWorkBook)
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Public WithEvents app As Excel.Application
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
MsgBox "Ouverture d'un classeur"
End Sub
Private Sub Workbook_Open()
Set app = Excel.Application
ThisWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count), Type:= _
"C:\Documents and Settings\a\Application Data\Microsoft\Modèles\PRODUITS COMPLEMENTAIRES.xlt"
End Sub |
Mais le feuillet « produits complémentaires » n’est pas ajouté automatiquement …
Rmq : pas de bug si je lance excel directement et ouvre ainsi un nouveau classeur.En revanche ça plante sévère si j’ouvre un fichier .xls existant .
Que manque-t-il ? merci …