macro excel pour collage spécial dans Word

macro excel pour collage spécial dans Word - VB/VBA/VBS - Programmation

Marsh Posté le 17-01-2008 à 10:22:39    

bonjour à tous,
je cherche à créer une macro excel qui me permette de coller une plage de cellules dans Word par le biais de Edition -> Collage spécial -> Texte sans mise en forme; puis enregistrer le document Word au format texte brut.
Lorsque je colle les cellules dans Word, je n'arrive jamais obtenir le contenu seul mais j'ai toujours un tableau.
Bref, je sèche...
Merci beaucoup pour votre aide!

Reply

Marsh Posté le 17-01-2008 à 10:22:39   

Reply

Marsh Posté le 17-01-2008 à 13:51:49    

Bonjour,
 
Essaye ceci :
 

Code :
  1. Sub Main()
  3. Const wdFormatText = 2
  4. Const wdFormatPlainText = 22
  6. Dim oWdApp As Object
  7. Dim oWdDoc As Object
  9. 'Créer une instance Word
  10. Set oWdApp = CreateObject("Word.Application" )
  12. 'Créer un nouveau document Word
  13. Set oWdDoc = oWdApp.Documents.Add
  15. 'Copier les cellules Excel
  16. ActiveSheet.Range("A1:B10" ).Copy
  18. 'Coller dans Word au format "texte brut sans mise en forme"
  19. oWdApp.Selection.PasteAndFormat wdFormatPlainText
  21. 'Enregistrer le document Word au format "texte brut"
  22. oWdDoc.SaveAs "C:\MonDocument1.txt", wdFormatText
  24. 'Annuler le mode Copier
  25. Application.CutCopyMode = False
  27. 'Rendre le document Word visible
  28. oWdApp.Visible = True
  30. End Sub


 
wape

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed