travailler dans word depuis excel

[darib52]

bonsoir à tous,
j'ai besoin de travailler dans un doc word avant de l'importer dans excel.
pour ouvrir word, j'ai

Sub ouvreword()
chemin = ActiveWorkbook.Path
Set Wrd = CreateObject('word.application')
Wrd.Visible = False
monChemin = InputBox('Saisissez le chemin complet', '')
Wrd.documents.Open (monChemin)
Set Wrd = Nothing
End Sub[color=#800080][/color]

je voudrais pouvoir activer une macro dans word qui fasse un p'tit traitement
Sub separateur()
'
' separateur Macro
' Macro enregistrée le 07/11/2005 par daniel
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = 'habitants'
.Replacement.Text = ''
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
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
Selection.Find.Execute Replace:=wdReplaceAll
End Sub


il faudrait que le doc se referme avec enregistrement des modifs.

puis la copie dans excel, j'ai .

si l'une ou l'un d'entre vous pouvait m'éclairer sur le processus, ça m'aiderait bien.
merci d'avance à tous.
amitiés

 

[MichelXld]

bonsoir

si j'ai bien compris ta demande , cette procedure ouvre un document Word et lance la macro qu'il contient (separateur) , puis referme le document en sauvegardant les modifications


Sub lancerMacroWord()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

Set wordApp = CreateObject('Word.Application')
wordApp.Visible = True 'mettre Fals pour que Word reste masqué
Set wordDoc = wordApp.Documents.Open('C:\\\\\\\\monDocument.doc')
wordApp.Run 'separateur'

wordDoc.Close True 'fermeture document Word avec sauvegarde de modifications
wordApp.Quit 'fermeture application Word
End Sub


bonne soirée
MichelXld

 

[darib52]

je n'arrive pas à activer dans word la macro qui supprime le séparateur

 

[darib52]

voir en pj le bug annoncé par ta macro

 

[darib52]

j'en suis là.
mais la macro 'separateur' ne fonctionne pas.

Sub Bouton2_QuandClic()
Dim Wrd As Object
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Set Wrd = CreateObject('word.application')
Wrd.Visible = False
monChemin = InputBox('Saisissez le chemin complet', '')
Wrd.documents.Open (monChemin)
wordApp.Run 'separateur'
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Sheets('modele').Copy after:=Worksheets(Sheets.Count)
Nom = InputBox('Entrez le nom pour la feuille en cours :')
If Nom <> '' Then ActiveSheet.Name = Nom
Range('aa1').Select
ActiveSheet.Paste
Wrd.Application.Quit
Range('A1').Select
Application.DisplayAlerts = True
End Sub

 

[MichelXld]

bonjour

je ne comprends pas ce que tu souhaites faire : j'avais interprété que tu voulais ouvrir un document Word qui contient une macro , puis lancer cette macro depuis Excel ...tu as vérifié que tuas bien une macro qui porte le nom 'separateur' dans ton document Word ?

quel est le message d'erreur ?


bonne journée
MichelXld

 

[darib52]

merci à Michel pour sa contribution.
en bricolant j'ai réussi à faire ce que souhaitais.

une dernière chose, comment quitter word sans enregistrer les modifs ?

bonne journée à tous
amitiés

 

[MichelXld]

rebonjour

dans ce cas , tu remplaces en fin de procedure True par False


wordDoc.Close False 'fermeture document Word sans sauvegarde de modifications
wordApp.Quit 'fermeture application Word



bonne journée
MichelXld

 

[darib52]

merci
MERCI
tout fonctionne, c'est super