travailler dans word depuis excel

  • Initiateur de la discussion Initiateur de la discussion darib52
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

darib52

Guest
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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
511
Réponses
5
Affichages
639
Réponses
0
Affichages
706
  • Question Question
XL 2016 erreur 424
Réponses
22
Affichages
3 K
Retour