Discussion :

[camzo]

Bonjour à tous,

J'ai presque fini mon travail : j'ai réussi grâce à vous à fusionner mes cellules mais je n'arrive pas à exporter tout sous Word. J'ai en effet un trableau sous excel 2007 et je veux l'exporter comme tel dans Word 2007.

J'ai trouvé cette macro mais elle ne fonctionne pas. Serait-elle destinée à une autre version d'excel ou de word ?

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
Sub export()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = New Word.Application
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add
 
    Range("A1:N26871").Copy
 
    WordApp.Selection.Paste
    WordDoc.Tables(1).AutoFitBehavior wdAutoFitWindow
 
    Application.CutCopyMode = False
End Sub

Je ne vois pas oùça colle pas car je l'ai chopé sur le site...

On me demande pour qu'elle fonctionne d'activer la référence : Microsoft Word xx.x Object Library

j'ai trouvé ce lien mais rien à faire, ça ne coïncide pas avec World 2007...

Si quelqu'un a une idée, meci d'avance !!!

[defluc]

Crée une macro dans Excel et fais l'opération manuellement.
Puis arrête l'enregistrement de la macro et édite la.

Tu auras le code qui fonctionne sous tes yeux.

[camzo]

ah oui, pardon !!!

La ligne qui me gêne est :

Code :

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

WordApp As Word.Application

voilà voilà, et là, pas de trouvaille de ma part...

[SilkyRoad]

bonsoir

Dans l'éditeur de macros:
Menu Outils
Références
Coche la ligne "Microsoft Word xx.x Object Library"
(xx.x dépend de ta version d'Office)
Clique sur le bouton OK pour valider


bonne soirée
michel