Discussion :

[touche_a_tout]

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 :

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
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

[Invité]

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

Code :

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

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

[touche_a_tout]

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

[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

[Invité]

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

Code :

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

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

[touche_a_tout]

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 :

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

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