ouverture fichier Word

Bonjour,
Mon but est de copier le contenu intégral d'un fichier Word dans une colonne Excel (le code est dans Excel parce que l'essentiel des autres opérations se passent dans Excel).
Problème: après avoir ouvert le fichier word, la prochaine instruction provoque le message "Commande non disponible; aucun document n'est ouvert". Est-ce mes instructions d'ouverture du fichier qui foirent ? Ci-dessous le début de mon code (adapté d'un exemple Internet):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub texte_Word_vers_Excel()   Dim contenu As String Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim BMRange As Word.Range Dim WdFich As Object   Set WdFich = CreateObject("Word.Application") Documents.Open Filename:=("E:\2_M_E_S__P_R_O_J_E_T_S\Périple\analyse_periple\PERIPLE_10_10_test.docx")   'encolonner_texte   ActiveDocument.Range.Expand ' >> ici message d'erreur: commande non disponible 'aucun document n'est ouvert 'même erreur dès la référence à ActiveDocument, quelle que soit la suite   '... etc. End Sub

---

En général je me noie dans un verre d'eau. Merci d'avance à qui me repêchera !
Cordialement
touche_a_tout

Le code basique pour ouvrir document word à partir de l'Excel

Code:

---

1 2 3 4 5 6 7 8 9

Dim wApp, Doc Set wApp = CreateObject("Word.Application") Set Doc = wApp.Documents.Open(Filename:="E:\2_M_E_S__P_R_O_J_E_T_S\Périple\analyse_periple\PERIPLE_10_10_test.docx")   'encolonner_texte   Doc.Range.Expand ' >> ici message d'erreur: commande non disponible 'aucun document n'est ouvert 'même erreur dès la référence à ActiveDocument, quelle que soit la suite

---

Merci Rmist2024,
C'était trop beau. J'ai copié ton code en remplacement du mien mais la ligne 3 lance une exécution sans fin, arrêtable seulement par Ctrl+Alt/Del. Une idée de ce qui se passe ?
Merci d'avance
Cordial salut
touche_a_tout

Re,
Post Scriptum.
Boîte de dialogue s'ouvre avec "L'appel a été annulé par filtre de messages".
Aucune idée de ce que ça signifie.
touche_a_tout

Probablement qu'une autre instance de Word n'est pas fermée et bloque l’exécution du code

Code:

---

1 2 3 4 5 6 7 8 9

Dim wApp, Doc Set wApp = CreateObject("Word.Application") Set Doc = wApp.Documents.Open(""E:\2_M_E_S__P_R_O_J_E_T_S\Périple\analyse_periple\PERIPLE_10_10_test.docx")", True)' lecture seule   ...     wApp.Quit Set wApp = Nothing

---

Bonjour,
Merci rMist2024,
J'ai en effet une fenêtre de dialogue avec le choix entre créer un fichier lecture seule, créer une copie et attendre notification + OK et Annuler. Je me rappelle avoir utilisé une procédure pour cliquer virtuellement avec VBA sur un des boutons mais je ne la retrouve pas (J'ai pas mal fouillé les sites de VBA !).
Y a-t-il eu un fil sur ce sujet sur le forum ? Un tutoriel ? Celui que j'ai étudié n'aborde pas ce point particulier.
J'ai aussi testé les instructions qui ferment ou désactivent un dialogue mais sans succès.
Le pire est que le fichier Word que je veux ouvrir est effectivement ouvert (en lecture seule) mais caché par des fichiers vides. Il est créé par la ligne

Code:

---

Set AppWord = CreateObject("Word.Application")

---

où le nom du fichier que je veux ouvrir ne figure pas !!
Merci pour toute piste.
Cordialement
touche_a_tout

Citation:

---

J'ai en effet une fenêtre de dialogue avec le choix entre créer un fichier lecture seule, créer une copie et attendre notification + OK et Annuler. Je me rappelle avoir utilisé une procédure pour cliquer virtuellement avec VBA sur un des boutons mais je ne la retrouve pas (J'ai pas mal fouillé les sites de VBA !).

---

Dans ce cas le fichier est ouvert et l'application propose une série d'actions que tu cites

Pour se connecter à une instance qui existe utiliser plutôt GetObject et parcourir les documentes ouverts ou selectionner le document si tu as son nom

Code:

---

1 2 3 4 5 6 7 8 9

Dim wApp, Doc Set wApp = GetObject(, "Word.Application")   ' parcourir les documents ouverts For Each Doc In wApp.Documents MsgBox Doc.Name Next 'selectionner un document par nim 'Set Doc = wApp.Documents("PERIPLE_10_10_test.docx")

---

Attention n'utiliser pas wApp.Quit avec GetObject il va fermer l'application

Merci rMist2024,
Ton code fonctionne et je peux activer le fichier qui m'intéresse mais je me casse les dents sur une fonction que je copie textuellement chez Microsoft Learn: Replace, soit:

Citation:

---

Replace(expression, find, replace, [ start, [ count, [ compare ]]])

---

(les 3 derniers arguments sont facultatifs) et elle me donne une erreur. Je ferais sans doute mieux d'indiquer ce que je veux faire et d'afficher mon code.
J'ai un texte sous Word que je veux analyser mot après mot avec Excel. Mon plan consiste à ouvrir ce Doc dans Word, de remplacer tous les espaces (Chr(32) par un retour chariot et de le coller dans la première colonne d'une feuille XL où il s'affichera à raison d'un mot par cellule. Pour tester la moulinette j'ai choisi un passage du Doc où il est question d'un escalier et je cherche à remplacer "marches" par "degrés" et c'est là, à la ligne 12:

Code:

---

Replace(mystring, "marches", "degrés",)

---

que j'ai l'erreur, que je mette ou non la virgule après le texte de remplacement.
Pour plus de clarté je copie mon code provisoire ci-dessous. SI quelqu'un voit où ça pèche je suis tout ouïe !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub modifier_Word() Dim AppWord, Doc   Set AppWord = GetObject(, "Word.Application") ' parcourir les documents ouverts 'n'est pas indispensable For Each Doc In AppWord.Documents MsgBox Doc.Name Next Documents.Open ("E:\2_M_E_S__P_R_O_J_E_T_S\Périple\analyse_periple\PERIPLE_10_10_test.docx") ActiveDocument.Range.WholeStory mystring = ActiveDocument.Content Replace(mystring, "marches", "degrés",) ActiveDocument.Content.Find.Execute Replace:=wdReplaceAll   End Sub

---

Merci d'avance et bonne soirée.
Cordialement
touche_a_tout

Hello,

un exemple à adapter en PJ.

Haha, merci, le Nain costaud,
Demain, je serai un peu plus frais pour commenter.
Bonne soirée
Cordialement
touche_a_tout

Bonjour Nain_porte_Koi et encore merci,
Du code vachement propre (je code comme un gamin qui bouffe le Nutella avec les doigts) et rien en dur. Un modèle !
Mais je n'arrive pas à activer les macros: Fichier, groupe code, Sécurité des macros, Activer toutes les macros mais ça ne donne rien ! Et l'aide de Microsoft ne s'intéresse plus qu'à 365, avec des tas de renvois à toute sorte d'articles pour revenir finalement à Fichier, groupe code, Sécurité des macros, Activer toutes les macros. Avec les fautes de traduction par-dessus le marché. Qu'alors y faire ?
Merci d'avance.
Cordialement
touche_a_tout

STOP ! Tout va bien !
OK, Nain_porte_KOI, ça fonctionne. J'ai changé le nom du fichier XL dans le module mais pas dans le classeur lui-même ! C'est ce qui empêchait l'activation des macros. Encore merci pour ton aide ou plutôt pour ta recréation de ce module. Discussion terminée.
Cordialement
touche_a_tout