Discussion :

[zotari]

Bonjour à tous,

Aprés avoir cherché dans les forums pendant 3 jours je me décide à poster ce sujet
Je travaille sous office 2002 et un grand mystére vient de se produire en recopiant mon fichier excel :

je fais un transfert de données de Excel vers des signets dans Word en utilisant une macro dont le code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim docword As Object
Dim Appword As Object
Set Appword = CreateObject("Word.Application")
Appword.Visible = True
With Appword
Set docword = Appword.Documents.Open("D:\Derniere Version test\rapport\testr.doc", ReadOnly:=False)
ThisWorkbook.Worksheets("feuil2").Range("A21").Copy
docword.Bookmarks("NEval").Select
.Selection.PasteAndFormat Type:=wdFormatPlainText
docword.Bookmarks("NEval1").Select
.Selection.PasteAndFormat Type:=wdFormatPlainText
End With
'etc...

Jusqu'à présent le texte copié dans Word prenait la mise en forme de Word (ce que je souhaite).
Maintenant, le texte va bien au signet mais il saute une ligne avant, reste au format excel et va à la ligne.

Les dll utilisées (cochées dans word et excel) sont :

visuel basic for application
microsoft exel 10.0 object library
microsoft word 10.0 object library
microsoft office 10.0 object library
microsoft form2object libray

Je ne comprends pas. quelq'un aurait il une idée

[mercatog]

Bonjour
Avec la Référence Microsoft Word XX.X cochée

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
Dim AppWord As New Word.Application
Dim DocWord As Word.Document
 
AppWord.Visible = True
Application.ScreenUpdating = False
Set DocWord = AppWord.Documents.Open("C:\Users\user\Desktop\testr.doc", ReadOnly:=False)
ThisWorkbook.Worksheets("Feuil2").Range("A21").Copy
With DocWord
    .Bookmarks("NEval").Range.PasteAndFormat wdFormatPlainText
    .Bookmarks("NEval1").Range.PasteAndFormat wdFormatPlainText
    Application.CutCopyMode = False
    .Save
    .Close
End With
Set DocWord = Nothing
AppWord.Quit
Set AppWord = Nothing

[pgz]

Bonjour.

Tu n'as pas besoin de sélectionner ni copier. En FAQ : Comment exporter des données Excel vers plusieurs signets d'un document Word ?

Cordialement,

PGZ

[zotari]

merci beaucoup pour vos réponses malheureusement sur le code

Code :

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

1
2
3
Dim AppWord As Word.Application
     Set AppWord = New Word.Application
Dim DocWord As Word.Document

je reçois le message d'erreur

"type défini par l'utilisateur non défini"

[mercatog]

Avec la Référence Microsoft Word XX.X cochée

Code :

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

1
2
Dim AppWord As New Word.Application 
Dim DocWord As Word.Document

[zotari]

Effectivement je croyais l'avoir cochée.

Merci beaucoup

Bonjour,

un dernier point s'il vous plait.

J'essaye de transferer un tableau de dimension variable, avec les lignes et tout et tout, avec cette méthode et n'y arrive pas. la premiére ligne bug avez vous, s'il vous plait, une idée de ce qui peut bloquer ?

Code :

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

1
2
3
4
ThisWorkbook.Worksheets("Feuil2").Range([A1].End(xlDown), [F1]).Copy
 
    With DocWord
    .Bookmarks("Eval").Range.PasteAndFormat wdFormatPlainText