Discussion :

[Kestion100]

Bonjour,
Je tente d'appeler une macro d'un autre classeur avec une variable en paramètre mais n'y parviens pas.

Le nom du classeur appelé dans lequel est la macro appelée est:

Code :

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

CLM_CLD_CITIS XXXX.xlsm

;
Il est ouvert quand je travaille mais au cas où, son chemin:

Code :

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

C:\Users\XXXX\Desktop\XXX\EXCEL\CLM_CLD_CITIS\

;
La macro:

Code :

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

RecupParams

;
Le paramètres:

Code :

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

Qui

(qui est une string renseignée dans le classeur A, une suite de NOM prénoms séparés par des ";" que je souhaite transformer un tableau avec

Code :

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

split

dans le classeur B pour traitement dans une boucle)

le code que je tente d'utiliser:

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
16
17
18
19
20
21
22
23
24
25
 
Public Qui As String
 
Public Sub EnvoiMail()
 
 
    If UserForm3.TextBox1.Value <> "" And UserForm3.TextBox2.Value = "" Then
    Qui = UserForm3.TextBox1.Value
    End If
 
If UserForm3.TextBox1.Value = "" And UserForm3.TextBox2.Value <> "" Then
    Qui = UserForm3.TextBox2.Value
    End If
 
 
    LaMAcro = "(" & "C:\Users\XXXX\Desktop\XXX\EXCEL\CLM_CLD_CITIS\" & Workbooks("CLM_CLD_CITIS XXXX.xlsm").Name & "!'RecupParams," & Qui & ")"
 
 
 
    Debug.Print LaMAcro
 
    Application.Run LaMAcro
 
 
End Sub

Le dernier debug.print que j'ai obtenu:

Code :

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

(C:\Users\XXXX\Desktop\DPE\EXCEL\CLM_CLD_CITIS\CLM_CLD_CITIS XXXX.xlsm!'RecupParams,Personne1;Personne2)

Code :

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

Personne1 et Personne2

sont les NOM Prénom que je souhaite récupérer dans la macro du classeur B.



Plantage sur la ligne:

Code :

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

Application.Run LaMAcro

Erreur:

Code :

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

Erreur d'exécution 1004 La métode Run de l'objet _Application a échoué

Quel est mon erreur?

Merci beaucoup d'avance du coup de main!!!!

[Kestion100]

Avec:

Code :

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

LaMAcro = "(" & Workbooks("CLM_CLD_CITIS XXXXG.xlsm").Name & "!'RecupParams," & Qui & ")"

, le code part dans un chemin que je ne maîtrise absolument pas et ne trouve biensûr pas le classeur B qui est dans un autre dossier.

[Kestion100]

Voici le début de la macro appelée dans le classeur B:

Code :

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

Sub RecupParams(Qui As String)