Discussion :

[DotNET74]

Bonjour,

Pour les besoins de ma société, j'ai développé une application qui se lance automatiquement lorsque l'utilisateur démarre MS Word.

Je suis passé par une Sub AutoExec dans le fichier Normal.dot.

Tout fonctionne bien excepté lorsqu'on veux lancer un document depuis l'explorateur de fichiers.

Word se lance et ma macro s'effectue mais le document ne s'ouvre pas, il faut refaire un double clic sur le document (dans l'explorateur) pour que celui-ci s'ouvre.

Je ne comprends pas ce qui se passe.

Cela vient de ma macro AutoExec car si je la passe en commentaire tout fonctionne bien.
Question subsidiaire peut on récupérer le chemin du fichier que l'on peut ouvrir depuis la macro AutoExec ?

Merci de votre aide

[Speedrman]

Bonjour,

tu pourrais essayer avec AutoOpen à la place de AutoExec

Sinon quel est le contenu de la procédure AutoExec ?

[ouskel'n'or]

Essaie cette syntaxe, elle fonctionne aussi bien sur VB97 que 2003

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AutoExec()
Main
End Sub
 
Public Sub Main()
     Call LaMacro
End Sub
 
Sub LaMacro()
msgbox "coucou, ça marche !"
End sub

A+

[DotNET74]

Merci pour vos infos,

En fouillant sur le web, j'ai vu qu'on pouvait charger automatiquement un .dot au démarrage en plaçant ce dernier dans le dossier

"c:\Documents and Settings\nom de l'utilisateur\Application Data\Microsoft\Word\DÉMARRAGE"

De cette manière, il n'y a pas besoin de recourir à la macro AutoExec.

J'ai donc essayé mais le résultat est le même, tout fonctionne excepté lorsque l'utilisateur veut démarrer un fichier depuis l'explorateur de fichiers.

En effet, mon complément se charge bien mais empêche le chargement du fichier appelé depuis l'explorateur !

Si vous avez une idée....

[DotNET74]

J'ai trouvé !!!

en fait lors du chargement de mon compléement je fais une vérification et affiche une fenêtre et comme cela se faisait rapidement j'avais rajouter le code suivant:

Code :

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

1
2
3
4
While Not Cpt=50000
  Cpt=Cpt+1
  DoEvents
Wend

et cela faisait que le fichier ne s'ouvrait pas !

Encore un truc de dingue

Et encore merci pour votre aide