Macro et modèle

Bonjour,
j'ai créé un modèle qui exécute une macro modifiant le contenu de plusieurs cellules. Cette macro est placée dans Workbook_Open().
Quand je crée mes classeurs à partir du modèle, tout fonctionne bien.
Cependant, la macro est exécutée aussi quand j'ouvre le modèle lui-même pour le modifier. Je voudrais donc qu'elle s'exécute uniquement sur les documents créés à partir de ce modèle.
Comment faire ?

Bonjour,
Si nous parlons bien d'un modèle (suffixé xlt ou xltm) alors voici une solution.
Quand un classeur basé sur un modèle s'ouvre, il n'a pas d'extension donc en vérifiant l'existence du suffixe par la fonction instr, on peut vérifier si c'est un classeur ou un modèle
Exemple avec un modèle 97-2003.

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() With ThisWorkbook If InStr(.Name, ".xlt") Then MsgBox "Ceci est un modèle" End With End Sub

---

Merci pour ce code. Comme j'ai besoin d'exécuter mon code uniquement si le fichier n'est pas un modèle, j'ai écrit:

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() If Not (InStr(ThisWorkbook.Name, ".xltm")) Then //Mon code End If End Sub

---

Cependant, à la réouverture du modèle, le code est tout de même exécuté... :(

PS: j'utilise Excel 2013

La fonction InStr ne renvoie pas true ou false mais l'index auquel a été trouvée la chaîne, et zéro sinon:

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() If InStr(ThisWorkbook.Name, ".xltm") = 0 Then //Mon code End If End Sub

---

Bonjour,

Citation:

---

Cependant, à la réouverture du modèle, le code est tout de même exécuté...

---

Une simple recherche (F1) sur cette fonction t'aurais appris que Instr renvoie la position du premier caractère de la chaîne cherchée à l'intérieur d'une autre chaîne.
Donc pour ton cas, il faut écrire

Code:

---

If InStr(ThisWorkbook.Name, ".xlt") = 0 Then MsgBox "Exécution du code"

---

[EDIT]

Citation:

---

La fonction InStr ne renvoie pas true ou false mais l'index auquel a été trouvée la chaîne

---

Dans ma réponse

Code:

---

If InStr(.Name, ".xlt") Then MsgBox "Ceci est un modèle"

---

sous entends

Code:

---

If InStr(.Name, ".xlt") <>0 Then MsgBox "Ceci est un modèle"

---