Ajout macro auto dans tout nouveau classeur?

[fifi]

bonjour le forum,

Comment faire pour qu'à là création de tout classeur, une macro type soit ajoutée à ce classeur dans thisworkbook?

merci de votre aide 😀

 

[Guest]

Re : Ajout macro auto dans tout nouveau classeur?

bonjour Fifi,

Quelle macro?
Nécessite -t-elle vraiment d'être dans ThisWorkBook? Si oui dans quel Evènement?
Maîtrises -tu un peu VBA? Les modules de classe?
Sinon, cela paraît difficile.

A bientôt

 

[fifi]

Re : Ajout macro auto dans tout nouveau classeur?

hello HASCO
je maitrise un peu le VBA (tout est relation par rapports à certains ici 😀)

je voudrais ajouter dans tous les classeur créés cette macro événementielles pour la fermuture du classeur :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Fichier As String
Fichier = "\\xxxxx-serv\COMMUN\INIT\" & Left(ActiveWorkbook.Name,Len(ActiveWorkbook.Name) - 4) & ".ini"
Open Fichier For Output As #1
Print #1, "\\xxxxx-serv\COMMUN\INIT\" & ThisWorkbook.Path & "\" & ThisWorkbook.Name
Close
End Sub




tu penses à un add on ?

 

[Guest]

Re : Ajout macro auto dans tout nouveau classeur?

Re fifi,

tu penses à un add on ?

Je pense à un .xla avec un module de class WorkBooks.

Je vais voir ce que je peux faire....Patiente

 

[Guest]

Re : Ajout macro auto dans tout nouveau classeur?

Re bonjour Fifi:

voici le fichier xls que tu n'aura plus qu'à enregistrer comme xla après tes tests.

Voir les commentaires sur la feuille 1

A bientôt

 

[fifi]

Re : Ajout macro auto dans tout nouveau classeur?

ok ca marche nikel 😀

 

[fifi]

Re : Ajout macro auto dans tout nouveau classeur?

merci beaucoup .. ca va m'aider et puis je saurais faire maintenant 😀

un grand merci .... cool pas mal de temps gagné à l'avenir.

 

[XL_Luc]

Re : Ajout macro auto dans tout nouveau classeur?

Pourquoi ne pas avoir utilisé l'evenement de classe
Sub AppXl_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)

ça permettrai de ne pas alourdir chaque fichier surtout ceux qui n'ont pas de macros, il n'y aura pas lea demande d'activation à chaque ouverture.

Par contre, je garde ta solution qui ouvre pas mal de perspectives

 

[Guest]

Re : Ajout macro auto dans tout nouveau classeur?

Bonjour

Pourquoi ne pas avoir utilisé l'evenement de classe AppXl_WorkbookBeforeSave?

C'était une possibilité mais qui ne correspondait pas à la demande de notre ami Fifi.
Aux demandeur d'imaginer quelles perspectives cela peut ouvrir, comme tu as su le faire.

A bientôt

 

[fifi]

Re : Ajout macro auto dans tout nouveau classeur?

re bonsoir

ceci je peux le mettre ou ?
Sub AppXl_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)

 

[Guest]

Re : Ajout macro auto dans tout nouveau classeur?

Bonjour Fifi

ceci je peux le mettre ou ?
Sub AppXl_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)

Pour faire quoi? Dans quel objectif? La solution proposée ne convient plus?

A bientôt

 

[fifi]

Re : Ajout macro auto dans tout nouveau classeur?

si si la solution convient mais c'était pour comparer et surtout apprendre.
😀

 

[Guest]

Re : Ajout macro auto dans tout nouveau classeur?

bonjour fifi, XL_Luc,

fifi, la proposition de xl_Luc, laisse le module de classe gérer la fermeture de tous les classeurs, au lieu d'écrire une macro dans chaque classeur, c'est lui qui ouvre, écrit, ferme le fichier .ini.

Avantage: les classeurs ne contiennent plus la macro (plus léger)
Inconvénient: Ils deviennent dépendants, pour la réalisation de cette tâche du classeur qui contient la module de classe. Exemple: les classeurs ouverts sur une autre machine ou en réseau, n'écriront pas dans le fichiers .ini

A bientôt