macro excel pour collage spécial dans Word

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : macro excel pour collage spécial dans Word

ollive51

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!

Publicité

wape

Bonjour,

Essaye ceci :

Code :

Sub Main()
Const wdFormatText = 2
Const wdFormatPlainText = 22
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("A1:B10" ).Copy
'Coller dans Word au format "texte brut sans mise en forme"
oWdApp.Selection.PasteAndFormat wdFormatPlainText
'Enregistrer le document Word au format "texte brut"
oWdDoc.SaveAs "C:\MonDocument1.txt", wdFormatText
'Annuler le mode Copier
Application.CutCopyMode = False
'Rendre le document Word visible
oWdApp.Visible = True
End Sub

wape

FORUM HardWare.fr

Programmation

VB/VBA/VBS

macro excel pour collage spécial dans Word

Sujets relatifs
Macro pour hierarchiser...	macro menu déroulant
Lire et écrire dans une base de données SQL via Excel	Aide pour une macro
[EXCEL/VBA] Intersection avec une courbe lissée [RESOLU]	Remplir combobox Excel
Crrer un script pour sortir les image de document word	VBS - Récuperer la valeur d'une cellule excel
Plus de sujets relatifs à : macro excel pour collage spécial dans Word

Page générée en 0.027 secondes