Bonjour à tous,

Je suis en train de coder la dernière parti d'un programme VBA de publipostage assez complexe, dont la dernière partie me donne du fil à retordre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub MainMacro()
 
    Adresse = ShowFileDialog()
    Call MacroExcel
    Call Format
    Call DocSource(Adresse)
    Call Etiquette1
    Call Etiquettes24
    Call ToutesEtiquettes
End Sub
La fonction ShowFileDialog me permet de récupérer l'adresse du document Excel pour lequel on souhait appliquer le programme. La fonction MacroExcel a pour objectif d'appeler la macro du document Excel sélectionné, qui se situe dans le Module2 et qui s'appelle MainMacro2.

Mon code actuel, pour cette macro est

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub MacroExcel()
 
 
Dim myExcel As Excel.Application
Dim mywbk As Excel.Workbook
Dim mySheet As Excel.Worksheet
 
 
Set myExcel = CreateObject("excel.application")
Set mywbk = ActiveDocument ' Définit le fichier EXCEL à ouvrir
Set mySheet = mywbk.Worksheets("DataSheet")
myExcel.Visible = True
 
Application.Run "mywbk!Module2!MainMacro2"
End Sub
mais, je ne sais pas ce qui ne fonctionne pas, je ne sais même pas si j'ai envisagé le problème correctement.

Est ce que quelqu'un saurait comment résoudre ce problème ?

Merci infiniment pour votre aide