Discussion :

[Naaby]

Bonjour,
Après des recherches et essais infructueux, je lance le sujet,
j'aimerais faire deux chose :
1/ ouvrir un document word vierge (ca c'est bon, j'y arrive)
2/ une fois mon texte saisi et formaté, le copier sur ma feuille Excel (et la ca coince).

J'ai trouvé la solution déjà proposée, enregistrer le doc Word puis utiliser cette macro :

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
 
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
 
    Set Wb = Workbooks.Add(1)
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("monDocument.docx", ReadOnly:=True)
 
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
 
    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False
    Wb.SaveAs "C:\copieDocument.xls"

Mais j'aurais aimé autant que possible ne pas avoir a enregistrer mon Doc Word, j'ai donc modifié la macro si dessus mais cela ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim WordDoc As Word.Document
Dim Wb As Workbook
 
    Set Wb = ThisWorkBook
    Set WordDoc = GetObject("monDocument.docx")
 
    With WordDoc
        .Selection.WholeStory
        .Selection.Copy
    End With
 
    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste

Si quelqu'un a une solution.... Je vous en remercie par avance.

[SfJ5Rpw8]

bonsoir,

pour marcher il faut des jambes ...

que ce passe-t'il ?

[Naaby]

Bonsoir,
Message d'erreur :

Erreur d’exécution '438':
Propriété ou méthode non gérée par cet objet

le debuggeur me renvoyant sur :

Code :

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

.Selection.WholeStory

[piotr76]

Bonjour

Et avec

Code :

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

1
2
3
4
    With WordDoc
        .Application.Selection.WholeStory
        .Application.Selection.Copy
    End With

???

Cordialement

[Naaby]

Bonjour,
Merci, cela marche parfaitement .