Discussion :

[Heureux-oli]

Salut,

Je confirme, les évènements ne sont pas pris en compte lorsqu'un modélè est utilisé comme complément.

[toniob44]

Salut,

Je confirme, les évènements ne sont pas pris en compte lorsqu'un modélè est utilisé comme complément.

Ha d'accord. Merci pour cette info.

Comment faire d'après toi pour installer rapidement mes macros ?
-avoir un modèle sans évènements mais la comment faire pour charger mon menu dans la barre de menu.
-ou alors autre chose qu'un modèle mais avec le même principe d'installation et qui peut s'enlevé facilement. (Eviter un maximum les bidouillages des utilisateurs.)

En te remerciant Olivier

[Heureux-oli]

Salut,


Pour charger la barre d'outils, il suffit qu'elle soit active dans le modèle pour qu'au chargement elle soit visible.


Pour "distribuer" un modèle, il suffit de la copier sur toutes les machines qui en ont besoin.

Perso, j'utilise le FSO (File Scripting Object).
http://warin.developpez.com/access/fichiers/

Code :

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

1
2
3
4
5
Set fs = CreateObject("Scripting.FileSystemObject")
    Set ofld = fs.GetFolder(drvPath & "\Documents and Settings\utilisateur\Application Data\Microsoft\Word\STARTUP
\")
    fs.CopyFile "C:\Documents and Settings\utilisateur\Application Data\Microsoft\Word\STARTUP
\MonModèle.dot", ofld.Path & "\MonModèle.dot", True

Dans ce code, drvPath est le chemin de la machine cible

Code :

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

\\LaMachineCible\C$

[toniob44]

Salut,


Pour charger la barre d'outils, il suffit qu'elle soit active dans le modèle pour qu'au chargement elle soit visible.


Pour "distribuer" un modèle, il suffit de la copier sur toutes les machines qui en ont besoin.

Perso, j'utilise le FSO (File Scripting Object).
http://warin.developpez.com/access/fichiers/

Code :

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

1
2
3
4
5
Set fs = CreateObject("Scripting.FileSystemObject")
    Set ofld = fs.GetFolder(drvPath & "\Documents and Settings\utilisateur\Application Data\Microsoft\Word\STARTUP
\")
    fs.CopyFile "C:\Documents and Settings\utilisateur\Application Data\Microsoft\Word\STARTUP
\MonModèle.dot", ofld.Path & "\MonModèle.dot", True

Dans ce code, drvPath est le chemin de la machine cible

Code :

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

\\LaMachineCible\C$

Moi le modèle est déja en réseau. Il suffit de remplacer le modèle qui est en réseau non ? il est dans modèle et complément.

Pour charger la barre d'outils, il suffit qu'elle soit active dans le modèle pour qu'au chargement elle soit visible.

Que veux tu dire par qu'elle soit active dans le modèle ?
J'ai juste le modèle123.dot Es ce que je peux le modifier ?

[Heureux-oli]

Salut,

Pour faire un essai, j'ai crée un modèle avec une barre d'outils et quelques boutons.
Je l'affiche dans mon modèle.

Je met le modèle en complément et la barre d'outil est visible et le code disponible.

[toniob44]

Salut,

Pour faire un essai, j'ai crée un modèle avec une barre d'outils et quelques boutons.
Je l'affiche dans mon modèle.

Je met le modèle en complément et la barre d'outil est visible et le code disponible.

Je pense faire comme cela.
Cela permet de ne pas utiliser les événements.
Je ne voulais pas toucher au .dot mais enfete je n'ai pas le choix.

Merci à toi pour avoir passé autant de temps
Te restes tu un peu de temps pour un de mes autres topics ?
pivoter-90-toutes-images-paysage-dossier