Discussion :

[ivilo]

Bonjour à tous,

J'ai crée un code VBA spécifique pour un document Word (qui fonctionne très bien) et que j'ai mis dans Project (Mon Doc) > Word Objects > This Document.

Malheureusement, dès que j'ouvre simultanément un autre document Word, mon code s'active aussi dans cet autre document (et se recopie tout seul dans Project(Mon 2nd Doc) > Word Objects > This Document, ce que je ne veux absolument pas !
Aurais-je placé mon code au mauvais endroit ? Comment puis-je faire pour que mon code soit spécifique à un seul doc ?

Merci d'avance à tous ceux qui pourront m'aider

edité : Au cas où, le code en question :

Dim WithEvents oWdApp As Word.Application

Sub Document_Open()

Set oWdApp = Word.Application

End Sub

Sub oWdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

MsgBox "Vous êtes sur le point de sauvegarder le document " & Doc.Name & Chr(13) & Chr(13) & "Info"

End Sub

[Heureux-oli]

Salut,
Es-tu certain qu'il est copié ?
Qu'il soit disponible, c'est un peu normal, qu'il soit copié ne l'est pas.
Pour le vérifier, ouvre le second document tout seul, tu verras ce qu'il contient.

[ivilo]

Salut et merci pour ta réponse !
J'ai vérifié, il ne se copie pas mais s'applique au second document, que ce soit un doc existant que j'ouvre (mais qui ne contient pourtant aucun code) ou un que je crée...

Exemple : J'ouvre "MonDoc" (celui avec le code VBA), si j'essaie de l'enregistrer, le message apparaît comme prévu dans le code. Je laisse "MonDoc" ouvert.
Ensuite, j'ouvre un document vierge (donc qui ne contient aucun code). Si j'essaie de l'enregistrer, le message apparaît... C'est ça que je veux éviter, je souhaite que mon message n’apparaisse que pour "MonDoc".

[Heureux-oli]

Salut,

C'est un lien vers le modèle que tu as utilisé.
Si tu changes le modèle du document, ça ne devrait plus se produire.

[ivilo]

Salut et encore merci,

J'ai crée un nouveau modèle et donc changé le modèle de mon document (de Normal.dotm vers Modele1.dotm), mais si j'ouvre un nouveau document (qui est par défaut en Normal.dotm), mon problème persiste
Les modèles sont-ils liés entre eux par défaut ou ais-je mal compris tes explications ?

[Heureux-oli]

Salut,

C'est normal, je pensais que ton code se trouvait dans un modèle autre que le normal.

Le normal est lié par défaut à tous les documents.

[ivilo]

Justement, je pensais avoir tout enlevé du Normal pour le mettre dans l'autre modèle... Et ça ne marche pas quand même.
En fait, ce que je cherche à faire, c'est de rendre un code spécifique à un document et à un seul, sans qu'il aille influer sur les autres.
Je viens d'ouvrir un second document (simultanément au premier où il y a mon code) où j'avais aussi du code VBA dedans, ça a été un sacré feu d'artifice à l'ouverture
Au final, est-ce que c'est possible avec Word de réaliser ce que je cherche à faire ?

[Marc-L]

Bonjour,

oui certainement avec un code un tant soit peu logique ‼

Tester au moins le nom du document ou son chemin, s'il est vide ou pas …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[ivilo]

Bonjour Marc-L,

Peux-tu détailler un peu ton propos (comment tester le nom du document/son chemin), mes compétences sont un peu limitées et Google pas très coopératif

[Marc-L]

Ne pas s'étonner de voir tous les documents affectés par ce code en utilisant une classe générique pour tous les documents !
Ce code n'est pas du tout l'air spécifique à un document …
Vérifier aussi ce qu'il y a dans le projet Normal commun à tous les documents.

Comme je n'ai sous le coude qu'une version 2003, je laisse la main à ceux disposant de ta version …

[clementmarcotte]

Bonjour,

Hier, j'ai juste survolé ce sujet. Maintenant que je suis un peu plus attentif, je me pose une question. Cependant, j'avoue que je n'ai rien testé et que je n'ai pas vraiment le temps pour l'instant. Mais j'aimerais avoir votre avis.

Dans le "code original"

Code :

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

1
2
3
4
Dim WithEvents oWdApp As Word.Application
 Sub Document_Open()
 Set oWdApp = Word.Application
 End Sub

La macro est déjà dans une application Word, donc dans une première "word.application". Dans la première ligne, il semble, du moins à première vue (et sans avoir testé) qu'il y a la "création" d'une seconde "word.application". Et, si ma supposition est exacte, la seconde "word.application" devrait ouvrir un second "jeu" des mêmes modèles et donc, conserver le message dans la seconde "Word.Application".

Donc, toujours si mes suppositions sont exactes, il faudrait enlever la première ligne, ou la remplacer par autre chose, non ?

Mais, je vais quand même mettre cette question au "réfrigérateur" et tester plus tard.

[Heureux-oli]

Salut,

Pour le code, il n'y a pas de différence entre 2003 et 2010.
Par contre, un Private pourrait limiter l'usage du code.

[ivilo]

Salut à tous,

Vérifier aussi ce qu'il y a dans le projet Normal commun à tous les documents.

Normal est vide.

La macro est déjà dans une application Word, donc dans une première "word.application". Dans la première ligne, il semble, du moins à première vue (et sans avoir testé) qu'il y a la "création" d'une seconde "word.application". Et, si ma supposition est exacte, la seconde "word.application" devrait ouvrir un second "jeu" des mêmes modèles et donc, conserver le message dans la seconde "Word.Application".

Donc, toujours si mes suppositions sont exactes, il faudrait enlever la première ligne, ou la remplacer par autre chose, non ?

Sans la première ligne, rien ne marche. Si je ne me trompe pas, cette word.application permet de pouvoir utiliser par la suite " DocumentBeforeSave ", qui n'est pas utilisable à la base.

Salut,

Pour le code, il n'y a pas de différence entre 2003 et 2010.
Par contre, un Private pourrait limiter l'usage du code.

J'avais déjà essayé, ça ne résout pas le problème.