Probleme pour coller un long texte venant d un document word dans excel [Résolu]

[Vince_93700]

Bonjour,
Voici mon probleme:
J'ai un document word qui contient des informations avec une certaine mise en page. Je selectionne une partie de ce document mais lorsque j'essaie d'inserer le texte copier dans une cellule excel j'ai une erreur
Erreur d'execution 1004, erreur definie par l'application ou par l'objet

Un petit bout de code dans lequel vba m indique ou est l erreur: Au niveau du 1er range

Code :

1
2
3
4
5
6
Application_Word.Selection.MoveLeft wdWord, 1, wdMove 
Application_Word.Selection.MoveLeft wdWord, i - 2, wdExtend   
 
Range("B" & Num).Value = Application_Word.Selection            
Range("B" & Num).Select                                         
mise_en_forme_cellule

Le truc qui est bizarre c est que ce ne me fait ca que quand le texte est d'une certaine longueur. Pour des textes plus petit, ceci fonctionne.
J ai bien essayer de faire un .copy puis activesheet.paste pour voir ce que ca donnais mais a cause de la mise en page du texte, le texte se trouve sur plusieurs cellules alors que je voudrait qu'il soit contenu dans une seule cellule

Merci de vos reponses

[ouskel'n'or]

Comme tu fais, je ne sais pas faire mais comme ça, ça fonctionne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CopierCollerWordSelection()
Dim Wrd As Word.Application
Dim fl As Worksheet
Dim Num As Long, i As Long
    Set fl = ActiveSheet
    Set Wrd = CreateObject("Word.Application")
    'Wrd.Visible = True
    Num = 1
    Wrd.Documents.Open Filename:="""d:\doc\anisr.doc"""
    DoEvents
    i = 255
    With Wrd.Selection
        .EndKey Unit:=wdStory
        .MoveLeft Unit:=wdCharacter, Count:=1
        .MoveLeft wdWord, i - 2, wdExtend
    End With
    LeText = Wrd.Selection
    LeText = Replace(Wrd.Selection, vbCr, " ")
    fl.Range("B" & Num).WrapText = True
    fl.Range("B" & Num).Value = LeText
    Wrd.Quit
End Sub

A+

NB - Par contre, il est inutile de mettre "Wrd.Visible = True"

[Vince_93700]

Je te remercie ouskel'n'or
Depuis hier je cherche comme un fou pour pouvoir inserer ce fichu texte dans ma cellule.