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