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)
Mais le feuillet « produits complémentaires » n’est pas ajouté automatiquement …
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 …
Partager