Exporter une feuille en .doc

Le 27/10/2011 à 00:14

bonjour,

Est'il possible à l'aide d'une macro inséré dans un bouton et apposé sur chaque feuilles d'exporter une feuille (active déjà mise en page avec une zone d'impression) vers un nouveau document word ?

Merci d'avance.

PS : je n'ai pas de fichier avec un besoin précis.

Le 27/10/2011 à 15:29

Voici ou j'en suis !! Mais il subsite quelques soucis, j'aurais préféré exporter directement la zone d'impression, alors que là, c'est une zone prédéfini ("B4:C203") mais j'arrive pas à changer sans que ça bug !! en sachant que la zone d'impression est différente selon la feuille active ou j'utilise le bouton contenant cette macro. BESOIN D'AIDE !!

Sub exporter_word()

Dim oWdApp As Object

Dim oWdDoc As Object

'Créer une instance Word

Set oWdApp = CreateObject("Word.Application")

'Créer un nouveau document Word

Set oWdDoc = oWdApp.Documents.Add

'Copier les cellules Excel

ActiveSheet.Range("B4:C203").Copy

'Coller dans Word au format "texte avec mise en forme"

oWdApp.Selection.Paste

'Annuler le mode Copier

Application.CutCopyMode = False

'Rendre le document Word visible

oWdApp.Visible = True

End Sub

Le 28/10/2011 à 16:34

C'est démodé de vouloir exporter en .doc ou quoi ?

Le 29/10/2011 à 01:21

Bonjour,

Et en remplaçant:?

'Copier les cellules Excel

ActiveSheet.Range("B4:C203").Copy

par:

'Copier les cellules Excel

ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Copy

Le 29/10/2011 à 11:33

Merci MaPoire, ça fonctionne.

y a t'il un moyen de garder la mise en page d'excel lors de l'exportation vers word, ou un systeme de reduction en % ?

car dans mon cas, le "collage" est décalé vers la droite comme si tous ne rentre pas car trop volumineux.

Alors je réduit les marges, mais cela ne suffit pas.