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