Discussion :

[Souriane]

Bonjour tous!

Voici une macro que j'ai créée et que je souhaite insérer dans plusieurs document. Je souhaite que ma macro fasse exactement comme quand on ouvre un .dot avec Fichier/Nouveau, c'est-à-dire, ouvrir le modèle et en faire une copie alors on reste à l'écran avec seulement un "Document2.doc" à l'écran.

Mais voilà, ma macro fonctionne juste à 95%. Elle m'ouvre bien un "Document2.doc" à l'écran, elle referme mon "Modelexyz.doc" sans sauvegarder mais si j'avais plusieurs documents déjà d'ouvert à l'écran, elle ne revient pas à "Document2.doc" mais pluôt à "Document1.doc" par exemple.

Comment est-ce que je dis à la macro, reviens à mon document que je viens juste de créer?

Merci de votre aide!
Souriane

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Document_Open()
 
Dim docModele As Document
Set docModele = ActiveDocument
 
If ActiveDocument.ReadOnly = True Then
    ActiveDocument.ReadOnlyRecommended = False
 
'Créé une copie du document qui vient d'être ouvert
    Application.Documents.Add ActiveDocument.FullName
 
Dim docCopie As String
docCopie = ActiveDocument.FullName
 
'Ferme le Modèle sans sauvegarder
docModele.Close wdDoNotSaveChanges
 
'****************Ça fonctionne pas cette méthode :
Documents(docCopie).Activate
 
End If
 
End Sub

[carden752]

Bonjour,

Je ne sais pas si cela peut t'aider beaucoup mais tu es sur quelle version de Word.
La macro fonctionne chez moi lorsque je la lance.
En revanche si le document que j'essaye d'ouvrir est exécuté en mode compatibilité, elle se lance mais j'ai le nom du fichier qui est conservé.

Ceci dit il revient toujours sur le dernier document ouvert.

Cordialement,
Christophe

[Souriane]

Je travaille (encore!) avec Word 2003.

[carden752]

Est-ce que tu peux rajouter deux lignes remettant à zéro tes variables docmodele et doccopie à la fin juste avant end sub.

Code :

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

1
2
set docModele = Nothing
set doccopie = Nothing

Si ton code plante, alors c'est que doccopie n'est pas correctement réinitialisé.
Le End if se trouve bien après la ligne

Code :

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

Documents(docCopie).Activate

[Heureux-oli]

Salut Souriane,

Le problème vient du fait que le document qui appelle pour l 'activation est refermé et de ce fait, l'ordre des documents change.

J'ai par acquis de conscience tenté de rendre actif un autre document qui était ouvert et ça ne fonctionne pas.
On peut activer un document contenu dans la collection des documents ouverts si cette collection ne change pas.

J'ai essayé de faire un appel à un procédure externe, mais sans résultat, dès que l'on modifie la collection, l'ordre change.

[Sepia]

Salut Souriane,

Comme le dit Heureux-Oli l'ordre des documents change dès qu'on renferme un (et ce depuis le début de Word multi-document). La seule solution qui fonctionne toujours est de ruser avec le nom (l'index ne peut ici te servir puisqu'il est modifié) et d'utiliser le nom de la fenêtre. En fait on n'utilise pas le nom mais seulement son début pour éviter des problèmes liés à des ouvertures multiples d'un même document (ou dans ton cas pour Document1, Document2...). Cette technique marche depuis longtemps (mais elle n'est pas très jolie mais elle marche à tous les coups ) et elle est encore plus efficace avec Word 2007 (à cause du suffixe docx au lieu de doc) et de l'ajout des textes ("Mode de compatibilité") ou ("Lecture seule").

Si tu en as besoin, n'hésite pas mais sache qu'elle ne peut pas être efficace car elle a besoin de parcourir la liste des fenêtres actives avant la fermeture d'une fenêtre pour la comparer à la nouvelle (et tout ça pour retrouver nos petites fenêtres ). Envoie ta macro pour qu'on la complète.

@+

[Souriane]

Bonjour,

Merci de votre aide jusqu'ici!

J'ai travaillé extrêmement fort avant de vous relancer. J'ai cherché pendant des heures (je n'exagère pas!).

Sepia, j'ai cherché sur ta suggestion entre autres sur "Window Caption" entre autre mais je n'arrive à rien!.

Je bloque toujours avec la même macro. Pouvez-vous m'aider?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Document_Open()
 
Dim docModele As Document
Set docModele = ActiveDocument
 
If ActiveDocument.ReadOnly = True Then
    ActiveDocument.ReadOnlyRecommended = False
 
'Créé une copie du document qui vient d'être ouvert
    Application.Documents.Add ActiveDocument.FullName
 
Dim docCopie As String
docCopie = ActiveDocument.FullName
 
'Ferme le Modèle sans sauvegarder
docModele.Close wdDoNotSaveChanges
 
'****************Ça fonctionne pas cette méthode :
Documents(docCopie).Activate
 
End If
 
End Sub

Merci!

[Heureux-oli]

Salut Souriane,

Je ne vois pas d'issue.
J'avais pensé fermer tous les documents pour ensuite les réouvrir et le bon doc en dernier.
Mais si un document n'est pas sauvegardé, on se retrouve avec un nouveau problème.

[dewcaro]

Bonjour Souriane,

Et comme ça est-ce que cela fonctionne?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub Document_Open()
 
Dim docModele As Document
Set docModele = ActiveDocument
 
If ActiveDocument.ReadOnly = True Then
    ActiveDocument.ReadOnlyRecommended = False
 
'Créé une copie du document qui vient d'être ouvert
 
 
Dim docCopie As Document
Set docCopie = Application.Documents.Add(ActiveDocument.FullName)
 
'Ferme le Modèle sans sauvegarder
docModele.Close wdDoNotSaveChanges
 
Documents(docCopie).Activate
 
End If

Chez moi c'est ok, mais je suis sous Word 2010 donc...

[dewcaro]

ou bien enregistrer le document copie que tu viens de créer pour lui donner un nom, quitte à le mettre en lecture seule pour obliger l'utilisateur à le renommer s'il veut l'enregistrer...
Dans ce cas, Word pourra le réactiver grâce à son nom "fixe"

[Souriane]

J'ai travaillé fort sur celle-ci et j'en suis très fière! (surtout que mon idol Heureux-Oli n'y voyait pas de solution!!!)

Ce que dewcaro ne fonctionnait pas ici, ni sur Word2003 ni sur Word2007.

Pour ceux qui consulterait ce post dans le futur, voici ce que j'ai trouvé avec plusieurs essais-erreurs et qui est tout simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub Document_Open()
'Macro pour ouvrir un document ".doc" ou ".docm" de la même qu'un ".dot/m" dans fichier nouveau.
'Le document s'ouvre, une copie est créée et l'original et refermé.
 
'Si le document est en lecture seule, c'est que cette macro s'applique
If ActiveDocument.ReadOnly = True Then
    ActiveDocument.ReadOnlyRecommended = False
 
'Créé une copie du document qui vient d'être ouvert
 Application.Documents.Add ActiveDocument.FullName
 
'Ferme le document original
Documents(2).Activate
    ActiveDocument.Close wdDoNotSaveChanges
 
'Ramène le focus sur la copie du document
Documents(1).Activate
End If
End Sub

P.S. Merci à tous de votre aide, vous avez pas idée à quel point ça m'est utile dans mon travail! Sans vous, je ne serais probablement pas rendue où j'en suis rendue aujourd'hui!