Lancer une macro word depuis Excel
Bonjour à toutes et tous
J'ai un souci, depuis excel, j'aimerais ouvrir des fichiers word bien défini (chemin fixe) et lancer une macro spécifique dans chacun de ces fichiers.
Les fichiers word sont des fichiers connectés a mon fichier excel pour un publipostage (message box a l'ouverture pour valider le lien)
L'idée est de générer des fichiers découpés issus de mon publipostage.
Excecuté manuellement depuis word, les macros fonctionnent mais je n'arrive pas a les lancer depuis excel.
Cela ne fonctionne pas, souvent le lien entre le fichier excel et le word disparait et la macro "Charte_Decoupe_Publipostage" ne génère rien (je pense qu'elle ne se lance pas).
Je pense qu'il me manque des options d'ouverture du fichier word dans Sub executer_macroWord() mais je cale
J'utilise ce code
Public Function FileIsOpen(FullFilePath As String) As Boolean
Dim ff As Long
On Error Resume Next
ff = FreeFile()
Open FullFilePath For Input Lock Read As #ff
Close ff
FileIsOpen = (Err.Number <> 0)
On Error GoTo 0
End Function
Sub executer_macroWord()
Dim WordApp As Object
Dim Fichier As String
Fichier = "C:\Users\Utilisateur\Desktop\PROD FEL\Charte_adhesion_bilan_OLM - Publipostage.doc"
'Application.GetOpenFilename ("Fichier Word, *.docx; *.doc")
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If WordApp Is Nothing Then
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
End If
If Not FileIsOpen(Fichier) Then
WordApp.Documents.Open Fichier
End If
WordApp.Run "NewMacros.Charte_Decoupe_Publipostage"
End SubMerci de votre aide
Bonjour Matol,
Merci de mettre le code entre balises quand vous le mettez sur un post
Vous avez un solution parmi d'autres ICI https://forum.excel-pratique.com/excel/macro-publipostage-ecel-vers-word-t72466.html
A+