Discussion :

[jacquesprogram]

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 ?

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacquesprogram]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacquesprogram]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EDIT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sous entends

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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