Discussion :

[olivepao]

Bonjour à tous

J'espère que mes explications seront claires et que quelqu'un pourra m'aider.

J'ai un classeur Excel au format modèle (extention .xlt) que j'utilise comme un formulaire.

L'utilisateur rempli le formulaire et le sauve, du nom qu'il veut, avec l'extention xls.

Jusque là pas de problèmes, mes macros s'exécutent sans problème, tout est normal.

Je voudrais que les macros ne s'éxécutent pas lorsque le classeur porte l'extention xls.

Elle doivent s'exécuter UNIQUEMENT lorsque l'extention est xlt.

Mon problème est comment reconnaitre le classeur xls en n'indiquant que son extention, l'utilisateur donnant le nom qu'il veut à son classeur.


Pour moi il faudrait tester si le classeur est xlt ou xls (mais comment) dans

ThisWorkBook

Private Sub Workbook_Open()

avec un If testant l'ActiveWorkbook

Application.EnableEvents = True quand le classeur est xlt et

Application.EnableEvents = False quand le classeur est xls.

Un grand merci d'avance à tous.

[casefayere]

Bonjour

Code :

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

1
2
3
4
5
if activeworkbook.name = "*" & ".xlt" then
Application.EnableEvents = True
else
Application.EnableEvents = false
end if

[olivepao]

Merci pour ta réponse.

J'ai placé ta macro dans Private Sub Workbook_Open().

Le code fonctionne mais il y a un petit mais . . . Explications !

Les macros qui sont dans Private Sub Workbook_Open() fonctionnent lorsque j'ouvre mon modèle xlt. Mais les autres macros du style Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ne fonctionnent pas.

Pourtant le classeur n'a pas encore été sauvé et par conséquent ne porte pas l'extention xls.

Je voudrais que les macros puissent s'exécuter durant la création du formulaire et qu'elles ne s'exécutent pas lorsque l'on reprend le classeur sauvé par l'extention xls.

J'ai essayé d'inversé la macro en mettant une extention xls. J'ai également essayé avec un nom de classeur xls identique au modèle xlt. J'ai pas trouvé de soluce.

C'est sûrement tout bête . . .

[ucfoutu]

Bonjour,

l'erreur me parait être là :

Code :

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

if activeworkbook.name = "*" & ".xlt" then

= veut dire égal et il n'y aura jamais de classeur nommé *.xlt !
C'est Like qu'il faut utiliser

Code :

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

if activeworkbook.name Like "*" & ".xlt" then

ou encore (on peut également) :

Code :

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

if right(activeworkbook.name,4) =  ".xlt" then

EDIT : je voudrais maintenant savoir ce que tu as prévu de faire pour empêcher l'utilisateur (après avoir renommé et sauvegardé) d'aller modifier l'extension depuis l'explorateur (voire d'utiliser la barre d'outils de Excel pour le faire).

Il y a sans aucun doute moins "innocent" à faire ...

[olivepao]

Merci de ta réponse, je vais esssayer les nouveaux codes ! .

Je ferai un retour dès que j'aurais fait les tests.

Effectivement rien ne peut empêcher un utilisateur de renommer les fichier.

Petite précision, mes macros qui doivent s'activer dans le fichiers xlt sont des macros qui testent le remplissage des cellules et qui envoye un message "au cas ou" et des macros pour l'enregistrement et de l'impression.

Je pense que lorsque l'on utilise un modèle au format xlt, le formulaire (classeur) que l'on rempli n'est plus considérer comme xlt et je suppose que c'est la raison pour laquelle les macros en dehors de Private Sub Workbook_Open() ne fonctionnent pas.

Je me suis apperçu que ta macro était gardée en mémoire dan une sorte de buffer et qui empèche l'exécution des toutes autres macros si j'ouvre un autre classeur. Le problème se résout si je ferme Excel et que je le réouvre.

[EDIT]
@ ucfoutu

J'ai tester tes 2 propositions et le problème reste entier car le résultat est le même qu'avec ta soluce d'hier.