De excel vers word

[bbanor]

Salut tout le monde 🙂

Je me demandais s'il existait un code pour transformer un tableau excel en un document word.

Mon problème c'est que je travaille avec des personne ne maîtrisant pas excel et plus à l'aise avec word.

Je vous envoie un fichier en exemple

Merci d'avance pour votre aide

 

[smotty]

Re : De excel vers word

Bonjour,

Pourquoi ne pas sélectionner le tableau et le copier dans un document word directement?

 

[bbanor]

Re : De excel vers word

Salut Smotty


Je voudrais automatiser cela à l'aide d'un bouton.

Merci

 

[Paritec]

Re : De excel vers word

Bonsoir Bernard,
il semble que tu n'ais pas beaucoup d'audience avec ta demande!!!!
Tu veux pas en faire un pdf ou un txt ?
Pour les " .... " qui ne savent pas lire excel ? (car je pense que c'est toujours pour les mêmes?)
à te lire
a+
papou 🙂

 

[JNP]

Re : De excel vers word

Bonjour le fil 🙂,
Tu trouveras tout ce qu'il te faut sur ce fil, sous réserve que ça se comporte bien sous Mac 🙄...
Si il y a besion de modifications, reviens vers nous 😉.
Bonne soirée 😎

 

[bbanor]

Re : De excel vers word

Salut Paritec et JNP

Merci pour vos réponses.
Pour Papou : Non pas de pdf car ces "..." voudrais pouvoir modifier le tableau ou rajouter des choses dans ce tableau.
Pour JNP : j'ai cherché mais j'ai pas trouvé quelquechose qui marche sur mon fichier.

A l'aide please

 

[JCGL]

Re : De excel vers word

Bonjour à tous,

Pour Papou : Non pas de pdf car ces "..." voudrais pouvoir modifier le tableau ou rajouter des choses dans ce tableau

Il est plus facile (...et moins couteux) de modifier sous Word que sur un *.pdf...

A+ à tous

 

[JNP]

Re : De excel vers word

Re 🙂,

Pour JNP : j'ai cherché mais j'ai pas trouvé quelquechose qui marche sur mon fichier.

A condition de :
1) Adapter le code

Sub test()
Dim docWord As Word.Document
Dim appWord As Word.Application
Set appWord = New Word.Application
Application.DisplayAlerts = True
appWord.ShowMe
appWord.Visible = False
'Ouvre le document Word
Set docWord = appWord.Documents.Open(ThisWorkbook.Path & "\Memos.doc", ReadOnly:=False)
' Copie les données Excel de toute les feuilles
Sheets("Emploi du temps Niou").Range("A1:M12").Copy
' Colle les données dans Word
appWord.Selection.PasteExcelTable False, False, False
appWord.Selection.TypeParagraph
Application.CutCopyMode = False
docWord.Application.ActiveDocument.Save
appWord.Application.Quit
End Sub

2) d'aller dans l'éditeur VBA dans Outils -> Références et activer Microsoft Word XX.X Object Library
3) De créer un fichier .doc appelé Memos.doc à coté de ton fichier Excel et de le fermer.
La macro fonctionne (même sous Mac je pense).
Bon courage 😎

 

[bbanor]

Re : De excel vers word

Salut JNP

J'ai fait exactement comme tu dis mais j'obtiens une erreur d'exécution '-2147221002 (-7FFBFE0A)' : erreur d'automation sur cette ligne-ci du code : Set appWord = New Word.Application.

A te lire
Merci encore

 

[bbanor]

Re : De excel vers word

Salut 🙂
écrit plutôt :
Set appWord = CreateObject("Word.Application")
🙂 tatiak

Salut tatiak

Je viens d'essayer mais toujours le même message lors du debbugage. Peut être est ce le fait que je suis sous Mac .

A te lire et merci encore

 

[bbanor]

Re : De excel vers word

Re Bonjour à tous

Quelqu'un aurait il pu m'aider s'il vous plaît ?
Je compte vraiment sur vous

A vous lire