Discussion :

[CognitiKom]

Bonjour

J'ouvre depuis Excel en VBA un "programme" Word qui me permet d'analyser des documents Word et de restituer les résultats dans Excel.

Code :

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

1
2
3
Processus_Word.Documents.Open Filename:=Chemin_d_accès_au_document_d_analyse_des_documents_non_Excel, _
                              ReadOnly:=True, _
                         OpenAndRepair:=True

sachant que

Code :

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

Chemin_d_accès_au_document_d_analyse_des_documents_non_Excel = "C:\Users\Gilbert\Documents\SÆCI RS\Outils SÆCI RS\Analyse document Word pour SÆCI RS V0.5.docm"

et que Processus_Word est bien entendu créé ainsi

Code :

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

1
2
3
Public Processus_Word As Word.Application
....     
Set Processus_Word = CreateObject("Word.Application")

Mon problème est qu'au lieu de s'appeler "Analyse document Word pour SÆCI RS V0.5.docm" ma fenêtre Word s'appelle Document1, de même que toutes les fenêtres correspondant aux documents Word qu'elle ouvre par la suite.
C'est un peu gênant
En plus je croyais que c'était impossible...

J'ai essayé en définissant Processus_Word comme un "Object", mais bien entendu ça ne change rien.
Même si je n'en suis pas certain, je pense que mon problème est récent (je CROIS que ça marchait encore il y a 2 ou 3 mois) : est-ce que ça viendrait d'une mise à jour d'Office ?
Auriez-vous une idée pour me sortir de cette impasse ?

Merci d'avance
Gilbert

[CognitiKom]

Bonsoir

Personne n'a d'idée ?
Quel dommage

[clementmarcotte]

Bonjour,

Malgré l'ordre de répondre.

Renomme ton modèle Normal en anormal

Lance Word pour qu'il te créée un autre modèle Normal qui devrait être Normal.

Relance ta macro dans Excel

Si ton document Word garde son nom en chemin, il y a moyen de transférer tes macros, styles et autres cossins de Anormal vers normal.

Sinon, chez moi, avec Office 2016, le fichier garde son nom.

Sinon, vieux souvenir d'Office 2010:

remplace :

Code :

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

1
2
3
Processus_Word.Documents.Open Filename:=Chemin_d_accès_au_document_d_analyse_des_documents_non_Excel, _
                              ReadOnly:=True, _
                         OpenAndRepair:=True

par:

Code :

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

Processus_Word.Documents.Open(Chemin_d_accès_au_document_d_analyse_des_documents_non_Excel,  True,  True)

Si jamais, il y a des paramètres manquants, ajoute des virgules aux places où il manque des paramètres.

[CognitiKom]

Bonjour

Merci pour ta réponse : je vais essayer.

Petite remarque au passage : j'ai relu avec attention mon message et je n'y vois aucun "ordre"... plutôt une supplique.

Gilbert