action word à partir de macro excel

[darib52]

bonsoir à tous,
j'ai une macro excel qui me permet d'importer des données à partir de word. Ces données font l'objet d'un retraitement dans word avant l'importation ( suppression de séparateur de milliers représenté par un . ). pour celà j'ai une macro dans word qui s'appelle 'separateur' et je lance cette macro à partir d'excel 'Wrd.Run 'separateur'. devant diffuser mon prog, celà m'oblige à diffuser à côté la macro word 'separateur'.
y a-t-il un moyen d'intégrer le traitement de word dans la macro excel ?
mrci de vos avis éclairés.
amitiés


pour info, la macro word
Sub separateur()
'
' separateur Macro
' Macro enregistrée le 08/11/05 par Daniel
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = '.'
.Replacement.Text = ' '
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[myDearFriend!]

Bonsoir darib52,

Je ne suis pas un grand spécialiste macro Word mais, sauf erreur de ma part, l'équivalent de ta procédure sous Excel serait simplement :

Sub separateur()
      ActiveSheet.Cells.Replace '.', ' '
End Sub

Cordialement,

 

[darib52]

oui.
mais ce n'est pas ce que je souhaite.
je veux pouvoir faire tourner ma macro dans word.

 

[MichelXld]

bonjour Darib52 , bonjour mon ami didier

tu peux tester cette macro pour remplacer les points pas des espaces dans un document Word , depuis Excel

Sub remplacerChaineCaracteresDocWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document

Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True 'mettre False pour que Word soit masqué
Set docWord = appWrd.Documents.Open('C:\\\\\\\\monDocument.doc')

With docWord.Content.Find
.ClearFormatting
.Text = '.'
With .Replacement
.ClearFormatting
.Text = ' '
End With
.Execute Replace:=wdReplaceAll
.Forward = True
.Wrap = wdFindContinue
End With

docWord.Range.Find.Execute Replace:=wdReplaceAll

'docWord.Close True 'mettre False pour ques les modifs ne soient pas sauvegardées
'appWrd.Quit
End Sub


bon week end
MichelXld

Message édité par: michelxld, à: 11/02/2006 07:21

 

[darib52]

bonsoir,
je rentre de WE et trouve ta réponse.
merci de ton aide.
je teste ce soir.
amitiés

 

[darib52]

au risque de passer pour un enquiquineur, je n'arrive pas à faire fonctionner.
en pj les fichiers que j'utilise.
j'ai bien activé la référence Microsoft.
si tu pouvais me débloquer la situation, je t'en serais reconnaissant. [file name=remplacer.zip size=14450]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/remplacer.zip[/file]

 

[MichelXld]

bonsoir

la procédure fonctionne tres bien chez moi ( Office XP )

j'ai juste remplacé

Set docWord = appWrd.Documents.Open('C:\\\\\\\\mondocument.rtf.rtf')

par

Set docWord = appWrd.Documents.Open(ThisWorkbook.Path & '\\\\\\\\mondocument.rtf.rtf')


bonne soirée
MichelXld

 

[darib52]

ben, ça fonctionne pas chez moi.
version 2000 premium

génère une erreur. voir en pj.