Passer un paramètre VBA d'un classeur Excel à un autre
Bonjour,
Actuellement j'ai un fonctionnement codé dans la procédure sur événement WorkBook_Open codée dans ThisWorkBook.
Ce code charge un autre fichier Excel contenant une macro complexe, et j'ai besoin de lui passer un paramètre.
Donc dans la procédure appelant, je sauve ce paramètre dans une feuille Excel et la procédure appelée vient relise ce paramètre sauvegardé dans une feuille.
Ma question comment passer ce paramètre de façon plus directe en VBA pur ?
Dans l'appelante :
Code:
1
2
| Range("MonParamètre").Value = Préfixe_Répt
Workbooks.Open Filename:=Automate, ReadOnly:=True |
Ce code permet de le charger et de lui passer la main via, là aussi, l'utilisation de la procédure événement WorkBook_Open
Dans l'appelée
Code:
1
2
3
4
5
| Private Sub Workbook_Open()
Préfixe_Répertoire = Range("MonParamètre").Value
Mes_Actions (Préfixe_Répertoire)
End If
End Sub |
Autrement dit comment pourrais-je appeler directement la Fonction "Mes_Actions" contenue dans le fichier Excel appelé ?
Code:
Public Function Mes_Actions(Préfixe_Répertoire)
On pourrait bien sûr travailler avec un Excel ".XLAM" mais là on se heurte à d'autres problèmes de maintenance des configuration du parc informatique très réparti.
Ce que nous avons délibérément exclu
Donc un chargement à la volée au moment du besoin nous semble beaucoup plus facile à maintenir.
Per avance merci de vos commentaires aiguillages etc.
Bertrand
