Discussion :

[JLC83440]

Bonjour,
Je dois créer un modèle de classeur (template) excel.
Ce dernier, lors du clic sur nouveau (et non pas ouvrir) doit créer un classeur contenant une trentaine de feuilles de calculs à partir de données externes.
Le code qui s'exécute ne doit s'exécuter qu'à ce moment là.
Je pensais donc utiliser un évènement de type new... pour "nouveau classeur" et y placer le code nécessaire.
Hélas, je ne trouve pas pareil évènement !
Cela est très problématique !
Je cherche un tourne autour...
Merci et rebonjour à tous...
Je reprends le code après quelques années d'abstinences ;-)
Jean-Louis

[Philippe Tulliez]

Bonjour,
Pour pouvoir réaliser cela, il serait préférable de le faire soit depuis le classeur de macros personnelles (PERSONAL.xlsb) soit avec un complément (addin ou macro complémentaire)
Une idée dans cette discussion Détecter les évènements d'un classeur depuis un complément

[JLC83440]

Merci
Je vais voir comment faire cela car j'ignore tout de PERSONAL.xlsb
Quel bonheur que de ce remette au développement !

[JLC83440]

Bonjour,
Je reformule pour voir si j'ai compris la démarche proposée :

1. Je crée un fichier xlam pour produire un complément
2. Dans ThisWorkbook de mon projet "Au fil de l'eau", je filtre les évènements
3. Lors de la génération du bon évènement je lance le code (ou pas selon les tests) de mon complément (objets, fonctions, dialogues...)
4. Cela implique - je suppose - d'ajouter le fichier xlam dans le répertoire qui contient le modèle que je fournis à mes collègues
5. Je suppose que les formulaires de dialogues et le code utiles à l'avenir dans le fichier produit doivent rester indépendant de mon complément (hygiène de programmation)
6. Des feuilles de calculs non visibles à l'utilisateur mais nécessaires à certaines données sont-elles possibles ?

Ai-je bien compris le protocole ?
Cordialement
MERCI !

[Philippe Tulliez]

Bonjour,
Un fichier xlam est un classeur normal dont les feuilles sont masquées et dans lequel on peut placer des procédures Sub et Function qui peuvent être accessible par tous les classeurs ouverts du PC à condition que l'on ait activé le complément sur celui-ci.
On peut également intercepter les événements qui se produisent dans les classeurs ouverts.
Pour cela il faut écrire l'instruction ci-dessous en tête de module

Code :

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

Public WithEvents XL As Excel.Application

A partir de ce moment là, nous pourrons sélectionner XL dans la liste déroulante de gauche et voir dans la liste déroulante de droite, tous les événements associés à XL



Pour intercepter l'ouverture d'un classeur, nous utiliserons la procédure événementielle XL_WorkbookOpen et comme les nouveaux classeurs basés sur un modèle ne sont pas suffixés, il suffit d'utiliser la fonction Instr pour le détecter

Code :

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

1
2
3
4
5
Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
  If InStr(Wb.Name, ".") = 0 Then
     MsgBox "Nouveau classeur basé sur un modèle "
  End If
End Sub

Pour activer un complément

1. Sélectionner Options après avoir activer l'onglet [Fichier] (Image 1)
2. Sélectionner Complément dans le volet gauche de la boîte de dialogue Options Excel (Image 2)
3. Cocher la macro complémentaire dans la boîte de dialogue Compléments
4. Si celui-ci n'est pas présent dans la liste, il faut le chercher en cliquant sur le bouton Parcourir...

Image 1



Image 2

[Philippe Tulliez]

Bonjour,
Pour en savoir plus, sur la manière de créer une macro complémentaire voir mon billet titré VBA Excel - Créer une macro complémentaire

[Patrice740]

Bonjour,

Je dois créer un modèle de classeur (template) excel.
Ce dernier, lors du clic sur nouveau (et non pas ouvrir) doit créer un classeur contenant une trentaine de feuilles de calculs à partir de données externes.
Le code qui s'exécute ne doit s'exécuter qu'à ce moment là.

Utilises l'évènement Open du classeur :
- Celui-ci est aussi bien déclenché par la commande Nouveau que par Ouvrir.
- Pour n'exécuter la macro que sur Nouveau, il suffit de tester Thisworkbook.Path = ""

Mais vu que cette macro ne exécute qu'un seule fois il est préférable de la mettre dans un fichier externe dédié (xlsm, personnal ou xlam).

[JLC83440]

Merci
Tout cela fonctionne à merveille.
SUPER !