piloter word depuis excel

Question

bonsoir &#224; tous, 
je viens avec une question sans r&#233;ponse &#224; ce jour.

j'importe des donn&#233;es issues de word dans excel. 
j'ai une macro qui fonctionne. 
juste l&#224; pas pb. 

mais avant d'importer dans excel je dois faire subir un petit traitement au document word ( suppression d'un s&#233;parateur de milliers mat&#233;rialis&#233; par un . ) 
si la macro fonctionne dans word, comment faire pour que je puisse faire l'ensemble de la t&#226;che depuis excel. 
pas si simple, &#224; priori. 

si qu&#233;qu'un peut m'aider. &#231;a serait avec une grande satisfaction. 
merci d'avance &#224; tous. 

voici la macro excel 
Sub Bouton2_QuandClic() 
Dim Wrd As Object 

Application.ScreenUpdating = False 

Set Wrd = CreateObject("word.application") 
Wrd.Visible = False 
monChemin = InputBox("Saisissez le chemin complet", "") 
Wrd.documents.Open (monChemin) 
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("G7").Select 
    Columns("A:A").ColumnWidth = 34.86 
    ActiveWindow.SmallScroll Down:=48 
    Range("A53:D60").Select 
    Selection.EntireRow.Delete 
    ActiveWindow.SmallScroll Down:=30 
    Range("A88:D97").Select 
    Selection.EntireRow.Delete 
    ActiveWindow.SmallScroll Down:=45 
     Range("A1:A133").Select 
    Selection.RowHeight = 25 
End Sub 

et voici celle de word &#224; ins&#233;rer. 
Sub separateur() 
' 
' separateur Macro 
' Macro enregistr&#233;e le 07/11/2005 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

cs_FatBoy · Answer

Hello, j'ai déjà fait un truc similaire, en fait, à l'ouverture de n'importe quel document word, j'avais une macro qui scanné le nom du document, et si ça corresponder, je lançais automatiquement un autre macro. Le tout dans word. La seul différence, c'est que moi je fais tout à partir de word. Je chope mes données que je balance vers excel dans un bô petit tableau tout prêt. Le code : 'Procedure se lancer à l'ouverture d'un document Sub Document_Open() '<- se lance à l'ouverture de n'importe quel doc. 'Test pour le traitement des clotures d'incidents ' envoyé par FT. If Left(ActiveDocument.Name, 6) = "attach" Then ' Vérification du nom Traitement_Attach 'Lancement du traitment d'attach.rtf 'lancement de la macro de traitement. End If End Sub --------------------------------- Dans la macro traitement, je lance excel aprés récupérer mes données dans un tableau : Set ExcelApp = CreateObject("Excel.Application") ExcelApp.workbooks.Open () Je fais mon bazar et je ferme tout histoire de faire ça proprement ExcelApp.DisplayAlerts = False ExcelApp.workbooks("").Close savechanges:=True ExcelApp.Quit Set ExcelApp = Nothing FatBoy the mighty LunchBox Boy !

Piloter word depuis excel

1 réponse

Discussions similaires