Discussion :

[GaspardBarrier]

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

[GaspardBarrier]

Re !

J'ai essayé de contourner le problème en utilisant un ByVal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub MacroExcel(ByVal Adresse As String)
ActiveDocument.MailMerge.Fields.AddNext Name:=Adresse
Application.Run "Module2!MainMacro2"
End Sub

Je sens que je ne sui pas loin de la réponse, dites moi ce que vous en pensez...
Si vous avez même un élément de réponse, n'hésitz pas, je suis un peu en galère :/

NB: Je travail sur Word ! (et j'appelle une macro Excel) Je me suis rendu compte en me relisant que ça pouvait être ambiguë... Désolé

Merci

[GaspardBarrier]

Comme ça ça marche, pour ceux que ça peut interesser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub MacroExcel(ByVal Adresse As String) 'Lance la macro Excel MainMacro2 ou la macro PrimaryMacro
 
 
    Dim MonObjet2 As Object
    Set MonObjet2 = GetObject("", "Excel.Sheet")
 
    MonObjet2.Application.Visible = True
    MonObjet2.Application.Workbooks.Open FileName:=Adresse
    MonObjet2.Application.Run "MainMacro2"
 
 
End Sub